2000-04-15
2000-04-15 18:27:20 by Henrik Grubbström (Grubba) <grubba@grubba.org>
-
b22cfa432771cbfe80dfa63807cad26392b9ee55
(30 lines)
(+9/-21)
[
Show
| Annotate
]
Branch: 7.9
Oops, it already existed!
Rev: src/builtin_functions.c:1.260
5:
\*/
/**/
#include "global.h"
- RCSID("$Id: builtin_functions.c,v 1.259 2000/04/15 18:18:24 grubba Exp $");
+ RCSID("$Id: builtin_functions.c,v 1.260 2000/04/15 18:27:20 grubba Exp $");
#include "interpret.h"
#include "svalue.h"
#include "pike_macros.h"
2799: Inside #if defined(PIKE_DEBUG)
l_flag = l;
}
- void f__describe(INT32 args)
- {
- struct svalue *s;
-
- CHECK_SECURITY_OR_ERROR(SECURITY_BIT_SECURITY,
- ("_optimizer_debug: permission denied.\n"));
- get_all_args("_describe", args, "%O", &s);
- debug_describe_svalue(debug_malloc_pass(s));
- pop_n_elems(args);
- }
-
+
#ifdef YYDEBUG
void f__compiler_trace(INT32 args)
4760: Inside #if defined(PIKE_DEBUG)
void f__describe(INT32 args)
{
- if (!args) {
- push_int(0);
- } else {
+ struct svalue *s;
+
+ CHECK_SECURITY_OR_ERROR(SECURITY_BIT_SECURITY,
+ ("_optimizer_debug: permission denied.\n"));
+ get_all_args("_describe", args, "%O", &s);
+ debug_describe_svalue(debug_malloc_pass(s));
pop_n_elems(args-1);
}
- debug_describe_svalue(sp-1);
- }
+
#endif
6120: Inside #if defined(PIKE_DEBUG)
ADD_EFUN("_optimizer_debug",f__optimizer_debug,
tFunc(tInt,tInt),OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND);
- /* function(mixed:void) */
- ADD_EFUN("_describe", f__describe, tFunc(tMix,tVoid),
- OPT_SIDE_EFFECT|OPT_EXTERNAL_DEPEND);
+
#ifdef YYDEBUG
/* function(int:int) */