suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Made sure that the three temporary files all have different stems, because otherwise there can be collisions between the object files of the C and occam.

Browse Source
This commit is contained in:
Neil Brown 2007-10-08 22:32:03 +00:00
parent b0f5f6be77
commit 6f8aeba867
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Main.hs
View File

@ -136,7 +136,7 @@ main = do
-- TODO Delete the temporary files when we're done -- TODO Delete the temporary files when we're done
-- TODO make sure the temporary files are deleted if, for some reason, the C/C++ compiler should fail: -- TODO make sure the temporary files are deleted if, for some reason, the C/C++ compiler should fail:
-- First, compile the file into C/C++: -- First, compile the file into C/C++:
ModeFull -> do (tempPath,tempHandle) <- liftIO $ openTempFile "." "tock-temp" ModeFull -> do (tempPath,tempHandle) <- liftIO $ openTempFile "." "tock-temp-c"
compile ModeCompile fn tempHandle compile ModeCompile fn tempHandle
liftIO $ hClose tempHandle liftIO $ hClose tempHandle
@ -149,11 +149,11 @@ main = do
case csBackend optsPS of case csBackend optsPS of
BackendC -> do exec $ cCommand tempPath (tempPath ++ ".o") BackendC -> do exec $ cCommand tempPath (tempPath ++ ".o")
exec $ cAsmCommand tempPath (tempPath ++ ".s") exec $ cAsmCommand tempPath (tempPath ++ ".s")
(tempPathPost, tempHandlePost) <- liftIO $ openTempFile "." "tock-temp-post" (tempPathPost, tempHandlePost) <- liftIO $ openTempFile "." "tock-temp-post-c"
postCAnalyse (tempPath ++ ".s") tempHandlePost postCAnalyse (tempPath ++ ".s") tempHandlePost
liftIO $ hClose tempHandlePost liftIO $ hClose tempHandlePost
exec $ cCommand tempPathPost (tempPathPost ++ ".o") exec $ cCommand tempPathPost (tempPathPost ++ ".o")
(tempPathOcc, tempHandleOcc) <- liftIO $ openTempFile "." "tock-temp.occ" (tempPathOcc, tempHandleOcc) <- liftIO $ openTempFile "." "tock-temp-occ.occ"
liftIO $ writeOccamWrapper tempHandleOcc liftIO $ writeOccamWrapper tempHandleOcc
liftIO $ hClose tempHandleOcc liftIO $ hClose tempHandleOcc
exec $ krocLinkCommand tempPathOcc [(tempPath ++ ".o"),(tempPathPost ++ ".o")] destBin exec $ krocLinkCommand tempPathOcc [(tempPath ++ ".o"),(tempPathPost ++ ".o")] destBin