--- gforth/vmgen-ex/profile.c	2001/05/01 10:20:56	1.2
+++ gforth/vmgen-ex/profile.c	2002/06/02 17:02:56	1.4
@@ -29,12 +29,18 @@
 #define HASH_SIZE (1<<20)
 #define hash(p) ((((Cell)(p))/sizeof(Inst))&(HASH_SIZE-1))
 
+#ifdef __GNUC__
+typedef long long long_long;
+#else
+typedef long long_long;
+#endif
+
 typedef struct block_count {
   struct block_count *next; /* next in hash table */
   struct block_count *fallthrough; /* the block that this one falls
                                        through to without SUPER_END */
   Inst *ip;
-  long long count;
+  long_long count;
   char **insts;
   size_t ninsts;
 } block_count;
@@ -63,7 +69,7 @@ block_count *block_insert(Inst *ip)
   new->next = blocks[hash(ip)];
   new->fallthrough = NULL;
   new->ip = ip;
-  new->count = 0LL;
+  new->count = (long_long)0;
   new->insts = malloc(0);
   assert(new->insts != NULL);
   new->ninsts = 0;
@@ -82,8 +88,6 @@ void vm_count_block(Inst *ip)
   block_insert(ip)->count++;
 }
 
-#define VM_IS_INST(inst, n) ((inst) == vm_prim[n])
-
 void postprocess_block(block_count *b)
 {
   Inst *ip = b->ip;