diff options
| author | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-09-18 09:25:56 +0100 |
|---|---|---|
| committer | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-09-18 10:14:33 +0100 |
| commit | 7a4c15a0ee045ac5d2b48865997c7f5e8697afa3 (patch) | |
| tree | 0a11f85c2714a39b7b8bba95946e5ee738242090 /compiler/codeGen/StgCmmExpr.hs | |
| parent | b626989d737521617e90327bcc2814a9c2ba8231 (diff) | |
| download | haskell-7a4c15a0ee045ac5d2b48865997c7f5e8697afa3.tar.gz | |
Add flag to control loopification
It is off by default, which is meant to be a workaround for #8275.
Once #8275 is fixed we will enable this option by default.
Diffstat (limited to 'compiler/codeGen/StgCmmExpr.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmExpr.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs index c7fddd49dc..2f2cdbba14 100644 --- a/compiler/codeGen/StgCmmExpr.hs +++ b/compiler/codeGen/StgCmmExpr.hs @@ -744,7 +744,12 @@ cgIdApp fun_id args = do -- recursive tail call when (a) environment stores information about -- possible self tail-call; (b) that tail call is to a function currently -- being compiled; (c) number of passed arguments is equal to function's --- arity. +-- arity. (d) loopification is turned on via -floopification command-line +-- option. +-- +-- * Command line option to control turn loopification on and off is +-- implemented in DynFlags +-- emitEnter :: CmmExpr -> FCode ReturnKind |