From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Thu, 26 Jul 2007 05:30:01 +0000 (+0000)
Subject: Mark PA dictionaries as __inline_me
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8921711ed3b5008f30ce53ba934cf50fb0745d4e

Mark PA dictionaries as __inline_me
---

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