# New Ticket Created by Kevin Falcone
# Please include the string: [netlabs #585]
# in the subject line of all future correspondence about this issue.
# <URL: http://bugs6.perl.org/rt2/Ticket/Display.html?id=585 >
Brent added a patch to make the assembler notice when people leave end
off their .pasm file. Unfortunately, it is in a part of code which
sometimes isn't reached, causing a flurry of spurious warnings during
a make test. This fixes it by testing elsewhere also.
-kevin
RCS file: /cvs/public/parrot/lib/Parrot/Assembler.pm,v
retrieving revision 1.21
diff -u -u -p -r1.21 Assembler.pm
--- lib/Parrot/Assembler.pm 15 May 2002 20:41:07 -0000 1.21
+++ lib/Parrot/Assembler.pm 15 May 2002 23:17:40 -0000
@@ -1074,6 +1074,8 @@ sub handle_operator {
$opcode = lc $opcode;
+ $seen_end=1 if $opcode eq 'end';
+
if (!exists $opcodes{$opcode}) {
$opcode = find_correct_opcode($opcode, @args);
}
--
Any sufficiently advanced technology is indistinguishable from a
rigged demo. BSD fortune file
