Gitiles
Code Review
Sign In
gerrit.morgengrauen.info
/
mudlib-public
/
88f12479d30902b0d2c05be41901c96b92a88a77
/
.
/
obj
/
tools
/
lisp
/
stack.h
blob: f0578f4488cee3c5c7bd0fd0c26b24eb53be286c [
file
] [
log
] [
blame
]
// STACK.H -- stack macros
#define
INITSTACK
(
s
)
(
s
=
({}))
#define
PUSH
(
s
,
x
)
(
s
+=
({
(
x
)
}))
#define
POP
(
s
,
x
)
(
x
=
s
[<
1
],
s
=
s
[
0.
.<
2
])
#define
POPX
(
s
)
(
s
=
s
[
0.
.<
2
])
#define
TOP
(
s
)
((
s
)[<
1
])
#define
SP
(
s
)
(
sizeof
(
s
))