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

Timestamp:

06/20/05 19:23:02 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* loop and bare blocks at value position now Really Works (tm).

Files:

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

src/Pugs/Compile/PIR.hs

@@ -335 +335 @@
     compile (Cxt cxt rest) = enter cxt $ compile rest
     compile (Var name) = return . PExp $ PVar name
+    compile exp@(Val (VCode _)) = compile (Syn "sub" [exp])
     compile (Val val) = fmap PLit (compile val)
     compile Noop = compile (Val undef)
@@ -436 +437 @@
     trans (PApp _ exp@(PBlock _) []) = do
         blockC  <- trans exp
-        [appC] <- genLabel ["invokeBlock"]
-        tell $ map StmtIns $ callBlock appC blockC 
+        tellIns $ [reg tempPMC] <-& blockC $ []
         return tempPMC
     trans (PApp (TCxtLValue _) (PExp (PVar "&postcircumfix:[]")) [(PExp lhs), rhs]) = do