[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