[project @ 2000-08-18 13:30:35 by simonmar]

Disable jump tables for the time being; the register allocator gets confused about them.

diff --git a/ghc/compiler/nativeGen/AbsCStixGen.lhs b/ghc/compiler/nativeGen/AbsCStixGen.lhs
index 7b0cc21..ebc7aee 100644 (file)
--- a/ghc/compiler/nativeGen/AbsCStixGen.lhs
+++ b/ghc/compiler/nativeGen/AbsCStixGen.lhs
@@ -506,7 +506,9 @@ be tuned.)
        highest = if floating then targetMaxDouble else targetMaxInt
     in
        (
-       if not floating && choices > 4 && highTag - lowTag < toInteger (2 * choices) then
+       if False && -- jump tables disabled for now until the register allocator is
+                   -- fixed to cope with them --SDM 18/8/2000
+          not floating && choices > 4 && highTag - lowTag < toInteger (2 * choices) then
            mkJumpTable am' sortedAlts lowTag highTag udlbl
        else
            mkBinaryTree am' floating sortedAlts choices lowest highest udlbl