Changeset 6248 for src/Pugs/CodeGen/PIR.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/PIR.hs (modified) (3 diffs)

src/Pugs/CodeGen/PIR.hs

@@ -19 +19 @@
 import Pugs.Types
 import Pugs.Eval.Var
+import Pugs.PIL1
 import Emit.PIR
 import Pugs.Pretty
@@ -338 +339 @@
     local (\env -> env{ envDebug = Nothing }) $ do
         opEval style "<prelude-pir>" preludeStr
-    glob        <- askGlobal
-    main        <- asks envBody
-    globPIL     <- compile glob
-    mainPIL     <- compile main
-    globPIR     <- runCodeGenGlob tenv globPIL
-    mainPIR     <- runCodeGenMain tenv mainPIL
+    penv        <- compile ()
+    globPIR     <- runCodeGenGlob tenv (pilGlob penv)
+    mainPIR     <- runCodeGenMain tenv (pilMain penv)
     libs        <- liftIO $ getLibs
     return . VStr . unlines $
@@ -385 +383 @@
             , InsNew tempPMC PerlScalar
             , "store_global"    .- [lit "$_", tempPMC]
-            ]) ++ [ StmtRaw (text (name ++ "()")) | PSub name@('_':'_':_) _ _ _ <- globPIL] ++
+            ]) ++ [ StmtRaw (text (name ++ "()")) | PSub name@('_':'_':_) _ _ _ <- pilGlob penv ] ++
             [ StmtRaw (text "main()")
             , StmtIns $ tempPMC  <-- "find_global" $ [lit "Perl6::Internals", lit "&exit"]