--- gforth/vmgen-ex2/support.c	2002/06/02 17:02:57	1.2
+++ gforth/vmgen-ex2/support.c	2003/03/09 15:17:12	1.5
@@ -1,6 +1,6 @@
 /* support functions and main() for vmgen example
 
-  Copyright (C) 2001 Free Software Foundation, Inc.
+  Copyright (C) 2001,2003 Free Software Foundation, Inc.
 
   This file is part of Gforth.
 
@@ -156,9 +156,9 @@ int main(int argc, char **argv)
   int disassembling = 0;
   int profiling = 0;
   int c;
-  Inst vm_code[CODE_SIZE];
+  Inst *vm_code=(Inst *)calloc(CODE_SIZE,sizeof(Inst));
   Inst *start;
-  Cell stack[STACK_SIZE];
+  Cell *stack=(Cell *)calloc(STACK_SIZE,sizeof(Cell));
   engine_t runvm=engine;
 
   while ((c = getopt(argc, argv, "hdpt")) != -1) {
@@ -174,6 +174,7 @@ int main(int argc, char **argv)
       break;
     case 'p':
       profiling=1;
+      use_super=0; /* we don't want superinstructions in the profile */
       runvm = engine_debug;
       break;
     case 't':