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.136 2000/02/15 02:39:01 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.137 2000/03/24 01:24:49 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:610:   #define EXIT_BLOCK(X) do { \    free_object(X->current_object); \    if(X->context.prog) free_program(X->context.prog); \    if(X->context.parent) free_object(X->context.parent); \    if(X->scope) free_pike_frame(X->scope); \    if(X->malloced_locals) \    { \    free_svalues(X->locals,X->num_locals,BIT_MIXED); \    free((char *)(X->locals)); \    } \ +  DO_IF_DMALLOC( \ +  X->context.prog=0; \ +  X->context.parent=0; \ +  X->scope=0; \ +  X->malloced_locals=0; \ +  X->locals=0; \ +  ) \   }while(0)      BLOCK_ALLOC(pike_frame,128)            #ifdef PIKE_SECURITY   /* Magic trick */   static   
pike.git/src/interpret.c:989:    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; +  debug_malloc_touch(fp);    pc=new_frame->context.prog->program + function->func.offset;       num_locals=EXTRACT_UCHAR(pc++);    num_args=EXTRACT_UCHAR(pc++);       /* FIXME: this is only needed if this function contains    * trampolines    */    new_frame->expendible+=num_locals;