pike.git / src / builtin.cmod

version» Context lines:

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);