diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2009-03-07 13:56:52 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2009-03-07 13:56:52 +0000 |
| commit | bee06bad431d372bd862b5c6e921d8fc87eaffc9 (patch) | |
| tree | d42aadd5b693906158553b6026571ac35d5085d8 /compiler/vectorise/VectCore.hs | |
| parent | 7a4a8360e8b7119485d10d073a984e617d6a0422 (diff) | |
| download | haskell-bee06bad431d372bd862b5c6e921d8fc87eaffc9.tar.gz | |
Generate lots of __inline_me during vectorisation
Diffstat (limited to 'compiler/vectorise/VectCore.hs')
| -rw-r--r-- | compiler/vectorise/VectCore.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/compiler/vectorise/VectCore.hs b/compiler/vectorise/VectCore.hs index c78f8cad16..6be1542134 100644 --- a/compiler/vectorise/VectCore.hs +++ b/compiler/vectorise/VectCore.hs @@ -8,12 +8,13 @@ module VectCore ( vVar, vType, vNote, vLet, vLams, vLamsWithoutLC, vVarApps, - vCaseDEFAULT, vCaseProd + vCaseDEFAULT, vCaseProd, vInlineMe ) where #include "HsVersions.h" import CoreSyn +import CoreUtils ( mkInlineMe ) import MkCore ( mkWildCase ) import CoreUtils ( exprType ) import DataCon ( DataCon ) @@ -90,3 +91,7 @@ vCaseProd (vscrut, lscrut) vty lty vdc ldc sh_bndrs bndrs [(DataAlt ldc, sh_bndrs ++ lbndrs, lbody)]) where (vbndrs, lbndrs) = unzip bndrs + +vInlineMe :: VExpr -> VExpr +vInlineMe (vexpr, lexpr) = (mkInlineMe vexpr, mkInlineMe lexpr) + |