version 1.40, 2002/02/04 21:25:18
|
version 1.44, 2002/08/28 17:50:29
|
Line 215 static int ufileattr[6]= {
|
Line 215 static int ufileattr[6]= {
|
|
|
/* conversion on fetch */ |
/* conversion on fetch */ |
|
|
#define vm_Cell2f(x) ((Bool)(x)) |
#define vm_Cell2f(_cell,_x) ((_x)=(Bool)(_cell)) |
#define vm_Cell2c(x) ((Char)(x)) |
#define vm_Cell2c(_cell,_x) ((_x)=(Char)(_cell)) |
#define vm_Cell2n(x) ((Cell)x) |
#define vm_Cell2n(_cell,_x) ((_x)=(Cell)(_cell)) |
#define vm_Cell2w(x) ((Cell)x) |
#define vm_Cell2w(_cell,_x) ((_x)=(Cell)(_cell)) |
#define vm_Cell2u(x) ((UCell)(x)) |
#define vm_Cell2u(_cell,_x) ((_x)=(UCell)(_cell)) |
#define vm_Cell2a_(x) ((Cell *)(x)) |
#define vm_Cell2a_(_cell,_x) ((_x)=(Cell *)(_cell)) |
#define vm_Cell2c_(x) ((Char *)(x)) |
#define vm_Cell2c_(_cell,_x) ((_x)=(Char *)(_cell)) |
#define vm_Cell2f_(x) ((Float *)(x)) |
#define vm_Cell2f_(_cell,_x) ((_x)=(Float *)(_cell)) |
#define vm_Cell2df_(x) ((DFloat *)(x)) |
#define vm_Cell2df_(_cell,_x) ((_x)=(DFloat *)(_cell)) |
#define vm_Cell2sf_(x) ((SFloat *)(x)) |
#define vm_Cell2sf_(_cell,_x) ((_x)=(SFloat *)(_cell)) |
#define vm_Cell2xt(x) ((Xt)(x)) |
#define vm_Cell2xt(_cell,_x) ((_x)=(Xt)(_cell)) |
#define vm_Cell2f83name(x) ((struct F83Name *)(x)) |
#define vm_Cell2f83name(_cell,_x) ((_x)=(struct F83Name *)(_cell)) |
#define vm_Cell2longname(x) ((struct Longname *)(x)) |
#define vm_Cell2longname(_cell,_x) ((_x)=(struct Longname *)(_cell)) |
#define vm_Float2r(x) (x) |
#define vm_Float2r(_float,_x) (_x=_float) |
|
|
/* conversion on store */ |
/* conversion on store */ |
|
|
#define vm_f2Cell(x) ((Cell)(x)) |
#define vm_f2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_c2Cell(x) ((Cell)(x)) |
#define vm_c2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_n2Cell(x) ((Cell)(x)) |
#define vm_n2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_w2Cell(x) ((Cell)(x)) |
#define vm_w2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_u2Cell(x) ((Cell)(x)) |
#define vm_u2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_a_2Cell(x) ((Cell)(x)) |
#define vm_a_2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_c_2Cell(x) ((Cell)(x)) |
#define vm_c_2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_f_2Cell(x) ((Cell)(x)) |
#define vm_f_2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_df_2Cell(x) ((Cell)(x)) |
#define vm_df_2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_sf_2Cell(x) ((Cell)(x)) |
#define vm_sf_2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_xt2Cell(x) ((Cell)(x)) |
#define vm_xt2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_f83name2Cell(x) ((Cell)(x)) |
#define vm_f83name2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_longname2Cell(x) ((Cell)(x)) |
#define vm_longname2Cell(_x,_cell) ((_cell)=(Cell)(_x)) |
#define vm_r2Float(x) (x) |
#define vm_r2Float(_x,_float) (_float=_x) |
|
|
#define vm_Cell2Cell(x) (x) |
#define vm_Cell2Cell(_x,_y) (_y=_x) |
|
|
/* if machine.h has not defined explicit registers, define them as implicit */ |
/* if machine.h has not defined explicit registers, define them as implicit */ |
#ifndef IPREG |
#ifndef IPREG |
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; |
Line 558 define(enginerest,
|
Line 558 define(enginerest,
|
NEXT; |
NEXT; |
|
|
#ifndef IN_ENGINE2 |
#ifndef IN_ENGINE2 |
#define LABEL(name) I_##name |
#define LABEL(name) I_##name: |
#else |
#else |
#define LABEL(name) J_##name: asm(".skip 16"); I_##name |
#define LABEL(name) J_##name: asm(".skip 16"); I_##name: |
#endif |
#endif |
|
#define LABEL2(name) |
#include "prim.i" |
#include "prim.i" |
#undef LABEL |
#undef LABEL |
after_last: return (Label *)0; |
after_last: return (Label *)0; |