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.581 2004/12/14 16:26:28 mast Exp $ + || $Id: builtin_functions.c,v 1.582 2004/12/18 18:39:11 grubba Exp $   */      #include "global.h"   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"   #include "pike_error.h"
pike.git/src/builtin_functions.c:2822: Inside #if 0
   add_ref (o = t->frame->current_object);    pop_n_elems (args);    push_function (o, t->func);    return;    }    }   #endif       if(p)    { +  p = p->inherits[Pike_sp[-args].subtype].prog;    if((p->flags & PROGRAM_USES_PARENT) &&    PARENT_INFO(o)->parent &&    PARENT_INFO(o)->parent->prog)    {    INT32 id=PARENT_INFO(o)->parent_identifier;    o=PARENT_INFO(o)->parent;    add_ref(o);    pop_n_elems(args);    push_function(o, id);    return;
pike.git/src/builtin_functions.c:3288:    pike_types_le(mapping_zero, (*arg0)->type))) {    /* First argument might be an array or a mapping.    *    * replace() is destructive on arrays and mappings.    */    n->node_info |= OPT_SIDE_EFFECT;    n->tree_info |= OPT_SIDE_EFFECT;    } else {    /* First argument is not an array or mapping,    * -  * It thus must be a string. +  * It must thus be a string.    */    node **arg1 = my_get_arg(&_CDR(n), 1);    node **arg2 = my_get_arg(&_CDR(n), 2);       if (arg1 && pike_types_le((*arg1)->type, array_type_string) &&    arg2 && pike_types_le((*arg2)->type, array_type_string)) {    /* The second and third arguments are arrays. */    if (!is_const(*arg0) && is_const(*arg1) && is_const(*arg2)) {    /* The second and third arguments are constants. */    struct svalue *save_sp = Pike_sp;