pike.git/
src/
las.c
Branch:
Tag:
Non-build tags
All tags
No tags
1997-01-27
1997-01-27 01:19:01 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
45e8a8ea8b91ca36f02f4ef2215fa5198760ffb4 (
18
lines) (+
7
/-
11
)
[
Show
|
Annotate
]
Branch:
7.9
constants are now in an automaticallu used module
Rev: src/language.yacc:1.19
Rev: src/las.c:1.14
4:
||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h"
-
RCSID("$Id: las.c,v 1.
13
1997/01/
22
05
:19:
45
hubbe Exp $");
+
RCSID("$Id: las.c,v 1.
14
1997/01/
27
01
:19:
01
hubbe Exp $");
#include "language.h" #include "interpret.h"
363:
node *mkefuncallnode(char *function, node *args) {
-
struct efun *fun;
+
struct pike_string *name;
-
+
node *n;
name = findstring(function);
-
if(!name)
+
if(!name
|| !find_module_identifier(name
)
)
{ my_yyerror("Internally used efun undefined: %s",function); return mkintnode(0); }
-
-
fun
=
lookup_efun
(
name
)
;
-
if(!fun
)
-
{
-
my
_
yyerror
(
"Internally used efun undefined: %s",function
);
-
return
mkintnode(0)
;
+
n
=
mkapplynode
(
mksvaluenode(sp-1
)
,
args
)
;
+
pop
_
stack
();
+
return
n
;
}
-
return mkapplynode(mksvaluenode(&fun->function), args);
-
}
+
node *mkopernode(char *oper_id, node *arg1, node *arg2) {