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; |
} |
} |