Changeset 7853 for src/Pugs/CodeGen/PIR.hs

Timestamp:

11/05/05 20:23:35 (3 years ago)

Author:

autrijus

Message:

* Parrot 0.3.1 doesn't allow set_addr for Closure, so use

newclosure instead.

Files:

• src/Pugs/CodeGen/PIR.hs (modified) (1 diff)

src/Pugs/CodeGen/PIR.hs

@@ -110 +110 @@
         [begL, endL] <- genLabel ["blockBegin", "blockEnd"]
         this    <- genPMC "block"
-        tellIns $ InsNew (reg this) Closure
-        tellIns $ "set_addr" .- [reg this, bare begL]
+        let begP = begL ++ "_C"
+        tellIns $ InsConst (VAR begP) Sub (lit begL)
+        tellIns $ reg this <-- "newclosure" $ [bare begP]
         tellIns $ "goto" .- [bare endL]
         tellLabel begL