pike.git/
src/
interpret.h
Branch:
Tag:
Non-build tags
All tags
No tags
2003-04-27
2003-04-27 15:30:06 by Martin Stjernholm <mast@lysator.liu.se>
db17196995c43cbd36c30098d42a05963eeeadf2 (
15
lines) (+
8
/-
7
)
[
Show
|
Annotate
]
Branch:
7.9
Oops..
Rev: src/interpret.h:1.140
2:
|| This file is part of Pike. For copyright information see COPYRIGHT. || Pike is distributed under GPL, LGPL and MPL. See the file COPYING || for more information.
-
|| $Id: interpret.h,v 1.
139
2003/04/27
12
:
54
:
37
mast Exp $
+
|| $Id: interpret.h,v 1.
140
2003/04/27
15
:
30
:
06
mast Exp $
*/ #ifndef INTERPRET_H
207:
* return value. */ #define stack_unlink(X) do { \
-
ptrdiff_t
x
_ = (X);
\
-
if (
x
_) {
\
+
ptrdiff_t
x2
_ = (X); \
+
if (
x2
_) { \
struct svalue *_sp_ = --Pike_sp; \
-
free_svalue(_sp_-
x
_);
\
-
_sp_
[
-
x
_
]
=
_sp_
[0]
;
\
-
pop_n_elems(
x
_-1);
\
+
free_svalue
(_sp_
-
x2
_); \
+
move
_
svalue (_
sp_
-
x2
_
,
_sp_
)
; \
+
pop_n_elems
(
x2
_
-
1); \
} \ }while(0)
221:
#define stack_pop_keep_top() do { \ struct svalue *_sp_ = --Pike_sp; \ free_svalue (_sp_ - 1); \
-
_sp_
[
-1
]
=
_sp_
[0]
;
\
+
move
_
svalue (_
sp_
-
1
,
_sp_
)
; \
debug_check_stack(); \ } while (0)