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 gc_set_watch(array|multiset|mapping|object|function|program|string x) -  *! @belongs Debug -  *! -  *! Sets a watch on the given thing, so that the gc will print a -  *! message whenever it's encountered. Intended to be used together -  *! with breakpoints to debug the garbage collector. -  *! -  *! @note -  *! This function only exists if the Pike runtime has been compiled -  *! with RTL debug. -  */ - PMOD_EXPORT void f__gc_set_watch(INT32 args) - { -  if (args < 1) -  SIMPLE_TOO_FEW_ARGS_ERROR("_gc_set_watch", 1); -  if (!REFCOUNTED_TYPE(TYPEOF(Pike_sp[-args]))) -  SIMPLE_BAD_ARG_ERROR("_gc_set_watch", 1, "reference type"); -  gc_watch(Pike_sp[-args].u.refs); -  pop_n_elems(args); - } -  +    /*! @decl void dump_backlog()    *! @belongs Debug    *!    *! Dumps the 1024 latest executed opcodes, along with the source    *! code lines, to standard error. The backlog is only collected on    *! debug level 1 or higher, set with @[_debug] or with the @tt{-d@}    *! argument on the command line.    *!    *! @note    *! This function only exists if the Pike runtime has been compiled
pike.git/src/builtin_functions.c:9650:    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("_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       ADD_EFUN("_gc_status",f__gc_status,    tFunc(tNone,tMap(tString,tOr(tInt,tFloat))),    OPT_EXTERNAL_DEPEND);    ADD_FUNCTION ("implicit_gc_real_time", f_implicit_gc_real_time,