pike.git/
src/
interpret.c
Branch:
Tag:
Non-build tags
All tags
No tags
1997-03-20
1997-03-20 16:04:15 by Henrik Grubbström (Grubba) <grubba@grubba.org>
b68568ff103cb3710dec1a9516c16ab9ab462754 (
19
lines) (+
17
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Made call to non-function error a bit more specific
Rev: src/interpret.c:1.38
4:
||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h"
-
RCSID("$Id: interpret.c,v 1.
37
1997/03/
17
03
:04:
38
hubbe
Exp $");
+
RCSID("$Id: interpret.c,v 1.
38
1997/03/
20
16
:04:
15
grubba
Exp $");
#include "interpret.h" #include "object.h" #include "program.h"
1585:
break; }
+
case T_INT:
+
if (!s->u.integer) {
+
error("Attempt to call the NULL-value\n");
+
} else {
+
error("Attempt to call the value %d\n", s->u.integer);
+
}
+
case T_STRING:
+
if (s->u.string->len > 20) {
+
error("Attempt to call the string \"%20s\"...\n", s->u.string->str);
+
} else {
+
error("Attempt to call the string \"%s\"\n", s->u.string->str);
+
}
+
case T_MAPPING:
+
error("Attempt to call a mapping\n");
default:
-
error("Call to non-function value.\n");
+
error("Call to non-function value
type:%d
.\n"
, s->type
);
} #ifdef DEBUG