pike.git
/
src
/
builtin.cmod
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/builtin.cmod:1:
/* -*- c -*- || 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: builtin.cmod,v 1.
107
2003
/
07
/
28
14
:
47
:
38
mast Exp $
+
|| $Id: builtin.cmod,v 1.
108
2004
/
03
/
12
21
:
58
:
28
mast 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:1273:
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);
-
if (f->pc) {
-
/* f->pc is the return address (i.e the next opcode) when
-
* inside a call, otherwise it points to the current
-
* opcode. */
-
if (of)
-
bf->pc = f->pc - 1;
-
else
+
bf->pc = f->pc; }
-
}
+
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; function = ID_FROM_INT(f->current_object->prog, f->fun); } else { bf->fun.u.integer = 0; bf->fun.subtype = NUMBER_DESTRUCTED;