[svn:parrot] r41625 - branches/pcc_reapply/lib/Parrot/Pmc2c

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Sat Oct  3 00:39:01 2009
New Revision: 41625
URL: https://trac.parrot.org/parrot/changeset/41625

Log:
[pcc] named argument name strings in C-based PMCs were not being filled correctly because we were missing an ampersand on them. Fix that.

Modified:
   branches/pcc_reapply/lib/Parrot/Pmc2c/PCCMETHOD.pm

Modified: branches/pcc_reapply/lib/Parrot/Pmc2c/PCCMETHOD.pm
==============================================================================
--- branches/pcc_reapply/lib/Parrot/Pmc2c/PCCMETHOD.pm	Fri Oct  2 23:52:03 2009	(r41624)
+++ branches/pcc_reapply/lib/Parrot/Pmc2c/PCCMETHOD.pm	Sat Oct  3 00:39:01 2009	(r41625)
@@ -338,13 +338,13 @@
             push @{ $args->[ +(REGNO_STR) ] }, $argn;
             $signature .= 'Sn';
             $declarations .= "$tis $dummy_name = CONST_STRING_GEN(interp, $named_name);\n";
-            push @vararg_list, $dummy_name;
+            push @vararg_list, "&$dummy_name";
         }
 
         push @{ $args->[ $type ] }, $arg;
         $signature .= gen_arg_pcc_sig($arg);
         if ( $arg_type eq 'arg' ) {
-            my $tis  = $reg_type_info->{$type}{s};     #reg_type_info string
+            my $tis  = $reg_type_info->{$type}{"s"};     #reg_type_info string
             $declarations .= "$tis $name;\n";
             push @vararg_list, "&$name"
         }