2006-01-20
2006-01-20 17:51:52 by Henrik Grubbström (Grubba) <grubba@grubba.org>
-
c511aa8ce3a4cd945e22eeb37e9f1e2cdd4dc667
(20 lines)
(+19/-1)
[
Show
| Annotate
]
Branch: 7.9
Added _dump_program_tables().
Rev: src/builtin_functions.c:1.603
2:
|| 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"
4529: Inside #if defined(PIKE_DEBUG)
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)
8749: Inside #if defined(PIKE_DEBUG)
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) */