--- gforth/vmgen-ex/disasm.c	2001/04/29 11:28:23	1.1
+++ gforth/vmgen-ex/disasm.c	2002/08/07 10:11:18	1.2
@@ -21,7 +21,10 @@
 
 #include "mini.h"
 
-void vm_disassemble(Inst *ip, Inst *endp, Inst prim[])
+#define IP (ip+1)
+#define IPTOS IP[0]
+
+void vm_disassemble(Inst *ip, Inst *endp, Inst vm_prim[])
 {
   while (ip<endp) {
     fprintf(vm_out,"%p: ",ip);