diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2016-05-27 14:38:25 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2016-05-27 14:38:44 +0100 |
| commit | 72fd407e15c7cc1d1ad671d6b4cd184a40ea2a61 (patch) | |
| tree | f4353687005aa8ad9b488eb10e30f7cdc0e19c28 /compiler/codeGen/StgCmmClosure.hs | |
| parent | b43a7936ebf77bce744d50a131d686c83f63e60b (diff) | |
| download | haskell-72fd407e15c7cc1d1ad671d6b4cd184a40ea2a61.tar.gz | |
Comments and white space only
Diffstat (limited to 'compiler/codeGen/StgCmmClosure.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmClosure.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs index f9d0990576..d76eedd70c 100644 --- a/compiler/codeGen/StgCmmClosure.hs +++ b/compiler/codeGen/StgCmmClosure.hs @@ -169,7 +169,7 @@ data LambdaFormInfo -- Imported things which we *do* know something about use -- one of the other LF constructors (eg LFReEntrant for -- known functions) - !Bool -- True <=> *might* be a function type + !Bool -- True <=> *might* be a function type -- The False case is good when we want to enter it, -- because then we know the entry code will do -- For a function, the entry code is the fast entry point @@ -212,9 +212,9 @@ data StandardFormInfo mkLFArgument :: Id -> LambdaFormInfo mkLFArgument id - | isUnliftedType ty = LFUnlifted + | isUnliftedType ty = LFUnlifted | might_be_a_function ty = LFUnknown True - | otherwise = LFUnknown False + | otherwise = LFUnknown False where ty = idType id @@ -534,6 +534,8 @@ getCallMethod _ _name _ LFUnlifted n_args _v_args _cg_loc _self_loop_info getCallMethod _ _name _ (LFCon _) n_args _v_args _cg_loc _self_loop_info = ASSERT( n_args == 0 ) ReturnIt + -- n_args=0 because it'd be ill-typed to apply a saturated + -- constructor application to anything getCallMethod dflags name id (LFThunk _ _ updatable std_form_info is_fun) n_args _v_args _cg_loc _self_loop_info |