diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2015-07-08 21:09:33 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2015-07-10 19:41:07 +0200 |
| commit | 9b1ebba2af060fef90dcd722313d3f8041ec5a97 (patch) | |
| tree | cea0c5bf5971230ac13ebc0cb5777f03bb9de118 /compiler/codeGen | |
| parent | 2d06a9f19d5b3ab8c3ff0b24f508c15bedae99d2 (diff) | |
| download | haskell-9b1ebba2af060fef90dcd722313d3f8041ec5a97.tar.gz | |
Delete the WayPar way
Also remove 't' and 's' from ALL_WAYS; they don't exist.
Differential Revision: https://phabricator.haskell.org/D1055
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmClosure.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs index 30671cab44..f5a722ebb6 100644 --- a/compiler/codeGen/StgCmmClosure.hs +++ b/compiler/codeGen/StgCmmClosure.hs @@ -514,13 +514,6 @@ getCallMethod dflags _ id _ n_args _cg_loc (Just (self_loop_id, block_id, args)) -- See Note [Self-recursive tail calls] in StgCmmExpr for more details = JumpToIt block_id args -getCallMethod dflags _name _ lf_info _n_args _cg_loc _self_loop_info - | nodeMustPointToIt dflags lf_info && gopt Opt_Parallel dflags - = -- If we're parallel, then we must always enter via node. - -- The reason is that the closure may have been - -- fetched since we allocated it. - EnterIt - getCallMethod dflags name id (LFReEntrant _ arity _ _) n_args _cg_loc _self_loop_info | n_args == 0 = ASSERT( arity /= 0 ) |