Changeset 4907 for src/Main.hs

Timestamp:

06/22/05 02:41:05 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* better handling of modules and qualified names in PIR generation.

Files:

• src/Main.hs (modified) (1 diff)

src/Main.hs

@@ -301 +301 @@
 
 compPIR :: String -> IO ()
-compPIR = (putStr =<<) . doCompile "PIR" "-"
+compPIR prog = do
+    pir <- doCompile "PIR" "-" prog
+    putStr $ (subMain ++ (last $ split subMain pir))
+    where
+    subMain = ".sub main"
 
 runPIR :: String -> IO ()