pike.git/
src/
interpret.c
Branch:
Tag:
Non-build tags
All tags
No tags
1999-03-19
1999-03-19 11:43:14 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
c6bdcec867107a95e3ae7c79601dc9dc9527cd12 (
17
lines) (+
9
/-
8
)
[
Show
|
Annotate
]
Branch:
7.9
now uses object exceptions in some cases
Rev: src/interpret.c:1.118
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: interpret.c,v 1.
117
1999/03/
17
21
:
51
:
30
hubbe Exp $");
+
RCSID("$Id: interpret.c,v 1.
118
1999/03/
19
11
:
43
:
14
hubbe Exp $");
#include "interpret.h" #include "object.h" #include "program.h"
269:
default: if(IS_ZERO(lval))
-
error("Indexing the NULL value.\n");
/* Per */
+
index_
error(
0,0,0,lval,lval+1,
"Indexing the NULL value.\n");
else
-
error("Indexing a basic type.\n");
+
index_
error(
0,0,0,lval,lval+1,
"Indexing a basic type.\n");
} }
328:
default: if(IS_ZERO(lval))
-
error("Indexing the NULL value.\n");
/* Per */
+
index_
error(
0,0,0,lval,lval+1,
"Indexing the NULL value.\n");
else
-
error("Indexing a basic type.\n");
+
index_
error(
0,0,0,lval,lval+1,
"Indexing a basic type.\n");
} }
368:
default: if(IS_ZERO(lval))
-
error("Indexing the NULL value.\n");
/* Per */
+
index_
error(
0,0,0,lval,lval+1,
"Indexing the NULL value.\n");
else
-
error("Indexing a basic type.\n");
+
index_
error(
0,0,0,lval,lval+1,
"Indexing a basic type.\n");
return 0; } }