pike.git / src / docode.c

version» Context lines:

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;