pike.git / src / builtin_functions.c

version» Context lines:

pike.git/src/builtin_functions.c:1:   /*   || 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_functions.c,v 1.458 2003/01/11 17:06:26 grubba Exp $ + || $Id: builtin_functions.c,v 1.459 2003/01/12 16:00:14 mast Exp $   */      #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.458 2003/01/11 17:06:26 grubba Exp $"); + RCSID("$Id: builtin_functions.c,v 1.459 2003/01/12 16:00:14 mast Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"   #include "pike_error.h"   #include "constants.h"   #include "mapping.h"   #include "stralloc.h"
pike.git/src/builtin_functions.c:3618:    *! when 20% of all arrays/object/programs in memory is 'garbage'    *! and call this routine then.)    *!    *! @returns    *! The amount of garbage is returned. This is the number of arrays,    *! mappings, multisets, objects and programs that had no nonweak    *! external references during the garbage collection. It's normally    *! the same as the number of freed things, but there might be some    *! difference since destroy() functions are called during freeing,    *! which can cause more things to be freed or allocated. +  *! +  *! @seealso +  *! @[Pike.gc_parameters], @[Debug.gc_status]    */   void f_gc(INT32 args)   {    pop_n_elems(args); -  push_int(do_gc()); +  push_int(do_gc(NULL, 1));   }      #ifdef TYPEP   #undef TYPEP   #endif         #define TYPEP(ID,NAME,TYPE,TYPE_NAME) \   PMOD_EXPORT void ID(INT32 args) \   { \
pike.git/src/builtin_functions.c:3875: Inside #if defined(PIKE_DEBUG)
   *! with RTL debug.    */   PMOD_EXPORT void f__verify_internals(INT32 args)   {    INT32 tmp=d_flag;    CHECK_SECURITY_OR_ERROR(SECURITY_BIT_SECURITY,    ("_verify_internals: permission denied.\n"));    d_flag=0x7fffffff;    do_debug();    d_flag=tmp; -  do_gc(); +  do_gc(NULL, 1);    pop_n_elems(args);   }      /*! @decl int debug(int(0..) level)    *! @belongs Debug    *!    *! Set the run-time debug level.    *!    *! @returns    *! The old debug level will be returned.