[svn:parrot] r43646 - trunk/tools/build

[plobsing at svn.parrot.org]

Author: plobsing
Date: Sat Jan 30 05:24:05 2010
New Revision: 43646
URL: https://trac.parrot.org/parrot/changeset/43646

Log:
eliminate return_type_decl field in nativecall.pl

Modified:
   trunk/tools/build/nativecall.pl

Modified: trunk/tools/build/nativecall.pl
==============================================================================
--- trunk/tools/build/nativecall.pl	Sat Jan 30 03:58:50 2010	(r43645)
+++ trunk/tools/build/nativecall.pl	Sat Jan 30 05:24:05 2010	(r43646)
@@ -89,7 +89,6 @@
 for (values %sig_table) {
     if (not exists $_->{as_return}) { $_->{as_return} = $_->{as_proto} }
     if (not exists $_->{return_type}) { $_->{return_type} = $_->{as_proto} }
-    if (not exists $_->{return_type_decl}) { $_->{return_type_decl} = $_->{return_type} }
     if (not exists $_->{ret_assign} and exists $_->{sig_char}) {
         $_->{ret_assign} = 'Parrot_pcc_fill_returns_from_c_args(interp, call_object, "'
                            . $_->{sig_char} . '", return_data);';
@@ -151,7 +150,7 @@
         push @nci_defs, create_function(
             $sig, $ret,
             $args, [@arg],
-            $ret_sig->{as_return}, $ret_sig->{return_type_decl},
+            $ret_sig->{as_return}, $ret_sig->{return_type},
             $ret_sig->{func_call_assign}, $ret_sig->{final_dest},
             $ret_sig->{ret_assign}, \@temps,
             \@fill_params, \@extra_preamble, \@extra_postamble,
@@ -162,7 +161,7 @@
         print {$NCI} create_function(
             $sig, $ret,
             $args, [@arg],
-            $ret_sig->{as_return}, $ret_sig->{return_type_decl},
+            $ret_sig->{as_return}, $ret_sig->{return_type},
             $ret_sig->{func_call_assign}, $ret_sig->{final_dest},
             $ret_sig->{ret_assign}, \@temps,
             \@fill_params, \@extra_preamble, \@extra_postamble,