[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 (file)
--- 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];
                }
            }