pike.git/src/docode.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: docode.c,v 1.127 2001/07/24 13:51:52 grubba Exp $");
+ RCSID("$Id: docode.c,v 1.128 2001/08/13 23:15:58 mast Exp $");
#include "las.h"
#include "program.h"
#include "pike_types.h"
#include "stralloc.h"
#include "interpret.h"
#include "constants.h"
#include "array.h"
#include "pike_macros.h"
#include "pike_error.h"
#include "pike_memory.h"
pike.git/src/docode.c:1912: Inside #if defined(PIKE_DEBUG)
INT32 ret;
#ifdef PIKE_DEBUG
if (current_stack_depth != -4711) fatal("Reentrance in do_code_block().\n");
current_stack_depth = 0;
#endif
init_bytecode();
label_no=1;
#ifdef ALIGN_PIKE_FUNCTION_BEGINNINGS
- while( ( (((INT32) PC)+2) & (ALIGN_PIKE_JUMPS-1)))
+ while( ( (((INT32) PIKE_PC)+2) & (ALIGN_PIKE_JUMPS-1)))
ins_byte(0);
#endif
- ret=PC;
+ ret=PIKE_PC;
emit1(F_BYTE,Pike_compiler->compiler_frame->max_number_of_locals);
emit1(F_BYTE,Pike_compiler->compiler_frame->num_args);
emit0(F_ENTRY);
emit0(F_START_FUNCTION);
low_insert_label(0);
if(Pike_compiler->new_program->identifier_references[Pike_compiler->compiler_frame->
current_function_number].id_flags &
ID_INLINE)
{
Pike_compiler->compiler_frame->recur_label=0;