[svn:parrot] r41611 - branches/pcc_reapply/tools/build

allison at svn.parrot.org allison at svn.parrot.org
Fri Oct 2 12:14:42 UTC 2009


Author: allison
Date: Fri Oct  2 12:14:40 2009
New Revision: 41611
URL: https://trac.parrot.org/parrot/changeset/41611

Log:
[pcc] Fetch the current call signature object into the NCI stub, so it can be
used for extracting params and storing return values.

Modified:
   branches/pcc_reapply/tools/build/nativecall.pl

Modified: branches/pcc_reapply/tools/build/nativecall.pl
==============================================================================
--- branches/pcc_reapply/tools/build/nativecall.pl	Fri Oct  2 06:38:08 2009	(r41610)
+++ branches/pcc_reapply/tools/build/nativecall.pl	Fri Oct  2 12:14:40 2009	(r41611)
@@ -346,7 +346,10 @@
     $other_decl ||= "";
 
     $other_decl .= join( "\n    ", @{$temps_ref} );
-    my $call_object_decl = 'PMC *call_object;';
+    my $call_object_decl = <<"CALLOBJECT";
+    PMC *ctx         = CURRENT_CONTEXT(interp);
+    PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
+CALLOBJECT
     my $extra_preamble   = join( "\n    ", @{$extra_preamble_ref} );
     my $extra_postamble  = join( "\n    ", @{$extra_postamble_ref} );
     my $return_data_decl =


More information about the parrot-commits mailing list