[svn:parrot] r17055 - branches/buildtools/lib/Parrot/Ops2c

[jkeenan]

Author: jkeenan
Date: Mon Feb 19 06:26:10 2007
New Revision: 17055

Modified:
   branches/buildtools/lib/Parrot/Ops2c/Utils.pm

Log:
Restored 'run_core_split' block.  Changed message about inadequate hash size
from tools/build/ops2c.pl to lib/Parrot/Ops2c/Utils.pm.


Modified: branches/buildtools/lib/Parrot/Ops2c/Utils.pm
==============================================================================
--- branches/buildtools/lib/Parrot/Ops2c/Utils.pm       (original)
+++ branches/buildtools/lib/Parrot/Ops2c/Utils.pm       Mon Feb 19 06:26:10 2007
@@ -423,12 +423,12 @@
     # Finish the SOURCE file's array initializer:
     my $CORE_SPLIT = 300;
     for ( my $i = 0 ; $i < @op_funcs ; $i++ ) {
-#        if ( $i && 
-#            $i % $CORE_SPLIT == 0 && 
-#            $self->{trans}->can("run_core_split") )
-#        {
-#            print $fh $self->{trans}->run_core_split($self->{base});
-#        }
+        if ( $i && 
+            $i % $CORE_SPLIT == 0 && 
+            $self->{trans}->can("run_core_split") )
+        {
+            print $fh $self->{trans}->run_core_split($self->{base});
+        }
         print $fh $op_funcs[$i];
     }
 
@@ -629,7 +629,7 @@
         my $hash_size = 3041;
         my $tot = $self->{index} + scalar keys(%{$self->{names}});
         if ( $hash_size < $tot * 1.2 ) {
-            print STDERR "please increase hash_size ($hash_size) in 
tools/build/ops2c.pl "
+            print STDERR "please increase hash_size ($hash_size) in 
lib/Parrot/Ops2c/Utils.pm "
                 . "to a prime number > ", $tot * 1.2, "\n";
         }
         print $fh <<END_C;