pike.git/
src/
interpret.h
Branch:
Tag:
Non-build tags
All tags
No tags
2000-08-03
2000-08-03 12:46:29 by Henrik Grubbström (Grubba) <grubba@grubba.org>
2eaa40bf0c853dfe3d463153934338c5b65f1fc9 (
11
lines) (+
9
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Attempt
#2
.
Rev: src/interpret.h:1.56
5:
\*/ /*
-
* $Id: interpret.h,v 1.
55
2000/08/03 12:
36
:
30
grubba Exp $
+
* $Id: interpret.h,v 1.
56
2000/08/03 12:
46
:
29
grubba Exp $
*/ #ifndef INTERPRET_H #define INTERPRET_H
94:
#define pop_stack() do{ free_svalue(--Pike_sp); debug_check_stack(); }while(0)
+
#ifdef __ECL
+
#define MAYBE_CAST_TO_LONG(X) (X)
+
#else /* !__ECL */
+
#define MAYBE_CAST_TO_LONG(X) ((long)(X))
+
#endif /* __ECL */
+
#define pop_n_elems(X) \ do { ptrdiff_t x_=(X); if(x_) { \ check__positive(x_, ("Popping negative number of args.... (%ld) \n", \
-
(
long)
x_));
\
+
MAYBE_CAST_TO_LONG
(x_))
)
; \
Pike_sp -= x_; debug_check_stack(); \ free_svalues(Pike_sp, x_, BIT_MIXED); \ } } while (0)