Diff for /gforth/engine/engine.c between versions 1.68 and 1.70

version 1.68, 2003/10/09 14:15:20 version 1.70, 2003/10/16 18:48:03
Line 156  extern int gforth_memcmp(const char * s1 Line 156  extern int gforth_memcmp(const char * s1
 #ifndef TOSREG  #ifndef TOSREG
 #define TOSREG  #define TOSREG
 #endif  #endif
   #ifndef spaREG
   #define spaREG
   #endif
   #ifndef spbREG
   #define spbREG
   #endif
 #ifndef FTOSREG  #ifndef FTOSREG
 #define FTOSREG  #define FTOSREG
 #endif  #endif
Line 179  extern int gforth_memcmp(const char * s1 Line 185  extern int gforth_memcmp(const char * s1
 #define SUPER_CONTINUE  #define SUPER_CONTINUE
   
 #ifdef GFORTH_DEBUGGING  #ifdef GFORTH_DEBUGGING
   #if DEBUG
   #define NAME(string) { saved_ip=ip; asm(""); fprintf(stderr,"%08lx depth=%3ld: "string"\n",(Cell)ip,sp0+3-sp);}
   #else /* !DEBUG */
 #define NAME(string) { saved_ip=ip; asm(""); }  #define NAME(string) { saved_ip=ip; asm(""); }
 /* the asm here is to avoid reordering of following stuff above the  /* the asm here is to avoid reordering of following stuff above the
    assignment; this is an old-style asm (no operands), and therefore     assignment; this is an old-style asm (no operands), and therefore
    is treated like "asm volatile ..."; i.e., it prevents most     is treated like "asm volatile ..."; i.e., it prevents most
    reorderings across itself.  We want the assignment above first,     reorderings across itself.  We want the assignment above first,
    because the stack loads may already cause a stack underflow. */     because the stack loads may already cause a stack underflow. */
   #endif /* !DEBUG */
 #elif DEBUG  #elif DEBUG
 #       define  NAME(string)    fprintf(stderr,"%08lx depth=%3ld: "string"\n",(Cell)ip,sp0+3-sp);  #       define  NAME(string)    fprintf(stderr,"%08lx depth=%3ld: "string"\n",(Cell)ip,sp0+3-sp);
 #else  #else
Line 267  Label *engine(Xt *ip0, Cell *sp0, Cell * Line 277  Label *engine(Xt *ip0, Cell *sp0, Cell *
   void * prv;    void * prv;
 #endif  #endif
   register Address up UPREG = UP;    register Address up UPREG = UP;
   IF_spTOS(register Cell spTOS TOSREG;)    register Cell MAYBE_UNUSED spa TOSREG;
     register Cell MAYBE_UNUSED spb spaREG;
     register Cell MAYBE_UNUSED spc spbREG;
   IF_fpTOS(register Float fpTOS FTOSREG;)    IF_fpTOS(register Float fpTOS FTOSREG;)
 #if defined(DOUBLY_INDIRECT)  #if defined(DOUBLY_INDIRECT)
   static Label *symbols;    static Label *symbols;

Removed from v.1.68  
changed lines
  Added in v.1.70


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