From: simonmar <unknown>
Date: Wed, 19 Apr 2000 09:12:10 +0000 (+0000)
Subject: [project @ 2000-04-19 09:12:10 by simonmar]
X-Git-Tag: Approximately_9120_patches~4655
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5abb1668941d3a7756bb5788641032dc6fe4feb1;p=ghc-hetmet.git

[project @ 2000-04-19 09:12:10 by simonmar]
Fix a bug in previous commit, some .globls were getting thrown away.
---

diff --git a/ghc/driver/ghc-asm.lprl b/ghc/driver/ghc-asm.lprl
index 4b221fe..20d9043 100644
--- a/ghc/driver/ghc-asm.lprl
+++ b/ghc/driver/ghc-asm.lprl
@@ -795,10 +795,10 @@ sub mangle_asm {
             #
 	    if ( $TargetPlatform =~ /^i386/ && $to_move =~ /$TCOPYDIRVS/ ) {
 		$j = $i + 1;
-		while ( $j < ($numchks - 1)  && $chk[$j] =~ /$T_CONST_LBL/) {
+		while ( $j < $numchks  && $chk[$j] =~ /$T_CONST_LBL/) {
 			$j++;
 		}
-		if ( $j < ($numchks - 1)) {
+		if ( $j < $numchks ) {
 			$chk[$j] = $to_move . $chk[$j];
 	        }
 	    }