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:
e1e233a
)
[project @ 2000-12-06 17:27:17 by sewardj]
author
sewardj
<unknown>
Wed, 6 Dec 2000 17:27:17 +0000
(17:27 +0000)
committer
sewardj
<unknown>
Wed, 6 Dec 2000 17:27:17 +0000
(17:27 +0000)
#ifdef wibbles
ghc/compiler/main/HscMain.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/main/HscMain.lhs
b/ghc/compiler/main/HscMain.lhs
index
2d85faf
..
3302937
100644
(file)
--- a/
ghc/compiler/main/HscMain.lhs
+++ b/
ghc/compiler/main/HscMain.lhs
@@
-18,6
+18,7
@@
import StringBuffer ( stringToStringBuffer, freeStringBuffer )
import Unique ( Uniquable(..) )
import Type ( splitTyConApp_maybe )
import PrelNames ( ioTyConKey )
import Unique ( Uniquable(..) )
import Type ( splitTyConApp_maybe )
import PrelNames ( ioTyConKey )
+import ByteCodeGen ( byteCodeGen )
#endif
import HsSyn
#endif
import HsSyn
@@
-372,6
+373,9
@@
myCoreToStg dflags this_mod tidy_binds
-- simplifier, which for reasons I don't understand, persists
-- thoroughout code generation
-- simplifier, which for reasons I don't understand, persists
-- thoroughout code generation
+ --let bcos = byteCodeGen tidy_binds
+ --putStrLn (showSDoc (vcat (map ppr bcos)))
+
-- _scc_ "Core2Stg"
stg_binds <- coreToStg dflags this_mod tidy_binds
-- _scc_ "Core2Stg"
stg_binds <- coreToStg dflags this_mod tidy_binds
@@
-456,7
+460,7
@@
hscExpr dflags hst hit pcs0 this_module expr
sat_expr <- coreSatExpr dflags simpl_expr;
-- Convert to STG
sat_expr <- coreSatExpr dflags simpl_expr;
-- Convert to STG
- stg_expr <- coreToStgExpr dflags sat_expr;
+ let stg_expr = coreExprToStg sat_expr;
-- ToDo: need to do SRTs?
-- ToDo: need to do SRTs?