[svn:parrot] r40663 - trunk/lib/Parrot/Pmc2c

[NotFound at svn.parrot.org]

Author: NotFound
Date: Wed Aug 19 18:08:52 2009
New Revision: 40663
URL: https://trac.parrot.org/parrot/changeset/40663

Log:
[pmc] move _temp_multi_func_list to a narrower scope to not create it until pass 1

Modified:
   trunk/lib/Parrot/Pmc2c/PMCEmitter.pm

Modified: trunk/lib/Parrot/Pmc2c/PMCEmitter.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PMCEmitter.pm	Wed Aug 19 18:02:12 2009	(r40662)
+++ trunk/lib/Parrot/Pmc2c/PMCEmitter.pm	Wed Aug 19 18:08:52 2009	(r40663)
@@ -582,14 +582,6 @@
     $cout .= "\";\n";
 
     my $const = ( $self->{flags}{dynpmc} ) ? " " : " const ";
-    if ( @$multi_funcs ) {
-        $cout .= $multi_strings . <<"EOC";
-
-   $const multi_func_list _temp_multi_func_list[] = {
-        $multi_list
-    };
-EOC
-    }
 
     my $flags = $self->vtable_flags;
     $cout .= <<"EOC";
@@ -730,7 +722,11 @@
 
 
     if ( @$multi_funcs ) {
-        $cout .= <<"EOC";
+        $cout .= $multi_strings . <<"EOC";
+
+            $const multi_func_list _temp_multi_func_list[] = {
+                $multi_list
+            };
 #define N_MULTI_LIST (sizeof(_temp_multi_func_list)/sizeof(_temp_multi_func_list[0]))
             Parrot_mmd_add_multi_list_from_c_args(interp,
                 _temp_multi_func_list, N_MULTI_LIST);