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.685 2008/08/22 15:33:50 grubba Exp $ + || $Id: builtin_functions.c,v 1.686 2008/08/28 20:11:47 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:2646: Inside #if defined(PIKE_DEBUG)
  #ifdef PIKE_DEBUG    if (CDR (n)->u.sval.type != T_INT || CDR (n)->u.sval.u.integer < 0)    Pike_fatal ("The type check for this_object() failed.\n");   #endif    level = CDR (n)->u.sval.u.integer;    }    }    else level = 0;       emit1(F_THIS_OBJECT, level); +  modify_stack_depth(1);    return 1;   }      /*! @decl mixed|void throw(mixed value)    *!    *! Throw @[value] to a waiting @[catch].    *!    *! If no @[catch] is waiting the global error handling will send the    *! value to @[master()->handle_error()].    *!
pike.git/src/builtin_functions.c:9575:    ADD_FUNCTION2("diff_dyn_longest_sequence", f_diff_dyn_longest_sequence,    tFunc(tArray tArray,tArr(tInt)), 0, OPT_TRY_OPTIMIZE);    /* function(array,array:array(array)) */    ADD_FUNCTION2("diff_compare_table", f_diff_compare_table,    tFunc(tArray tArray, tArr(tArr(tInt))), 0, OPT_TRY_OPTIMIZE);    /* function(array:array(int)) */    ADD_FUNCTION2("longest_ordered_sequence", f_longest_ordered_sequence,    tFunc(tArray,tArr(tInt)), 0, OPT_TRY_OPTIMIZE);      #define tMapStuff(IN,SUB,OUTFUN,OUTSET,OUTPROG,OUTMIX,OUTARR,OUTMAP) \ -  tOr6( tFuncV(IN tFuncV(SUB,tSetvar(0,tAnd(tMix,tZero)),tSetvar(2,tAny)),tVar(0), \ -  OUTFUN), \ +  tOr6( tFuncV(IN tFuncV(SUB,tSetvar(0,tAnd(tMix,tZero)), \ +  tSetvar(2,tAny)),tVar(0), \ +  OUTFUN), \    tFuncV(IN tSet(tMix),tMix,OUTSET), \    tFuncV(IN tMap(tMix, tSetvar(2,tMix)), tMix, OUTMAP), \    tFuncV(IN tArray, tMix, OUTARR), \    tIfnot(tFuncV(IN, tNot(tMix), tMix), \    tFuncV(IN, tMix, OUTMIX)), \    tFuncV(IN, tVoid, OUTMIX) )       ADD_EFUN2("map", f_map,    tOr7(tMapStuff(tArr(tSetvar(1,tMix)),tVar(1),    tArr(tVar(2)),