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

Timestamp:

08/23/05 22:18:24 (3 years ago)

Author:

iblech

Message:

* Pugs.PIL1: Added pSubLValue/pLValue to PSub and PCode, indicating the

difference between "sub foo {...}" and "sub foo is rw {...}".

* Pugs.Compile: Extract the (subLValue vcode) and put in in the appropriate

field of PSub/PCode.

* Pugs.CodeGen?.PIR: Accomodate for the above changes.
* Pugs.Parser: Parse traits for anonymous subs, too (i.e. "sub () is rw

{...}" parses and works now).

Files:

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

src/Pugs/CodeGen/PIR.hs

@@ -106 +106 @@
         tellLabel endL
         return (ExpLV this)
-    trans (PCode styp params body) = do
+    trans (PCode styp params _ body) = do
         [begL, endL] <- genLabel ["blockBegin", "blockEnd"]
         this    <- genPMC "block"
@@ -126 +126 @@
 
 instance Translate PIL_Decl Decl where
-    trans (PSub name styp params body) | Just (pkg, name') <- isQualified name = do
-        declC <- trans $ PSub name' styp params body
+    trans (PSub name styp params lvalue body) | Just (pkg, name') <- isQualified name = do
+        declC <- trans $ PSub name' styp params lvalue body
         return $ DeclNS pkg [declC]
-    trans (PSub name styp params body) = do
+    trans (PSub name styp params _ body) = do
         (_, stmts)  <- listen $ do
             let prms = map tpParam params
@@ -186 +186 @@
         tellIns $ lhsC <:= rhsC
         return lhsC
-    trans (PApp _ exp@(PCode _ _ _) Nothing []) = do
+    trans (PApp _ exp@(PCode _ _ _ _) Nothing []) = do
         blockC  <- trans exp
         tellIns $ [reg tempPMC] <-& blockC $ []
@@ -383 +383 @@
             , InsNew tempPMC PerlScalar
             , "store_global"    .- [lit "$_", tempPMC]
-            ]) ++ [ StmtRaw (text (name ++ "()")) | PSub name@('_':'_':_) _ _ _ <- pilGlob penv ] ++
+            ]) ++ [ StmtRaw (text (name ++ "()")) | PSub name@('_':'_':_) _ _ _ _ <- pilGlob penv ] ++
             [ StmtRaw (text "main()")
             , StmtIns $ tempPMC  <-- "find_global" $ [lit "Perl6::Internals", lit "&exit"]