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

Timestamp:

06/20/05 01:56:56 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* assignment into arrays.

Files:

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

src/Pugs/Compile/PIR.hs

@@ -8 +8 @@
 import Emit.Common
 import Pugs.Types
+import Pugs.Eval
 import Emit.PIR
 import Pugs.Pretty
@@ -280 +281 @@
     compile exp@(Syn "until" _) = compLoop exp
     compile (Syn "{}" (x:xs)) = compile (App (Var "&postcircumfix:{}") (Just x) xs)
-    compile (Syn "[]" (x:xs)) = compile (App (Var "&postcircumfix:[]") (Just x) xs)
+    compile (Syn "[]" (x:xs)) = do
+        compile (App (Var "&postcircumfix:[]") (Just x) xs)
     compile (Syn "," exps) = do
         compile (App (Var "&infix:,") Nothing exps)
@@ -287 +289 @@
     compile (Syn "\\{}" exps) = do
         compile (App (Var "&circumfix:{}") Nothing exps)
-    compile (Syn "=" exps) = do
-        (lhsC, rhsC) <- compile exps
+    compile (Syn "=" [lhs, rhs]) = do
+        lhsC <- enterLValue $ compile lhs
+        rhsC <- enterRValue $ compile rhs
         return $ PAssign [lhsC] rhsC
     compile (Syn ":=" exps) = do
-        (lhsC, rhsC) <- compile exps
+        (lhsC, rhsC) <- enterLValue $ compile exps
         return $ PBind [lhsC] rhsC
     compile (Syn syn [lhs, exp]) | last syn == '=' = do
@@ -425 +428 @@
         tell $ map StmtIns $ callBlock appC blockC 
         return tempPMC
+    trans (PApp (TCxtLValue _) (PExp (PVar "&postcircumfix:[]")) [(PExp lhs), rhs]) = do
+        lhsC    <- trans lhs
+        rhsC    <- trans rhs
+        return (KEYED lhsC rhsC) 
     trans (PApp cxt fun args) = do
         funC    <- case fun of