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

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Oct  4 15:14:12 2009
New Revision: 41695
URL: https://trac.parrot.org/parrot/changeset/41695

Log:
Fix handling /B/ in nci nativecall builder. Claim one more passing test.

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

Modified: branches/pcc_reapply/tools/build/nativecall.pl
==============================================================================
--- branches/pcc_reapply/tools/build/nativecall.pl	Sun Oct  4 14:19:37 2009	(r41694)
+++ branches/pcc_reapply/tools/build/nativecall.pl	Sun Oct  4 15:14:12 2009	(r41695)
@@ -312,14 +312,13 @@
         return "Buffer_bufstart(t_$temp_num)";
     };
     /B/ && do {
-        push @{$temps_ref},           "char *s_$temp_num;";
         push @{$temps_ref},           "char *t_$temp_num;";
         push @{$temps_ref},           "char** v_$temp_num = &t_$temp_num;";
         push @{$temps_ref},           "STRING *ts_$temp_num;";
         push @{$fill_params_ref},     "&ts_$temp_num";
         push @{$extra_preamble_ref},
             "t_$temp_num = ts_$temp_num ? Parrot_str_to_cstring(interp, ts_$temp_num) : (char *) NULL;";
-        push @{$extra_postamble_ref}, "do { if (s_$temp_num) Parrot_str_free_cstring(s_$temp_num); } while (0);";
+        push @{$extra_postamble_ref}, "do { if (t_$temp_num) Parrot_str_free_cstring(t_$temp_num); } while (0);";
         return "v_$temp_num";
     };
     /J/ && do {