Changeset 6248 for src/Pugs/CodeGen/PIL.hs

Timestamp:

08/14/05 17:32:14 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

8452

Message:

* -CBinary - dump PIL1 tree as opaque GhcBinary? file for fast loading.

Files:

• src/Pugs/CodeGen/PIL.hs (modified) (1 diff)

src/Pugs/CodeGen/PIL.hs

@@ -5 +5 @@
 import Pugs.Internals
 import Pugs.AST
+import Pugs.PIL1
 import Pugs.Compile
 
 genPIL :: Eval Val
 genPIL = do
-    glob        <- askGlobal
-    main        <- asks envBody
-    globPIL     <- compile glob :: Eval [PIL_Decl]
-    mainPIL     <- compile main :: Eval PIL_Stmts
+    penv <- compile ()
     return . VStr . unlines $
         [ "PIL_Environment"
-        , "    { pilMain = (" ++ show mainPIL ++ ")"
-        , "    , pilGlob = (" ++ show globPIL ++ ")"
+        , "    { pilMain = (" ++ show (pilMain penv) ++ ")"
+        , "    , pilGlob = (" ++ show (pilGlob penv) ++ ")"
         , "    }"
         ]