Show
Ignore:
Timestamp:
07/11/05 15:39:52 (3 years ago)
Author:
autrijus
svk:copy_cache_prev:
7349
Message:

* restore support for END block in PIR codegen.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/CodeGen/PIR.hs

    r5167 r5413  
    378378            ]) ++ [ StmtRaw (text (name ++ "()")) | PSub name@('_':'_':_) _ _ _ <- globPIL ] ++ 
    379379            [ StmtRaw (text "main()") 
    380             , StmtIns ("exit" .- [lit0]) 
     380            , StmtIns $ tempPMC  <-- "find_global" $ [lit "Perl6::Internals", lit "&exit"] 
     381            , StmtIns $ "set_args" .- sigList [MkSig [] lit0] 
     382            , StmtIns $ "invokecc" .- [tempPMC] 
    381383            ] 
    382384        , DeclSub "main" [SubANON] [ StmtRaw $ emit mainPIR ]