Gitiles
Code Review
Sign In
gerrit.morgengrauen.info
/
mudlib-public
/
dbb1794ffb4f3e7434b38d3294799fb93e1afb67
/
.
/
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
))