projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8fd6a1e
)
Correct an IsFunction that should be IsData
author
Ian Lynagh
<igloo@earth.li>
Sat, 7 Feb 2009 00:58:34 +0000
(
00:58
+0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 7 Feb 2009 00:58:34 +0000
(
00:58
+0000)
compiler/cmm/CmmParse.y
patch
|
blob
|
history
diff --git
a/compiler/cmm/CmmParse.y
b/compiler/cmm/CmmParse.y
index
e488a66
..
1030895
100644
(file)
--- a/
compiler/cmm/CmmParse.y
+++ b/
compiler/cmm/CmmParse.y
@@
-203,7
+203,7
@@
static :: { ExtFCode [CmmStatic] }
| 'CLOSURE' '(' NAME lits ')'
{ do lits <- sequence $4;
return $ map CmmStaticLit $
- mkStaticClosure (mkForeignLabel $3 Nothing True IsFunction)
+ mkStaticClosure (mkForeignLabel $3 Nothing True IsData)
-- mkForeignLabel because these are only used
-- for CHARLIKE and INTLIKE closures in the RTS.
dontCareCCS (map getLit lits) [] [] [] }