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.743 2008/08/14 22:12:39 mast Exp $ + || $Id: program.c,v 1.744 2008/08/15 17:26:15 mast Exp $   */      #include "global.h"   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "lex.h"
pike.git/src/program.c:9197:    /* Map some of our variables so that the gc can find them. */    PIKE_MAP_VARIABLE("prog", OFFSETOF(compilation, prog),    tStr, PIKE_T_STRING, ID_HIDDEN);    PIKE_MAP_VARIABLE("handler", OFFSETOF(compilation, handler),    tObj, PIKE_T_OBJECT, 0);    PIKE_MAP_VARIABLE("compat_handler", OFFSETOF(compilation, compat_handler),    tObj, PIKE_T_OBJECT, 0);    PIKE_MAP_VARIABLE("target", OFFSETOF(compilation, target),    tPrg(tObj), PIKE_T_PROGRAM, ID_HIDDEN);    PIKE_MAP_VARIABLE("placeholder", OFFSETOF(compilation, placeholder), -  tObj, PIKE_T_PROGRAM, ID_HIDDEN); +  tObj, PIKE_T_OBJECT, ID_HIDDEN);    PIKE_MAP_VARIABLE("p", OFFSETOF(compilation, p),    tPrg(tObj), PIKE_T_PROGRAM, ID_HIDDEN);    PIKE_MAP_VARIABLE("current_file", OFFSETOF(compilation, lex.current_file),    tStr, PIKE_T_STRING, ID_HIDDEN);    PIKE_MAP_VARIABLE("default_module", OFFSETOF(compilation, default_module),    tOr(tMap(tStr,tMix),tObj), PIKE_T_MIXED, 0);       /* end_class()/end_program() adds the parent_info storage once more.    * Remove the one we added above, so that we don't get it double.    */