Mark PA dictionaries as __inline_me

8921711e · rl@cse.unsw.edu.au · dd5556ac · 8921711e
Commit 8921711e authored Jul 26, 2007 by rl@cse.unsw.edu.au
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/vectorise/VectType.hs compiler/vectorise/VectType.hs +1 -1

No files found.
--- 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