version 1.43, 2002/08/19 07:38:16
|
version 1.44, 2002/08/28 17:50:29
|
Line 300 static int ufileattr[6]= {
|
Line 300 static int ufileattr[6]= {
|
/* define some VM registers as global variables, so they survive exceptions; |
/* define some VM registers as global variables, so they survive exceptions; |
global register variables are not up to the task (according to the |
global register variables are not up to the task (according to the |
GNU C manual) */ |
GNU C manual) */ |
Xt *ip; |
Xt *saved_ip; |
Cell *rp; |
Cell *rp; |
#endif |
#endif |
|
|
Line 337 define(enginerest,
|
Line 337 define(enginerest,
|
*/ |
*/ |
{ |
{ |
#ifndef GFORTH_DEBUGGING |
#ifndef GFORTH_DEBUGGING |
register Xt *ip IPREG; |
|
register Cell *rp RPREG; |
register Cell *rp RPREG; |
#endif |
#endif |
|
register Xt *ip IPREG; |
register Cell *sp SPREG = sp0; |
register Cell *sp SPREG = sp0; |
register Float *fp FPREG = fp0; |
register Float *fp FPREG = fp0; |
register Address lp LPREG = lp0; |
register Address lp LPREG = lp0; |