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.664 2008/04/15 02:07:22 nilsson Exp $ + || $Id: program.c,v 1.665 2008/04/15 13:07:52 grubba 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:7815:    new_frame->mark_sp_base = Pike_mark_sp;    new_frame->args = 0;    new_frame->num_locals = 0;    new_frame->pc = 0;    new_frame->return_addr = 0;    new_frame->scope = 0;    new_frame->save_sp = Pike_sp;    Pike_fp = new_frame;   }    - void enter_compiler(struct pike_string *filename, int linenumber) + PMOD_EXPORT void enter_compiler(struct pike_string *filename, int linenumber)   {    struct object *ce = clone_object(compilation_program, 0);    struct compilation *c;       low_enter_compiler(ce, 0);       c = THIS_COMPILATION;    if (filename) {    free_string(c->lex.current_file);    copy_shared_string(c->lex.current_file, filename);    }    if (linenumber) {    c->lex.current_line = linenumber;    }   }      /* Reverse the effect of enter_compiler().    */ - void exit_compiler(void) + PMOD_EXPORT void exit_compiler(void)   {   #ifdef PIKE_DEBUG    if ((Pike_fp->current_program != compilation_program) ||    (Pike_fp->fun != 2)) {    Pike_fatal("exit_compiler(): Frame stack out of whack!\n");    }   #endif /* PIKE_DEBUG */    POP_PIKE_FRAME();   }