version 1.3, 2002/07/30 20:55:11
|
version 1.5, 2002/12/27 15:51:28
|
Line 40 typedef union Cell {
|
Line 40 typedef union Cell {
|
#define vm_target2Cell(_x,_cell) ((_cell).target=(_x)) |
#define vm_target2Cell(_x,_cell) ((_cell).target=(_x)) |
#define vm_Cell2a(_cell,_x) ((_x)=(_cell).a) |
#define vm_Cell2a(_cell,_x) ((_x)=(_cell).a) |
#define vm_a2Cell(_x,_cell) ((_cell).a=(_x)) |
#define vm_a2Cell(_x,_cell) ((_cell).a=(_x)) |
|
#define vm_Cell2Cell(_x,_y) ((_y)=(_x)) |
|
|
|
/* for future extensions */ |
|
#define IMM_ARG(access,value) (access) |
|
|
#define VM_IS_INST(_inst, n) ((_inst).inst == vm_prim[n]) |
#define VM_IS_INST(_inst, n) ((_inst).inst == vm_prim[n]) |
|
|