From 8921711ed3b5008f30ce53ba934cf50fb0745d4e Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Thu, 26 Jul 2007 05:30:01 +0000 Subject: [PATCH] Mark PA dictionaries as __inline_me --- compiler/vectorise/VectType.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs index 5873469..d2a9b06 100644 --- a/compiler/vectorise/VectType.hs +++ b/compiler/vectorise/VectType.hs @@ -299,7 +299,7 @@ buildPADict (PAInstance { pa_dc <- builtin paDictDataCon let dict = mkConApp pa_dc (Type (mkTyConApp vect_tc arg_tys) : meth_exprs) body = Let (Rec meth_binds) dict - return [(instanceDFunId inst, abstract body)] + return [(instanceDFunId inst, mkInlineMe $ abstract body)] where tvs = tyConTyVars arr_tc arg_tys = mkTyVarTys tvs -- 1.7.10.4