rust preliminary

Author: CapelliC

boot_pl2nl.pl

@@ -22,8 +22,8 @@
     phrase(pl_source(S), `memb(E,[E|_]).`), writeln(S).
 */
 testz_ :-
-    tterm(c(.,[v('E'),v('_')]),[],T,X),
-    writeln(X/T).
+    tterm(c(.,[v('E'),v('_')]),[],T,Vs),
+    writeln(Vs/T).
 testz :-
     %tterm(c(.,[v('E'),v('_')]),[],T,X),
     S=`memb(E,[E|_]).`,

laz/hhprolog.lpr

@@ -53,11 +53,14 @@ procedure test_alloc(pl_nl: string);
 
 {$if 1}
 procedure test_run(pl_nl: string);
+  var t0: DWORD;
 begin
   with Prog.create(file2string(pl_nl)) do
     begin
       ppCode;
+      t0 := getTickCount64;
       run(true);
+      writeln(format('%s: done in %d msec', [pl_nl, getTickCount64 - t0]));
       Free
     end;
 end;