pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:1:   /* -*- c -*- -  * $Id: builtin.cmod,v 1.67 2001/09/28 00:01:43 hubbe Exp $ +  * $Id: builtin.cmod,v 1.68 2001/09/28 01:54:49 hubbe Exp $    */      #include "global.h"   #include "interpret.h"   #include "svalue.h"   #include "opcodes.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"
pike.git/src/builtin.cmod:1975:    INT32 x,e,tmp,size=0x7fffffff;    struct svalue *tmpargs=Pike_sp - args;    struct array *ret;       for(e=0;e<args;e++)    {    if(real_args[e].type==T_OBJECT &&    real_args[e].u.object->prog == automap_marker_program &&    OBJ2_AUTOMAP_MARKER(real_args[e].u.object)->depth >= d)    { - #ifdef PIKE_DEBUG +     if(tmpargs[e].type != T_ARRAY) -  fatal("Arg in automap is not array!\n"); - #endif +  index_error("__automap__", +  Pike_sp-args, +  args, +  tmpargs, +  NULL, +  "Automap on non-array.\n");    tmp=tmpargs[e].u.array->size;    if(tmp < size)    size=tmp;    }    }      #ifdef PIKE_DEBUG    if(size == 0x7fffffff)    fatal("No automap markers found in low_automap\n");   #endif