pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
2001-09-02
2001-09-02 14:25:20 by Henrik Grubbström (Grubba) <grubba@grubba.org>
23dec65b8eee656f6e263f72a0c084c333cd6b5d (
15
lines) (+
14
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
Fix for [bug
2119 (#2119)
].
Rev: src/program.c:1.369
Rev: src/svalue.c:1.119
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
368
2001/09/
01
00
:
27
:
31
hubbe
Exp $");
+
RCSID("$Id: program.c,v 1.
369
2001/09/
02
14
:
25
:
19
grubba
Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
4682:
Pike_error("Internal error: Trampoline magic failed!\n"); }
+
static void not_trampoline(INT32 args)
+
{
+
pop_n_elems(args);
+
if (!THIS->frame || !THIS->frame->current_object ||
+
!THIS->frame->current_object->prog) {
+
push_int(1);
+
} else {
+
push_int(0);
+
}
+
}
+
static void init_trampoline(struct object *o) { THIS->frame=0;
4773:
debug_malloc_touch(Pike_compiler->fake_object->storage); ADD_STORAGE(struct pike_trampoline); add_function("`()",apply_trampoline,"function(mixed...:mixed)",0);
+
add_function("`!",not_trampoline,"function(:int)",0);
set_init_callback(init_trampoline); set_exit_callback(exit_trampoline); set_gc_check_callback(gc_check_trampoline);