pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:1:   /* -*- c -*- -  * $Id: builtin.cmod,v 1.82 2002/04/08 00:41:16 nilsson Exp $ +  * $Id: builtin.cmod,v 1.83 2002/04/08 01:17:05 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:869:    */      /*! @class BacktraceFrame    */      PIKECLASS backtrace_frame   {    PIKEVAR mixed fun;    PIKEVAR array args;    CVAR struct program *prog; /* FIXME: Ought to be a private pikevar... */ -  CVAR unsigned char *pc; +  CVAR PIKE_OPCODE_T *pc;    CVAR struct pike_string *filename;    CVAR INT_TYPE lineno;       INIT    {    THIS->fun.type = T_INT;    THIS->fun.u.integer = 0;    THIS->prog = NULL; -  THIS->pc = 0; +  THIS->pc = NULL;    THIS->lineno = 0;    THIS->args = NULL;    THIS->filename = NULL;    }       EXIT    {    if (THIS->prog) {    free_program(THIS->prog);    THIS->prog = NULL;
pike.git/src/builtin.cmod:1176:    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 + ( (f->flags & PIKE_FRAME_RETURN_INTERNAL) ? - #ifndef USE_MACHINE_CODE -  -1 : 0 - #else -  -1 : (long)(f->context.prog->program) - #endif -  ); +  bf->pc = f->pc + ( (f->flags & PIKE_FRAME_RETURN_INTERNAL) ? -1 : 0);       }       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 {