# New Ticket Created by Leopold Toetsch # Please include the string: [perl #16960] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16960 >
imcc and assembler did allow duplicate labels. Fix for imcc is ready and follows with my other changes. Please apply, leo -- attachment 1 ------------------------------------------------------ url: http://rt.perl.org/rt2/attach/36393/29416/733a22/assemble.pl.diff
--- assemble.pl Sat Aug 24 20:31:59 2002 +++ /home/lt/src/parrot-leo/assemble.pl Tue Sep 3 11:03:21 2002 @@ -525,6 +525,7 @@ push @{$self->{local_labels}{$1}},$_->[1]; # Local label } else { + die("Label $1 already exists") if($self->{global_labels}{$1}); $self->{global_labels}{$1} = $_->[1]; # Global label } }