Commit 06c7fd3f authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a missing "entryCode"

This was causing us to try to jump to the address of an infotable when
unregisterised, leading to a segfault.
parent a8b5e840
...@@ -191,7 +191,7 @@ performTailCall fun_info arg_amodes pending_assts ...@@ -191,7 +191,7 @@ performTailCall fun_info arg_amodes pending_assts
-- No, enter the closure. -- No, enter the closure.
; enterClosure ; enterClosure
; labelC is_constr ; labelC is_constr
; stmtC (CmmJump (CmmLit (CmmLabel lbl)) []) ; stmtC (CmmJump (entryCode $ CmmLit (CmmLabel lbl)) [])
} }
{- {-
-- This is a scrutinee for a case expression -- This is a scrutinee for a case expression
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment