pike.git / src / builtin_functions.c

version» Context lines:

pike.git/src/builtin_functions.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: builtin_functions.c,v 1.602 2006/01/11 04:46:52 mast Exp $ + || $Id: builtin_functions.c,v 1.603 2006/01/20 17:51:52 grubba Exp $   */      #include "global.h"   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"   #include "pike_error.h"
pike.git/src/builtin_functions.c:4522: Inside #if defined(PIKE_DEBUG)
   INT_TYPE l;       ASSERT_SECURITY_ROOT("_assembler_debug");       get_all_args("_assembler_debug", args, "%i", &l);    pop_n_elems(args);    push_int(a_flag);    a_flag = l;   }    + /*! @decl void _dump_program_tables(program p) +  *! +  *! Dumps the internal tables for the program @[p] on stderr. +  */ + void f__dump_program_tables(INT32 args) + { +  struct program *p;    -  +  ASSERT_SECURITY_ROOT("_dump_program_tables"); /* FIXME: Might want lower. */ +  get_all_args("_dump_program_tables", args, "%p", &p); +  +  dump_program_tables(p, 0); +  pop_n_elems(args); + } +    #ifdef YYDEBUG      /*! @decl int compiler_trace(int(0..) level)    *! @belongs Debug    *!    *! Set the compiler trace level.    *!    *! @returns    *! The old compiler trace level will be returned.    *!
pike.git/src/builtin_functions.c:8742: Inside #if defined(PIKE_DEBUG)
   tFunc(tInt,tInt),OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND);      /* function(int:int) */    ADD_EFUN("_optimizer_debug",f__optimizer_debug,    tFunc(tInt,tInt),OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND);      /* function(int:int) */    ADD_EFUN("_assembler_debug",f__assembler_debug,    tFunc(tInt,tInt), OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND);    +  ADD_EFUN("_dump_program_tables", f__dump_program_tables, +  tFunc(tPrg(tObj),tVoid), OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND); +    #ifdef YYDEBUG      /* function(int:int) */    ADD_EFUN("_compiler_trace",f__compiler_trace,    tFunc(tInt,tInt),OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND);   #endif /* YYDEBUG */   #endif      /* function(:mapping(string:int)) */    ADD_EFUN("_memory_usage",f__memory_usage,