pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: interpret.c,v 1.96 1998/10/16 15:29:39 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.97 1998/11/09 07:23:15 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:383: Inside #if defined(DEBUG)
   free(s);    }   }   #else   #define print_return_value()   #endif      struct callback_list evaluator_callbacks;      #ifdef DEBUG - static char trace_buffer[100]; + static char trace_buffer[200];   #define GET_ARG() (backlog[backlogp].arg=(\    instr=prefix,\    prefix=0,\    instr+=EXTRACT_UCHAR(pc++),\    (t_flag>3 ? sprintf(trace_buffer,"- Arg = %ld\n",(long)instr),write_to_stderr(trace_buffer,strlen(trace_buffer)) : 0),\    instr))   #define GET_ARG2() (\    instr=EXTRACT_UCHAR(pc++),\    (t_flag>3 ? sprintf(trace_buffer,"- Arg2= %ld\n",(long)instr),write_to_stderr(trace_buffer,strlen(trace_buffer)) : 0),\    instr)
pike.git/src/interpret.c:667:       o=fp->current_object;       if(!o)    error("Current object is destructed\n");       while(1)    {    if(inherit->parent_offset)    { + #ifdef DEBUG +  if(t_flag>4) +  { +  sprintf(trace_buffer,"- Following o->parent (accumulator+=%d)\n",inherit->parent_offset-1); +  write_to_stderr(trace_buffer,strlen(trace_buffer)); +  } + #endif +     i=o->parent_identifier;    o=o->parent;    accumulator+=inherit->parent_offset-1;    }else{ -  + #ifdef DEBUG +  if(t_flag>4) +  { +  sprintf(trace_buffer,"- Following inherit->parent (accumulator+=%d)\n",inherit->parent_offset-1); +  write_to_stderr(trace_buffer,strlen(trace_buffer)); +  } + #endif    i=inherit->parent_identifier;    o=inherit->parent;    }       if(!o)    error("Parent was lost during cloning.\n");       if(!(p=o->prog))    error("Attempting to access variable in destructed object\n");