--- gforth/vmgen-ex/support.c	2001/04/29 11:28:24	1.1
+++ gforth/vmgen-ex/support.c	2001/05/01 10:20:56	1.2
@@ -52,6 +52,11 @@ void printarg_a(char *a)
   fprintf(vm_out, "%p ", a);
 }
 
+void printarg_Cell(Cell i)
+{
+  fprintf(vm_out, "0x%lx ", i);
+}
+
 /* This language has separate name spaces for functions and variables;
    this works because there are no function variables, and the syntax
    makes it possible to differentiate between function and variable
@@ -200,12 +205,16 @@ Options:\n
     exit(1);
 
   start=vmcodep;
-  gen_main_end();  
+  gen_main_end();
+  vmcode_end=vmcodep;
 
   if (disassembling)
     vm_disassemble(vm_code, vmcodep, vm_prim);
 
   printf("result = %ld\n",runvm(start, stack+STACK_SIZE-1, NULL));
 
+  if (profiling)
+    vm_print_profile(vm_out);
+
   return 0;
 }