From: simonmar <unknown>
Date: Fri, 18 Aug 2000 13:30:35 +0000 (+0000)
Subject: [project @ 2000-08-18 13:30:35 by simonmar]
X-Git-Tag: Approximately_9120_patches~3859
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=24a7fdbd94bcf4dd99daf1cf45bfbc81a09e36dd;p=ghc-hetmet.git

[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
--- 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