pike.git / src / lex.c

version» Context lines:

pike.git/src/lex.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: lex.c,v 1.90 2001/06/29 18:19:30 hubbe Exp $"); + RCSID("$Id: lex.c,v 1.91 2001/07/02 04:09:49 hubbe Exp $");   #include "language.h"   #include "array.h"   #include "lex.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "constants.h"   #include "hashtable.h"   #include "stuff.h"   #include "pike_memory.h"   #include "interpret.h"
pike.git/src/lex.c:113: Inside #if defined(INSTR_PROFILING)
   }   }      #endif      void exit_lex(void)   {   #ifdef PIKE_DEBUG    if(p_flag)    { +  extern void present_constant_profiling(void);    int e; -  +  present_constant_profiling(); +     fprintf(stderr,"Opcode compiles: (opcode, compiled)\n");    for(e=0;e<F_MAX_OPCODE-F_OFFSET;e++)    {    fprintf(stderr,"%08ld;;%-30s\n",    (long)instrs[e].compiles,    low_get_f_name(e+F_OFFSET,0));    }      #ifdef INSTR_PROFILING    for(e=0;e<=p_flag;e++)