Diff for /gforth/engine/main.c between versions 1.111 and 1.112

version 1.111, 2003/05/14 09:28:44 version 1.112, 2003/05/15 18:43:16
Line 629  int compare_priminfo_length(const void * Line 629  int compare_priminfo_length(const void *
           of (char) and @ instead of >code-address */            of (char) and @ instead of >code-address */
     return (*b)->start - (*a)->start;      return (*b)->start - (*a)->start;
 }  }
   #endif /* !defined(NO_DYNAMIC) */
   
 static char superend[]={  static char superend[]={
 #include "prim_superend.i"  #include "prim_superend.i"
 };  };
 #endif /* !defined(NO_DYNAMIC) */  
   
 Cell npriminfos=0;  Cell npriminfos=0;
   
Line 1155  void compile_prim1(Cell *start) Line 1155  void compile_prim1(Cell *start)
   }    }
 #elif defined(INDIRECT_THREADED)  #elif defined(INDIRECT_THREADED)
   return;    return;
 #else /* defined(DOUBLY_INDIRECT) || defined(INDIRECT_THREADED) */  #else /* !(defined(DOUBLY_INDIRECT) || defined(INDIRECT_THREADED)) */
   static Cell *instps[MAX_BB];    static Cell *instps[MAX_BB];
   static short origs[MAX_BB];    static short origs[MAX_BB];
   static short optimals[MAX_BB];    static short optimals[MAX_BB];
Line 1177  void compile_prim1(Cell *start) Line 1177  void compile_prim1(Cell *start)
     rewrite_bb(instps,optimals,ninsts);      rewrite_bb(instps,optimals,ninsts);
     ninsts=0;      ninsts=0;
   }    }
 #endif /* defined(DOUBLY_INDIRECT) || defined(INDIRECT_THREADED) */  #endif /* !(defined(DOUBLY_INDIRECT) || defined(INDIRECT_THREADED)) */
 }  }
   
 #if defined(PRINT_SUPER_LENGTHS) && !defined(NO_DYNAMIC)  #if defined(PRINT_SUPER_LENGTHS) && !defined(NO_DYNAMIC)

Removed from v.1.111  
changed lines
  Added in v.1.112


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>