Changeset 4905

Timestamp:

06/21/05 18:08:06 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

6641

Message:

* Usual svn properties added to mugwump++'s new ext/Data files.
* Pugs.Compile.PIR -- Even though commit r4903 did work, it was wrong --

attempted a cleaner fix.

Files:

• ext/Date/lib/Date/Format/ISO8601.pm (modified) (2 props)
• ext/Date/lib/Time/Zone.pm (modified) (2 props)
• ext/Date/t/00load.t (modified) (2 props)
• ext/Date/t/01sanity.t (modified) (2 props)
• ext/Date/t/02last_day.t (modified) (2 props)
• ext/Date/t/03components.t (modified) (2 props)
• ext/Date/t/04epoch.t (modified) (2 props)
• src/Pugs/Compile/PIR.hs (modified) (2 diffs)

src/Pugs/Compile/PIR.hs

@@ -589 +589 @@
     when (isOptional prm) $ do
         [defC] <- genLabel ["defaultDone"]
-        tellIns $ "if_null" .- [bare name, bare defC]
+        tellIns $ "unless_null" .- [bare name, bare defC]
         case tpDefault param of
             Nothing     -> tellIns $ InsNew (VAR name) PerlScalar
@@ -714 +714 @@
                 , "store_global"    .- [lit "$*PROGRAM_NAME", tempPMC2]
                 , "store_global"    .- [lit "$PROGRAM_NAME", tempPMC2]
+                -- XXX wrong, should be lexical
+                , InsNew tempPMC PerlScalar
+                , "store_global"    .- [lit "$_", tempPMC]
                 ] ++ [ StmtRaw (text "main()"), StmtIns (lit "&exit" .& [lit0]) ]
             , text ".sub main @ANON"