X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FStgCmm.hs;fp=compiler%2FcodeGen%2FStgCmm.hs;h=52809da5028614c1e6ad9924b3601156590ff992;hb=e4caa74b6c809cd17c5d1f7d472b9a47b2ea6f1c;hp=84edcce21c0fa9eb3aabb27a2177fa9470961b30;hpb=e4622dac19c0ea5ba60078667c57e03801cdc943;p=ghc-hetmet.git

diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs
index 84edcce..52809da 100644
--- a/compiler/codeGen/StgCmm.hs
+++ b/compiler/codeGen/StgCmm.hs
@@ -329,7 +329,8 @@ cgDataCon data_con
 	    (dyn_cl_info, arg_things) = layOutDynConstr data_con arg_reps
 
 	    emit_info cl_info ticky_code
-		= emitClosureAndInfoTable cl_info [] $ mk_code ticky_code
+		= emitClosureAndInfoTable cl_info NativeDirectCall []
+                                        $ mk_code ticky_code
 
 	    mk_code ticky_code
 	      = 	-- NB: We don't set CC when entering data (WDP 94/06)