diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-07-26 05:30:01 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-07-26 05:30:01 +0000 |
| commit | 8921711ed3b5008f30ce53ba934cf50fb0745d4e (patch) | |
| tree | d0d09acdcabd15a5f888db8854f5ebde304b6e5b | |
| parent | dd5556ace6f1943ee5d6dbb7321f1c51d52bebb7 (diff) | |
| download | haskell-8921711ed3b5008f30ce53ba934cf50fb0745d4e.tar.gz | |
Mark PA dictionaries as __inline_me
| -rw-r--r-- | compiler/vectorise/VectType.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs index 5873469642..d2a9b06398 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 |