pike.git
/
src
/
builtin.cmod
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/builtin.cmod:1:
/* -*- c -*- || 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.cmod,v 1.
138
2003/
07
/
28
14
:
47
:
38
mast Exp $
+
|| $Id: builtin.cmod,v 1.
139
2003/
08
/
03
00
:
52
:
09
mast Exp $
*/ #include "global.h" #include "interpret.h" #include "svalue.h" #include "opcodes.h" #include "pike_macros.h" #include "object.h" #include "program.h" #include "array.h"
pike.git/src/builtin.cmod:49:
if (!(p = program_from_svalue(Pike_sp - args))) SIMPLE_BAD_ARG_ERROR("_describe_program", 1, "program"); for (i=0; i < (int)p->num_identifier_references;i++) { struct reference *ref = p->identifier_references + i; struct identifier *id = ID_FROM_PTR(p, ref); struct inherit *inh = INHERIT_FROM_PTR(p, ref); push_int(ref->id_flags); ref_push_string(id->name); push_int(id->identifier_flags);
-
if (id->identifier_flags
& IDENTIFIER_C_FUNCTION
) {
+
if (
IDENTIFIER_IS_C_FUNCTION(
id->identifier_flags)
)
{
push_int(-2); } else { push_int(id->func.offset); } push_int(ref->inherit_offset); push_int(inh->inherit_level); f_aggregate(6); } f_aggregate(p->num_identifier_references); dmalloc_touch_svalue(Pike_sp-1);