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.453 2002/12/01 18:53:05 mast Exp $ + || $Id: builtin_functions.c,v 1.454 2003/01/28 13:18:18 mast Exp $   */      #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.453 2002/12/01 18:53:05 mast Exp $"); + RCSID("$Id: builtin_functions.c,v 1.454 2003/01/28 13:18:18 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:2611:    *!    *! @note    *! This function is not recomended to use.    *!    *! @seealso    *! @[destruct()]    */   PMOD_EXPORT void f_next_object(INT32 args)   {    struct object *o; +  +  CHECK_SECURITY_OR_ERROR(SECURITY_BIT_SECURITY, ("next_object: permission denied.\n")); +     if(args < 1)    {    o = first_object;    }else{    if(Pike_sp[-args].type != T_OBJECT)    SIMPLE_BAD_ARG_ERROR("next_object", 1, "object");    o = Pike_sp[-args].u.object->next;    }    while(o && !o->prog) o=o->next;    pop_n_elems(args);
pike.git/src/builtin_functions.c:3862: Inside #if defined(PIKE_DEBUG)
   *! @note    *! This function is only available if the Pike runtime has been compiled    *! 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(); +  do_debug(); /* Runs gc too since d_flag > 3. */    d_flag=tmp; -  do_gc(); +     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.