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
59250dce
Commit
59250dce
authored
May 27, 2016
by
Ömer Sinan Ağacan
Browse files
StgCmmExpr: Remove a redundant list
parent
72fd407e
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/codeGen/StgCmmExpr.hs
View file @
59250dce
...
...
@@ -404,7 +404,7 @@ cgCase (StgApp v []) bndr alt_type@(PrimAlt _) alts
;
v_info
<-
getCgIdInfo
v
;
emitAssign
(
CmmLocal
(
idToReg
dflags
(
NonVoid
bndr
)))
(
idInfoToAmode
v_info
)
;
bindArg
s
ToReg
s
[
NonVoid
bndr
]
;
bindArgToReg
(
NonVoid
bndr
)
;
cgAlts
(
NoGcInAlts
,
AssignedDirectly
)
(
NonVoid
bndr
)
alt_type
alts
}
where
reps_compatible
=
idPrimRep
v
==
idPrimRep
bndr
...
...
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