pike.git / src / program.c

version» Context lines:

pike.git/src/program.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: program.c,v 1.485 2003/03/09 13:10:40 grubba Exp $ + || $Id: program.c,v 1.486 2003/03/14 15:50:46 grubba Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.485 2003/03/09 13:10:40 grubba Exp $"); + RCSID("$Id: program.c,v 1.486 2003/03/14 15:50:46 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "language.h"   #include "lex.h"   #include "pike_macros.h"   #include "fsort.h"
pike.git/src/program.c:1833:    MEMSET(Pike_compiler->fake_object->storage,0x55,256*sizeof(struct svalue));   #else    Pike_compiler->fake_object->storage=(char *)malloc(sizeof(struct parent_info));   #endif    /* Can't use GC_ALLOC on fake objects, but still it's good to know    * that they never take over a stale gc marker. */    if (Pike_in_gc) remove_marker(Pike_compiler->fake_object);       Pike_compiler->fake_object->next=Pike_compiler->fake_object;    Pike_compiler->fake_object->prev=Pike_compiler->fake_object; -  Pike_compiler->fake_object->refs=1; +  Pike_compiler->fake_object->refs=0; +  add_ref(Pike_compiler->fake_object); /* For DMALLOC... */    Pike_compiler->fake_object->prog=p;    add_ref(p);      #ifdef PIKE_DEBUG    Pike_compiler->fake_object->program_id=p->id;   #endif      #ifdef PIKE_SECURITY    Pike_compiler->fake_object->prot=0;   #endif
pike.git/src/program.c:6044:    ref_push_mapping(get_builtin_constants());    }    } else {    ref_push_mapping(get_builtin_constants());    }    }else{    ref_push_mapping(get_builtin_constants());    }    free_svalue(& c->default_module);    c->default_module=Pike_sp[-1]; +  dmalloc_touch_svalue(Pike_sp-1);    Pike_sp--;      #ifdef PIKE_DEBUG    SET_ONERROR(tmp, fatal_on_error,"Compiler exited with longjump!\n");   #endif       low_init_threads_disable();    c->saved_threads_disabled = threads_disabled;       init_supporter(& c->supporter,
pike.git/src/program.c:7259:       if(compat_handler)    {    free_object(compat_handler);    compat_handler = NULL;    }       if((Pike_sp[-1].type == T_OBJECT) && (Pike_sp[-1].u.object->prog))    {    compat_handler = dmalloc_touch(struct object *, Pike_sp[-1].u.object); +  dmalloc_touch_svalue(Pike_sp-1);    Pike_sp--;    } else {    pop_stack();    }       if (safe_apply_handler ("get_default_module", error_handler, compat_handler,    0, BIT_MAPPING|BIT_OBJECT|BIT_ZERO)) {    if(Pike_sp[-1].type == T_INT)    {    pop_stack();