From: Ian Lynagh <igloo@earth.li>
Date: Sat, 25 Aug 2007 17:12:31 +0000 (+0000)
Subject: Add a missing "entryCode"
X-Git-Tag: Before_type_family_merge~6
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=06c7fd3fd47dade1c07f200ea8b7e34fc703e6e5

Add a missing "entryCode"
This was causing us to try to jump to the address of an infotable when
unregisterised, leading to a segfault.
---

diff --git a/compiler/codeGen/CgTailCall.lhs b/compiler/codeGen/CgTailCall.lhs
index e25e794..cd51fba 100644
--- a/compiler/codeGen/CgTailCall.lhs
+++ b/compiler/codeGen/CgTailCall.lhs
@@ -191,7 +191,7 @@ performTailCall fun_info arg_amodes pending_assts
                    -- No, enter the closure.
                    ; enterClosure
                    ; labelC is_constr
-                   ; stmtC (CmmJump (CmmLit (CmmLabel lbl)) [])
+                   ; stmtC (CmmJump (entryCode $ CmmLit (CmmLabel lbl)) [])
                    }
 {-
               -- This is a scrutinee for a case expression