pike.git
/
src
/
builtin.cmod
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/builtin.cmod:1:
/* -*- c -*-
-
* $Id: builtin.cmod,v 1.
69
2001/
10
/
04
19
:
40
:
02
nilsson Exp $
+
* $Id: builtin.cmod,v 1.
70
2001/
11
/
08
23
:
34
:
27
nilsson Exp $
*/ #include "global.h" #include "interpret.h" #include "svalue.h" #include "opcodes.h" #include "pike_macros.h" #include "object.h" #include "program.h" #include "array.h"
pike.git/src/builtin.cmod:1126:
size--; res->item[size].u.object = o; res->item[size].type = PIKE_T_OBJECT; res->item[size].subtype = 0; bf = OBJ2_BACKTRACE_FRAME(o); if ((bf->prog = f->context.prog)) { add_ref(bf->prog);
-
bf->pc = f->pc;
+
bf->pc = f->pc
+ ( (f->flags & PIKE_FRAME_RETURN_INTERNAL) ?
+
#ifndef USE_MACHINE_CODE
+
-1 : 0
+
#else
+
-1 : (long)(f->context.prog->program)
+
#endif
+
)
;
+
} if ((bf->fun.u.object = f->current_object) && (bf->fun.u.object->prog)) { add_ref(bf->fun.u.object); bf->fun.subtype = f->fun; bf->fun.type = PIKE_T_FUNCTION; } else { bf->fun.u.integer = 0; bf->fun.subtype = NUMBER_DESTRUCTED;