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.153 2000/05/09 20:36:37 mast Exp $"); + RCSID("$Id: interpret.c,v 1.154 2000/06/09 22:45:08 mast 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:1042:    low_object_index_no_free(sp-args-1,o,fun);    tailrecurse=args+1;    break;    }       case IDENTIFIER_PIKE_FUNCTION:    {    int num_args;    int num_locals;    unsigned char *pc; +  + #ifdef PIKE_DEBUG +  if (Pike_in_gc > GC_PASS_PREPARE && Pike_in_gc < GC_PASS_KILL) +  fatal("Pike code called within gc.\n"); + #endif +     debug_malloc_touch(fp);    pc=new_frame->context.prog->program + function->func.offset;       num_locals=EXTRACT_UCHAR(pc++);    num_args=EXTRACT_UCHAR(pc++);       if(function->identifier_flags & IDENTIFIER_SCOPE_USED)    new_frame->expendible+=num_locals;       /* adjust arguments on stack */