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;