From 24a7fdbd94bcf4dd99daf1cf45bfbc81a09e36dd Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 18 Aug 2000 13:30:35 +0000 Subject: [PATCH] [project @ 2000-08-18 13:30:35 by simonmar] Disable jump tables for the time being; the register allocator gets confused about them. --- ghc/compiler/nativeGen/AbsCStixGen.lhs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/nativeGen/AbsCStixGen.lhs b/ghc/compiler/nativeGen/AbsCStixGen.lhs index 7b0cc21..ebc7aee 100644 --- 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 -- 1.7.10.4