Author: rgrjr
Date: Sat Feb 18 16:23:04 2006
New Revision: 11656
Modified:
trunk/src/inter_call.c
Log:
* src/inter_call.c:
+ (parrot_pass_args): "Use up" current_args if getting params. This
fixes a bug in which tailcall without set_args used the sub args.
* t/op/calling.t:
+ New "tailcall explicit continuation, no args" case for regression,
fix two other cases that were affected.
Modified: trunk/src/inter_call.c
==============================================================================
--- trunk/src/inter_call.c (original)
+++ trunk/src/inter_call.c Sat Feb 18 16:23:04 2006
@@ -1082,6 +1082,8 @@ parrot_pass_args(Interp *interpreter, p
if (what == PARROT_OP_get_params_pc) {
dst_pc = interpreter->current_params;
src_pc = interpreter->current_args;
+ /* the args and params are now 'used.' */
+ interpreter->current_args = NULL;
interpreter->current_params = NULL;
action = "params";
}
