dan 01/09/07 13:07:25
Modified: . assemble.pl
Log:
Much less picky about whitespace in the opcode_table now. (Doesn't whine
on blank lines)
Revision Changes Path
1.3 +1 -0 parrot/assemble.pl
Index: assemble.pl
===================================================================
RCS file: /home/perlcvs/parrot/assemble.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- assemble.pl 2001/09/07 15:23:39 1.2
+++ assemble.pl 2001/09/07 20:07:25 1.3
@@ -13,6 +13,7 @@
while (<OPCODES>) {
next if /^\s*#/;
chomp;
+ s/^\s+//;
next unless $_;
my ($code, $name, $args, @types) = split /\s+/, $_;
$opcodes{$name} = {CODE => $code,
