Changeset 4909 for src/Pugs/Compile

Timestamp:

06/22/05 15:03:59 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* fix export aliasing and nesting in PIR compilation

Files:

• src/Pugs/Compile/PIR.hs (modified) (2 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  = PBind [PVar $ qualify name] (PExp . PVar . qualify $ subName vsub)
+        let storeC  = PAssign [PVar $ qualify name] (PExp . PVar . qualify $ subName vsub)
             bodyC   = PStmts (PStmt . PExp $ storeC) PNil
             exportL = "__export_" ++ (render $ varText name)
@@ -776 +776 @@
             , StmtIns ("exit" .- [lit0])
             ]
-        , DeclSub "main" [SubANON] [ StmtRaw $ nest 4 (emit mainPIR) ]
+        , DeclSub "main" [SubANON] [ StmtRaw $ emit mainPIR ]
         ] ] ]
     where