pike.git / src / builtin_functions.c

version» Context lines:

pike.git/src/builtin_functions.c:8034:       out->type_field=BIT_ARRAY;    push_array(out);    return;   }      /*! @endmodule    */      #ifdef PIKE_DEBUG - /*! @decl void locate_references(string|array|mapping| @ -  *! multiset|function|object| @ -  *! program|type o) -  *! @belongs Debug -  *! -  *! This function is mostly intended for debugging. It will search through -  *! all data structures in Pike looking for @[o] and print the -  *! locations on stderr. @[o] can be anything but @expr{int@} or -  *! @expr{float@}. -  *! -  *! @note -  *! This function only exists if the Pike runtime has been compiled -  *! with RTL debug. -  */ - PMOD_EXPORT void f__locate_references(INT32 args) - { -  if(args) -  locate_references(Pike_sp[-args].u.refs); -  pop_n_elems(args-1); - } -  +    /*! @decl mixed describe(mixed x)    *! @belongs Debug    *!    *! Prints out a description of the thing @[x] to standard error.    *! The description contains various internal info associated with    *! @[x].    *!    *! @note    *! This function only exists if the Pike runtime has been compiled    *! with RTL debug.
pike.git/src/builtin_functions.c:9690:    ADD_FUNCTION2("inherit_list", f_inherit_list,    tFunc(tOr(tObj,tPrg(tObj)),tArr(tPrg(tObj))), 0, OPT_TRY_OPTIMIZE);    ADD_FUNCTION2("program_identifier_defined", f_program_identifier_defined,    tFunc(tOr(tObj,tPrg(tObj)) tString,tString), 0, OPT_TRY_OPTIMIZE);    ADD_FUNCTION2("function_defined", f_function_defined,    tFunc(tFunction,tString), 0, OPT_TRY_OPTIMIZE);      #ifdef PIKE_DEBUG      /* function(1=mixed:1) */ -  ADD_EFUN("_locate_references",f__locate_references, -  tFunc(tSetvar(1,tMix),tVar(1)),OPT_SIDE_EFFECT); +     ADD_EFUN("_describe",f__describe,    tFunc(tSetvar(1,tMix),tVar(1)),OPT_SIDE_EFFECT);    ADD_EFUN("_gc_set_watch", f__gc_set_watch,    tFunc(tComplex,tVoid), OPT_SIDE_EFFECT);    ADD_EFUN("_dump_backlog", f__dump_backlog,    tFunc(tNone,tVoid), OPT_SIDE_EFFECT);    ADD_EFUN("_gdb_breakpoint", pike_gdb_breakpoint,    tFuncV(tNone,tMix,tVoid), OPT_SIDE_EFFECT);   #endif