Changeset 4905 for src/Pugs/Compile

Show
Ignore:
Timestamp:
06/21/05 18:08:06 (3 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:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Compile/PIR.hs

    r4903 r4905  
    589589    when (isOptional prm) $ do 
    590590        [defC] <- genLabel ["defaultDone"] 
    591         tellIns $ "if_null" .- [bare name, bare defC] 
     591        tellIns $ "unless_null" .- [bare name, bare defC] 
    592592        case tpDefault param of 
    593593            Nothing     -> tellIns $ InsNew (VAR name) PerlScalar 
    … …  
    714714                , "store_global"    .- [lit "$*PROGRAM_NAME", tempPMC2] 
    715715                , "store_global"    .- [lit "$PROGRAM_NAME", tempPMC2] 
     716                -- XXX wrong, should be lexical 
     717                , InsNew tempPMC PerlScalar 
     718                , "store_global"    .- [lit "$_", tempPMC] 
    716719                ] ++ [ StmtRaw (text "main()"), StmtIns (lit "&exit" .& [lit0]) ] 
    717720            , text ".sub main @ANON"