From 80726505b552997c21b619e220fb72909ca8e3f2 Mon Sep 17 00:00:00 2001 From: sewardj Date: Wed, 6 Dec 2000 17:27:17 +0000 Subject: [PATCH] [project @ 2000-12-06 17:27:17 by sewardj] #ifdef wibbles --- ghc/compiler/main/HscMain.lhs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs index 2d85faf..3302937 100644 --- 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 ByteCodeGen ( byteCodeGen ) #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 + --let bcos = byteCodeGen tidy_binds + --putStrLn (showSDoc (vcat (map ppr bcos))) + -- _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 - stg_expr <- coreToStgExpr dflags sat_expr; + let stg_expr = coreExprToStg sat_expr; -- ToDo: need to do SRTs? -- 1.7.10.4