This patch saves 25K on my optimized-for-size build of Parrot:
--- ops2c.pl 4 Mar 2002 02:58:22 -0000 1.19
+++ ops2c.pl 10 Mar 2002 02:05:56 -0000
@@ -248,7 +248,8 @@
#print STDERR "Top level op chars: ", keys %$remembered_ops, "\n";
-generate_switch($remembered_ops);
+#BD 9 March 2002: Cuts core size by 50K on my box
+#generate_switch($remembered_ops);
print SOURCE <<END_C;
}
Seriously:
C:\Brent\Visual Studio Projects\Perl 6\parrot-cvs\parrot>dir
test_parrot.exe
Volume in drive C is DEEP BLUE 1
Volume Serial Number is 1E37-0FF2
Directory of C:\Brent\Visual Studio Projects\Perl 6\parrot-cvs\parrot
03/05/2002 13:37 249,856 test_parrot.exe
1 File(s) 249,856 bytes
0 Dir(s) 1,169,391,616 bytes free
C:\Brent\Visual Studio Projects\Perl 6\parrot-cvs\parrot>dir
test_parrot.exe
Volume in drive C is DEEP BLUE 1
Volume Serial Number is 1E37-0FF2
Directory of C:\Brent\Visual Studio Projects\Perl 6\parrot-cvs\parrot
03/09/2002 18:01 225,280 test_parrot.exe
1 File(s) 225,280 bytes
0 Dir(s) 1,169,489,920 bytes free
The real solution is to use a hash lookup, but I don't want to implement
something that complicated. :^)
--Brent Dax <[EMAIL PROTECTED]>
@roles=map {"Parrot $_"} qw(embedding regexen Configure)
#define private public
--Spotted in a C++ program just before a #include
