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:
0f55a79
)
[project @ 1997-09-04 20:21:59 by sof]
author
sof
<unknown>
Thu, 4 Sep 1997 20:21:59 +0000
(20:21 +0000)
committer
sof
<unknown>
Thu, 4 Sep 1997 20:21:59 +0000
(20:21 +0000)
ppr wibble
ghc/compiler/absCSyn/PprAbsC.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/absCSyn/PprAbsC.lhs
b/ghc/compiler/absCSyn/PprAbsC.lhs
index
23c530b
..
bfa229b
100644
(file)
--- a/
ghc/compiler/absCSyn/PprAbsC.lhs
+++ b/
ghc/compiler/absCSyn/PprAbsC.lhs
@@
-76,8
+76,8
@@
call to a cost evaluation function @GRAN_EXEC@. For that,
writeRealC :: Handle -> AbstractC -> IO ()
writeRealC handle absC = printDoc LeftMode handle (pprAbsC PprForC absC (costs absC))
writeRealC :: Handle -> AbstractC -> IO ()
writeRealC handle absC = printDoc LeftMode handle (pprAbsC PprForC absC (costs absC))
-dumpRealC :: AbstractC -> String
-dumpRealC absC = show (pprAbsC PprForC absC (costs absC))
+dumpRealC :: AbstractC -> Doc
+dumpRealC absC = pprAbsC PprForC absC (costs absC)
\end{code}
This emits the macro, which is used in GrAnSim to compute the total costs
\end{code}
This emits the macro, which is used in GrAnSim to compute the total costs