From 5abb1668941d3a7756bb5788641032dc6fe4feb1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 19 Apr 2000 09:12:10 +0000
Subject: [PATCH] [project @ 2000-04-19 09:12:10 by simonmar] Fix a bug in
previous commit, some .globls were getting thrown away.
---
ghc/driver/ghc-asm.lprl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/driver/ghc-asm.lprl b/ghc/driver/ghc-asm.lprl
index 4b221fe9ffb4..20d9043ca647 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];
}
}
--
GitLab