Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
72fd407e
Commit
72fd407e
authored
May 27, 2016
by
Simon Peyton Jones
Browse files
Comments and white space only
parent
b43a7936
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/codeGen/StgCmmClosure.hs
View file @
72fd407e
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment