gforth/engine/forth.h - diff

Return to forth.h CVS log

Up to [gforth] / gforth / engine

-version 1.54, 2003/08/07 08:50:00
+version 1.55, 2003/08/22 08:08:46
  Line 165  typedef Label *Xt;
  #define MAKE_DOES_CF(cfa,does_code)  ({MAKE_CF(cfa,DOES_CA);    \
                                         ((Cell *)cfa)[1] = (Cell)(does_code);})
- #ifdef GFORTH_DEBUGGING
- #define NAME(string) { saved_ip=ip; asm(""); }
- /* the asm here is to avoid reordering of following stuff above the
-    assignment; this is an old-style asm (no operands), and therefore
-    is treated like "asm volatile ..."; i.e., it prevents most
-    reorderings across itself.  We want the assignment above first,
-    because the stack loads may already cause a stack underflow. */
- #elif DEBUG
- #       define  NAME(string)    fprintf(stderr,"%08lx: "string"\n",(Cell)ip);
- #else
- #       define  NAME(string)
- #endif
  #define CF(const)       (-const-2)
  #define CF_NIL  -1