Changeset 13614 for src/Pugs/CodeGen

Timestamp:

09/25/06 13:11:43 (2 years ago)

Author:

audreyt

Message:

* The main package is now ::Main, not ::main.

Files:

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

src/Pugs/CodeGen/PIR.hs

@@ -158 +158 @@
                 tellIns $ "set_returns" .- retSigList [bodyC]
                 tellIns $ "returncc" .- []
-        return (DeclSub name [SubOUTER "main"] stmts)
+        return (DeclSub name [SubOUTER "MAIN"] stmts)
 
 instance Translate PIL_Literal Expression where
@@ -383 +383 @@
         , renderStyle (Style PageMode 0 0) $ preludePIR $+$ vcat
         -- Namespaces have bugs in both pugs and parrot.
-        [ emit $ DeclNS "main"
+        [ emit $ DeclNS "Main"
         [ DeclSub "init" [SubMAIN, SubANON] $ map StmtIns (
             -- Eventually, we'll have to write our own find_name wrapper (or
@@ -421 +421 @@
             , "store_global"    .- [lit "$_", tempPMC]
             ]) ++ [ StmtRaw (text (name ++ "()")) | PSub name@('_':'_':_) _ _ _ _ _ <- pilGlob penv ] ++
-            [ StmtRaw (text "main()")
+            [ StmtRaw (text "MAIN()")
             , StmtIns $ tempPMC  <-- "find_global" $ [lit "Perl6::Internals", lit "&exit"]
             , StmtIns $ "set_args" .- sigList [MkSig [] lit0]
             , StmtIns $ "invokecc" .- [tempPMC]
             ]
-        , DeclSub "main" [SubANON] mainPIR ]
+        , DeclSub "MAIN" [SubANON] mainPIR ]
         , emit globPIR ] ]