pike.git/
src/
interpret.h
Branch:
Tag:
Non-build tags
All tags
No tags
2000-12-28
2000-12-28 15:34:08 by Henrik Grubbström (Grubba) <grubba@grubba.org>
b1197a05fb9d3bd06d20999fd7715614336d5f46 (
12
lines) (+
7
/-
5
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed a few warnings.
Rev: src/interpret.h:1.72
5:
\*/ /*
-
* $Id: interpret.h,v 1.
71
2000/12/
13
21
:
27
:
56
hubbe
Exp $
+
* $Id: interpret.h,v 1.
72
2000/12/
28
15
:
34
:
08
grubba
Exp $
*/ #ifndef INTERPRET_H #define INTERPRET_H
90:
#define check_stack(X) do { \ if(low_stack_check(X)) \
-
Pike_error(Pike_check_stack_errmsg, \
+
((void (*)(const char *, ...))
Pike_error
)
(
\
+
Pike_check_stack_errmsg, \
PTRDIFF_T_TO_LONG(Pike_sp - Pike_interpreter.evaluator_stack), \ PTRDIFF_T_TO_LONG(Pike_stack_size), \ PTRDIFF_T_TO_LONG(X)); \
99:
PMOD_EXPORT const char *Pike_check_mark_stack_errmsg; #define check_mark_stack(X) do { \
-
if(Pike_mark_sp - Pike_interpreter.mark_stack + (X) >= Pike_stack_size)
\
-
Pike_error(Pike_check_mark_stack_errmsg);
\
+
if(Pike_mark_sp - Pike_interpreter.mark_stack + (X) >= Pike_stack_size)
\
+
((void
(*)(const
char*,
...))
Pike_error
)
(Pike_check_mark_stack_errmsg); \
}while(0) PMOD_EXPORT const char *Pike_check_c_stack_errmsg;
111:
Pike_interpreter.stack_top ; \ x_*=STACK_DIRECTION; \ if(x_>0) \
-
low_error(Pike_check_c_stack_errmsg);
\
+
((void (*)(const char*, ...))
low_error
)
(Pike_check_c_stack_errmsg); \
}while(0) #define fatal_check_c_stack(X) do { \