pike.git/
src/
interpret_functions.h
Branch:
Tag:
Non-build tags
All tags
No tags
2014-12-04
2014-12-04 19:27:03 by Per Hedbor <ph@opera.com>
cd7384d51f2a06d04e8333387b77125748c44dd8 (
17
lines) (+
17
/-
0
)
[
Show
|
Annotate
]
Branch:
bill/master_archive_support
Added CALL_LFUN<X>, useful when the number of arguments is known
2127:
} });
+
OPCODE2_JUMP(F_CALL_LFUN_N , "call lfun <n>", I_UPDATE_ALL, {
+
LOCAL_VAR(PIKE_OPCODE_T *addr);
+
JUMP_SET_TO_PC_AT_NEXT (Pike_fp->return_addr);
+
if((addr = lower_mega_apply(arg2,
+
Pike_fp->current_object,
+
(arg1+Pike_fp->context->identifier_level) )))
+
{
+
Pike_fp->flags |= PIKE_FRAME_RETURN_INTERNAL;
+
DO_JUMP_TO(addr);
+
}
+
else
+
{
+
DO_JUMP_TO_NEXT;
+
}
+
});
+
OPCODE1_JUMP(F_CALL_LFUN_AND_POP, "call lfun & pop", I_UPDATE_ALL, { LOCAL_VAR(PIKE_OPCODE_T *addr); JUMP_SET_TO_PC_AT_NEXT (Pike_fp->return_addr);