projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
3b2322d
)
[project @ 2003-04-10 11:33:56 by simonpj]
author
simonpj
<unknown>
Thu, 10 Apr 2003 11:33:56 +0000
(11:33 +0000)
committer
simonpj
<unknown>
Thu, 10 Apr 2003 11:33:56 +0000
(11:33 +0000)
Comments
ghc/compiler/simplCore/SimplUtils.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/simplCore/SimplUtils.lhs
b/ghc/compiler/simplCore/SimplUtils.lhs
index
31f6315
..
b57b4b1
100644
(file)
--- a/
ghc/compiler/simplCore/SimplUtils.lhs
+++ b/
ghc/compiler/simplCore/SimplUtils.lhs
@@
-224,6
+224,9
@@
getContArgs chkr fun orig_cont
-- * (error "Hello") arg
-- * f (error "Hello") where f is strict
-- etc
+ -- Then, especially in the first of these cases, we'd like to discard
+ -- the continuation, leaving just the bottoming expression. But the
+ -- type might not be right, so we may have to add a coerce.
go acc ss inl cont
| null ss && discardableCont cont = (reverse acc, discardCont cont, inl)
| otherwise = (reverse acc, cont, inl)