cvs commit: parrot assemble.pl

[jgoff]

cvsuser     02/09/05 21:57:45

  Modified:    .        assemble.pl
  Log:
  Patch #16960 - Disallow duplicate global labels from Leopold Toetsch.
  
  Revision  Changes    Path
  1.92      +1 -0      parrot/assemble.pl
  
  Index: assemble.pl
  ===================================================================
  RCS file: /cvs/public/parrot/assemble.pl,v
  retrieving revision 1.91
  retrieving revision 1.92
  diff -u -w -r1.91 -r1.92
  --- assemble.pl       24 Aug 2002 17:11:35 -0000      1.91
  +++ assemble.pl       6 Sep 2002 04:57:45 -0000       1.92
  @@ -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
         }
       }