pike.git
/
src
/
builtin.cmod
version
»
Context lines:
10
20
40
80
file
none
3
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