Commits

Mattias Lundell committed f91985a

pushing

  • Participants
  • Parent commits 9bf2308

Comments (0)

Files changed (2)

 -- POSSIBILITY OF SUCH DAMAGE.
 
 module POSIX where
-    
+
 type RootType = World -> Cmd () ()
 
 struct Env where
 
 struct File < Closable where
     seek  :: Int -> Request Int
-    
+
 struct RFile < File where
     read     :: Request String
     installR :: (String -> Action) -> Request ()
-    
+
 struct WFile < File where
     write    :: String -> Request Int
     installW :: Action -> Request ()
     inFile     :: RFile
     outFile    :: WFile
 
-struct Connection < Closable where 
+struct Connection < Closable where
     established :: Action
     neterror    :: String -> Action
 

File src/Execution.hs

   res <- checkUpToDate ll_file bc_file
   if not res then do
                cfg <- fileCfg clo ll_file global_cfg
-               let cmdLLVMAS = llvmLLVMAS cfg ++ " -f " ++ ll_file
+               let --cmdLLVMAS = llvmLLVMAS cfg ++ " -f " ++ ll_file
                    cmdLLVMOPT = llvmOPT cfg
                                 ++ " -mem2reg "
                                 ++ " -std-compile-opts "
                                 ++ " -std-link-opts "
                                 ++ " -strip "
-                                ++ bc_file
+                                ++ ll_file
+--                                ++ bc_file
                                 ++ " -f -o " ++ bc_file
                putStrLn ("[compiling " ++ ll_file ++ "]")
-               execCmd clo cmdLLVMAS
+--               execCmd clo cmdLLVMAS
                execCmd clo cmdLLVMOPT
              else return ()
   where checkUpToDate ll_file bc_file = return False --do