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.487 2003/04/27 17:41:20 mast Exp $ + || $Id: builtin_functions.c,v 1.488 2003/04/27 17:52:41 mast Exp $   */      #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.487 2003/04/27 17:41:20 mast Exp $"); + RCSID("$Id: builtin_functions.c,v 1.488 2003/04/27 17:52:41 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:6772:    splice=mysp[-1].u.array->size;       push_svalue(mysp-3); /* arr */    f_values(1);    push_svalue(mysp-2); /* fun */    *Pike_sp=mysp[-1]; /* extra */    mysp[-1].type=T_INT;    dmalloc_touch_svalue(Pike_sp);    push_array_items(Pike_sp->u.array);    f_map(splice+2); /* ... arr fun extra -> ... retval */ -  stack_pop_n_elems_keep_top(2); /* arr fun extra ret -> arr retval */ +  stack_pop_2_elems_keep_top(); /* arr fun extra ret -> arr retval */    stack_swap(); /* retval arr */    f_indices(1); /* retval retind */    stack_swap(); /* retind retval */    f_mkmapping(2); /* ret :-) */    return;       case T_MULTISET:    /* multiset ret =    (multiset)(map(indices(arr),fun,@extra)); */    push_svalue(Pike_sp-args); /* take indices from arr */
pike.git/src/builtin_functions.c:7171:    f_add(k);    k=1;    }    }    }    if (m || !k) {    f_aggregate(m);    k++;    }    if (k > 1) f_add(k); -  stack_pop_n_elems_keep_top(2); +  stack_pop_2_elems_keep_top();    return;       case T_MAPPING:    case T_PROGRAM:    case T_FUNCTION:    /* mapping ret =    mkmapping(indices(arr),    map(values(arr),fun,@extra)); */    MEMMOVE(Pike_sp-args+2,Pike_sp-args,args*sizeof(*Pike_sp));    Pike_sp+=2;