[svn:parrot] r45128 - trunk/src

[bacek at svn.parrot.org]

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);
 }
 
 /*