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.118 2003/02/11 00:40:29 grendel Exp $ + || $Id: builtin.cmod,v 1.119 2003/02/11 09:28:19 grubba 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:737:    errname String.width;    optflags OPT_TRY_OPTIMIZE;   {    RETURN 8 * (1 << s->size_shift);   }      /*! @decl mixed m_delete(object|mapping map, mixed index)    *!    *! If @[map] is an object that implements @[lfun::_m_delete()],    *! that function will be called with @[index] as its single argument. -  *! If @[map] is an object that does not contain the @[lfun::_m_delete()] -  *! implementation, an exception will be thrown. +     *!    *! Otherwise if @[map] is a mapping the entry with index @[index]    *! will be removed from @[map] destructively.    *!    *! If the mapping does not have an entry with index @[index], nothing is done.    *!    *! @returns -  *! The value that was removed will be returned or an exception will be thrown -  *! in case of an error. +  *! The value that was removed will be returned.    *!    *! @note    *! Note that @[m_delete()] changes @[map] destructively.    *!    *! @seealso    *! @[mappingp()]    */   PIKEFUN mixed m_delete(object|mapping map, mixed index)    efun;    optflags OPT_SIDE_EFFECT;
pike.git/src/builtin.cmod:874:    struct identifier *id;    if (p->identifier_references[e].id_flags & ID_HIDDEN)    continue;       id = ID_FROM_INT(p, e);    if (IDENTIFIER_IS_CONSTANT(id->identifier_flags) &&    is_eq( & PROG_FROM_INT(p, e)->constants[id->func.offset].sval,    func))    REF_RETURN id->name;    } + #ifdef PIKE_DEBUG +  if (d_flag>5) { +  fprintf(stderr, +  "Failed to find symbol for program 0x%08p\n" +  "Parent program info:\n", +  func->u.program); +  dump_program_tables(func->u.program->parent, 0);    } -  + #endif +  }    break;    }       case PIKE_T_FUNCTION:    if(func->subtype == FUNCTION_BUILTIN) break;    if(!func->u.object->prog)    bad_arg_error("function_name", Pike_sp-args, args, 1,    "function", Pike_sp-args,    "Destructed object.\n");    if(func->u.object->prog == pike_trampoline_program)