pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*   || 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: interpret.c,v 1.282 2002/11/24 18:20:50 grubba Exp $ + || $Id: interpret.c,v 1.283 2002/11/24 22:47:06 mast Exp $   */      #include "global.h" - RCSID("$Id: interpret.c,v 1.282 2002/11/24 18:20:50 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.283 2002/11/24 22:47:06 mast Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:1151:    X->context.name=0; \    X->scope=0; \    X->current_object=0; \    X->flags=0; \    X->expendible=0; \    X->locals=0; \    DO_IF_SECURITY( X->current_creds=0; ) \    ) \   }while(0)    - BLOCK_ALLOC(pike_frame,128) + BLOCK_ALLOC_FILL_PAGES(pike_frame, 4)         void really_free_pike_scope(struct pike_frame *scope)   {    if(scope->flags & PIKE_FRAME_MALLOCED_LOCALS)    {    free_mixed_svalues(scope->locals,scope->num_locals);    free((char *)(scope->locals));   #ifdef PIKE_DEBUG    scope->flags&=~PIKE_FRAME_MALLOCED_LOCALS;