From a5013199cb8f36c43b3c9718ab5e320ce01507d1 Mon Sep 17 00:00:00 2001
From: "Ben.Lippmeier@anu.edu.au" <unknown>
Date: Wed, 21 Jan 2009 00:37:29 +0000
Subject: [PATCH] SPARC NCG: fill branch delay slot after tabled jump (doh!)

---
 compiler/nativeGen/MachCodeGen.hs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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"
-- 
1.7.10.4