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

Timestamp:

11/05/05 15:06:37 (3 years ago)

Author:

autrijus

Message:

* Repair PIR codegen; use "new .Continuation" instead of

the old style "newsub" op. Suggested by Leo.

Files:

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

src/Pugs/CodeGen/PIR.hs

@@ -89 +89 @@
         [begL, sndL, retL, endL] <- genLabel ["thunkBegin", "thunkAgain", "thunkReturn", "thunkEnd"]
         this    <- genPMC "block"
-        tellIns $ "newsub" .- [reg this, bare ".Continuation", bare begL]
+        tellIns $ InsNew (reg this) Continuation
+        tellIns $ "set_addr" .- [reg this, bare begL]
         tellIns $ "goto" .- [bare endL]
         tellLabel begL
@@ -109 +110 @@
         [begL, endL] <- genLabel ["blockBegin", "blockEnd"]
         this    <- genPMC "block"
-        tellIns $ "newsub" .- [reg this, bare ".Closure", bare begL]
+        tellIns $ InsNew (reg this) Closure
+        tellIns $ "set_addr" .- [reg this, bare begL]
         tellIns $ "goto" .- [bare endL]
         tellLabel begL