15 lines
389 B
C++
15 lines
389 B
C++
|
#define DEFPUSHPOP(prefix,ptr) \
|
||
|
|
inline static CELL prefix##peek() { return *(CELL *)ptr; } \
|
||
|
|
inline static void prefix##repl(CELL tagged) { *(CELL *)ptr = tagged; } \
|
||
|
|
inline static CELL prefix##pop(void) \
|
||
|
|
{ \
|
||
|
|
CELL value = prefix##peek(); \
|
||
|
|
ptr -= CELLS; \
|
||
|
|
return value; \
|
||
|
|
} \
|
||
|
|
inline static void prefix##push(CELL tagged) \
|
||
|
|
{ \
|
||
|
|
ptr += CELLS; \
|
||
|
|
prefix##repl(tagged); \
|
||
|
|
}
|