[svn:parrot] r45128 - trunk/src
bacek at svn.parrot.org
bacek at svn.parrot.org
Tue Mar 23 13:51:57 UTC 2010
Author: bacek
Date: Tue Mar 23 13:51:54 2010
New Revision: 45128
URL: https://trac.parrot.org/parrot/changeset/45128
Log:
Restore old CallContext in Parrot_ext_call. Spotted by fperrad++
Modified:
trunk/src/extend.c
Modified: trunk/src/extend.c
==============================================================================
--- trunk/src/extend.c Tue Mar 23 12:46:59 2010 (r45127)
+++ trunk/src/extend.c Tue Mar 23 13:51:54 2010 (r45128)
@@ -1049,6 +1049,7 @@
va_list args;
PMC *call_obj;
char *arg_sig, *ret_sig;
+ PMC *old_call_obj = Parrot_pcc_get_signature(interp, CURRENT_CONTEXT(interp));
Parrot_pcc_split_signature_string(interp, signature, &arg_sig, &ret_sig);
va_start(args, signature);
@@ -1059,6 +1060,7 @@
Parrot_pcc_fill_params_from_varargs(interp, call_obj, ret_sig, &args,
PARROT_ERRORS_RESULT_COUNT_FLAG);
va_end(args);
+ Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), old_call_obj);
}
/*
More information about the parrot-commits
mailing list