Changeset 4911 for src/Pugs/Compile/PIR.hs

Timestamp:

06/22/05 19:19:04 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* So much for not compromising... change the := ?? :: line

in Test.pm so it can work with PIR.

Files:

• src/Pugs/Compile/PIR.hs (modified) (4 diffs)

src/Pugs/Compile/PIR.hs

@@ -182 +182 @@
 instance Compile (SubName, VCode) [PIL Decl] where
     compile (name, vsub) | packageOf name /= packageOf (subName vsub) = do
-        let storeC  = PAssign [PVar $ qualify name] (PExp . PVar . qualify $ subName vsub)
+        let storeC  = PBind [PVar $ qualify name] (PExp . PVar . qualify $ subName vsub)
             bodyC   = PStmts (PStmt . PExp $ storeC) PNil
             exportL = "__export_" ++ (render $ varText name)
@@ -473 +473 @@
         tellIns $ lhsC <== rhsC
         return lhsC
+    trans (PBind [PVar name] rhs)
+        | Just (pkg, name') <- isQualified (qualify name) = do
+        rhsC    <- trans rhs
+        tellIns $ "store_global" .- [lit pkg, lit name', rhsC]
+        trans (PVar name)
     trans (PBind [lhs] rhs) = do
         lhsC    <- enter tcLValue $ trans lhs
@@ -498 +503 @@
             then mapM trans (head args : map PThunk (tail args))
             else mapM trans args
+        -- XXX WORKAROUND PARROT BUG (see below)
+        pmc     <- genLV "app"
+        -- XXX - probe if funC is slurpy, then modify ExpLV pmc accordingly
+        tellIns $ [reg pmc] <-& funC $ argsC
+        return pmc
+        {- XXX PARROT BUG -- tailcall broken
         case cxt of
             TTailCall _ -> do
@@ -507 +518 @@
                 tellIns $ [reg pmc] <-& funC $ argsC
                 return pmc
+        -}
         where
         -- XXX HACK