diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-03 17:25:47 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-03 17:25:47 +0100 |
| commit | da3362247b72531e1355748d1fdbc2c954a3f300 (patch) | |
| tree | 137c904594794fcb68587a1a4c0b697a7572455c /compiler/codeGen/ClosureInfo.lhs | |
| parent | 4f15146c1772ffe1b9d59df3239081f72f423801 (diff) | |
| download | haskell-da3362247b72531e1355748d1fdbc2c954a3f300.tar.gz | |
Remove doingTickyProfiling
It's now just 'dopt Opt_Ticky'
Diffstat (limited to 'compiler/codeGen/ClosureInfo.lhs')
| -rw-r--r-- | compiler/codeGen/ClosureInfo.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs index d3db24ce4c..ae05bffbb8 100644 --- a/compiler/codeGen/ClosureInfo.lhs +++ b/compiler/codeGen/ClosureInfo.lhs @@ -689,7 +689,7 @@ getCallMethod _dflags _name _caf (LFThunk _ _ _updatable _std_form_info is_fun) -- So the right thing to do is just to enter the thing -- Old version: --- | updatable || doingTickyProfiling dflags -- to catch double entry +-- | updatable || dopt Opt_Ticky dflags -- to catch double entry -- = EnterIt -- | otherwise -- Jump direct to code for single-entry thunks -- = JumpToIt (thunkEntryLabel name caf std_form_info updatable) |