[svn:parrot] r41874 - branches/pcc_reapply/src/call

[bacek at svn.parrot.org]

Author: bacek
Date: Thu Oct 15 09:00:28 2009
New Revision: 41874
URL: https://trac.parrot.org/parrot/changeset/41874

Log:
[uncage] Poke more into CallSignature guts for performance sake.

Modified:
   branches/pcc_reapply/src/call/args.c

Modified: branches/pcc_reapply/src/call/args.c
==============================================================================
--- branches/pcc_reapply/src/call/args.c	Thu Oct 15 08:29:32 2009	(r41873)
+++ branches/pcc_reapply/src/call/args.c	Thu Oct 15 09:00:28 2009	(r41874)
@@ -982,7 +982,7 @@
     }
 
     positional_args = VTABLE_elements(interp, call_object);
-    arg_sig   = VTABLE_get_attr_str(interp, call_object, CONST_STRING(interp, "arg_flags"));
+    GETATTR_CallSignature_arg_flags(interp, call_object, arg_sig);
 
     /* First iterate over positional args and positional parameters. */
     arg_index = 0;
@@ -1546,8 +1546,8 @@
         return;
     }
 
-    result_list = VTABLE_get_attr_str(interp, call_object, CONST_STRING(interp, "returns"));
-    result_sig   = VTABLE_get_attr_str(interp, call_object, CONST_STRING(interp, "return_flags"));
+    GETATTR_CallSignature_results(interp, call_object, result_list);
+    GETATTR_CallSignature_return_flags(interp, call_object, result_sig);
     result_count = PMC_IS_NULL(result_list) ? 0 : VTABLE_elements(interp, result_list);
     PARROT_ASSERT(PMC_IS_NULL(result_list) || !PMC_IS_NULL(result_sig));