pike.git / src / builtin.cmod

version» Context lines:

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.153 2004/04/15 17:34:40 mast Exp $ + || $Id: builtin.cmod,v 1.154 2004/04/18 02:17:44 mast Exp $   */      #include "global.h"   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"   #include "pike_error.h"
pike.git/src/builtin.cmod:1174:   /*! @class BacktraceFrame    */      PIKECLASS backtrace_frame   {    PIKEVAR mixed fun;    PIKEVAR array args;       /* These are cleared when filename and lineno has been initialized    * from them. */ -  CVAR struct program *prog; /* FIXME: Ought to be a private pikevar... */ +  PIKEVAR program prog flags ID_STATIC|ID_PRIVATE;    CVAR PIKE_OPCODE_T *pc;       /* These two are considered to be uninitialized from prog, pc and    * fun as long as lineno == -1. */    CVAR struct pike_string *filename;    CVAR INT32 lineno;       INIT    { -  THIS->fun.type = T_INT; -  THIS->fun.u.integer = 0; -  THIS->prog = NULL; +     THIS->pc = NULL;    THIS->lineno = -1; -  THIS->args = NULL; +     THIS->filename = NULL;    }       EXIT    { -  if (THIS->prog) { -  free_program(THIS->prog); -  THIS->prog = NULL; -  } -  if (THIS->args) { -  free_array(THIS->args); -  THIS->args = NULL; -  } +     if (THIS->filename) {    free_string(THIS->filename);    THIS->filename = NULL;    }    THIS->pc = NULL;    THIS->lineno = -1; -  free_svalue(&THIS->fun); -  THIS->fun.type = T_INT; -  THIS->fun.u.integer = 0; +     }       /*! @decl int(0..1) _is_type(string t)    *! This object claims to be an array for backward compatibility.    */    PIKEFUN int(0..1) _is_type(string t)    {    INT_TYPE res = (t == findstring("array"));    pop_n_elems(args);    push_int(res);