pike.git/
src/
docode.c
Branch:
Tag:
Non-build tags
All tags
No tags
2001-01-25
2001-01-25 09:14:39 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
4f20e9eb4267d1e7a9022441f4c186d9f5c5938f (
15
lines) (+
14
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
`()(@...); works
Rev: src/docode.c:1.101
Rev: src/operators.c:1.116
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: docode.c,v 1.
100
2001/01/
17
20
:
15
:
53
grubba
Exp $");
+
RCSID("$Id: docode.c,v 1.
101
2001/01/
25
09
:
14
:
38
hubbe
Exp $");
#include "las.h" #include "program.h" #include "pike_types.h"
382:
} }
+
+
int generate_call_function(node *n)
+
{
+
node **arg;
+
emit0(F_MARK);
+
PUSH_CLEANUP_FRAME(do_pop_mark, 0);
+
do_docode(CDR(n),DO_NOT_COPY);
+
emit0(F_CALL_FUNCTION);
+
POP_AND_DONT_CLEANUP;
+
return 1;
+
}
+
static inline struct compiler_frame *find_local_frame(INT32 depth) { struct compiler_frame *f=Pike_compiler->compiler_frame;