From: Ben.Lippmeier@anu.edu.au <unknown>
Date: Wed, 21 Jan 2009 00:37:29 +0000 (+0000)
Subject: SPARC NCG: fill branch delay slot after tabled jump (doh!)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a5013199cb8f36c43b3c9718ab5e320ce01507d1

SPARC NCG: fill branch delay slot after tabled jump (doh!)
---

diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs
index 4228c6c..5d67d0d 100644
--- a/compiler/nativeGen/MachCodeGen.hs
+++ b/compiler/nativeGen/MachCodeGen.hs
@@ -4206,7 +4206,8 @@ genSwitch expr ids
 
 			-- load and jump to the destination
 			, LD 	II32 (AddrRegReg base_reg offset_reg) dst
-			, JMP   (AddrRegImm dst (ImmInt 0)) ]
+			, JMP   (AddrRegImm dst (ImmInt 0)) 
+			, NOP ]
 
 #else
 #error "ToDo: genSwitch"