Changeset 5413

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.

Location:
src
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • src/Emit/PIR.hs

    r5166 r5413  
    813813        ] --> [rv] 
    814814    , sub "&exit" [arg0] 
    815         [ lit "&*END" .& [] 
     815        [ tempPMC  <-- "find_global" $ [lit "main", lit "&*END"] 
     816        , "set_args" .- sigList [] 
     817        , "invokecc" .- [tempPMC] 
    816818        , tempINT <:= arg0 
    817819        , "exit" .- [tempINT] 

  • 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 ]