Diff for /gforth/engine/engine.c between versions 1.78 and 1.79

version 1.78, 2005/01/23 09:55:12 version 1.79, 2005/01/23 13:56:13
Line 151  extern int gforth_memcmp(const char * s1 Line 151  extern int gforth_memcmp(const char * s1
 #ifndef LPREG  #ifndef LPREG
 #define LPREG  #define LPREG
 #endif  #endif
   #ifndef CAREG
   #define CAREG
   #endif
 #ifndef CFAREG  #ifndef CFAREG
 #define CFAREG  #define CFAREG
 #endif  #endif
Line 269  Label *engine(Xt *ip0, Cell *sp0, Cell * Line 272  Label *engine(Xt *ip0, Cell *sp0, Cell *
   register Float *fp FPREG = fp0;    register Float *fp FPREG = fp0;
   register Address lp LPREG = lp0;    register Address lp LPREG = lp0;
   register Xt cfa CFAREG;    register Xt cfa CFAREG;
   register Label real_ca;    register Label real_ca CAREG;
 #ifdef MORE_VARS  #ifdef MORE_VARS
   MORE_VARS    MORE_VARS
 #endif  #endif
Line 352  Label *engine(Xt *ip0, Cell *sp0, Cell * Line 355  Label *engine(Xt *ip0, Cell *sp0, Cell *
 /*  prep_terminal(); */  /*  prep_terminal(); */
 #ifdef NO_IP  #ifdef NO_IP
   goto *(*(Label *)ip0);    goto *(*(Label *)ip0);
     before_goto:
     goto *real_ca;
     after_goto:;
 #else  #else
   SET_IP(ip);    SET_IP(ip);
   SUPER_END; /* count the first block, too */    SUPER_END; /* count the first block, too */
   NEXT;    FIRST_NEXT;
 #endif  #endif
   
 #ifdef CPU_DEP3  #ifdef CPU_DEP3
Line 366  Label *engine(Xt *ip0, Cell *sp0, Cell * Line 372  Label *engine(Xt *ip0, Cell *sp0, Cell *
   after_last: return (Label *)0;    after_last: return (Label *)0;
   /*needed only to get the length of the last primitive */    /*needed only to get the length of the last primitive */
   
   before_goto:  
   goto *real_ca;  
   after_goto:  
   return (Label *)0;    return (Label *)0;
 }  }

Removed from v.1.78  
changed lines
  Added in v.1.79


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