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 make sure the temporary files are deleted if, for some reason, the C/C++ compiler should fail:
-- 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
liftIO $ hClose tempHandle
@ -149,11 +149,11 @@ main = do
case csBackend optsPS of
BackendC -> do exec $ cCommand tempPath (tempPath ++ ".o")
exec $ cAsmCommand tempPath (tempPath ++ ".s")
(tempPathPost, tempHandlePost) <- liftIO $ openTempFile "." "tock-temp-post"
(tempPathPost, tempHandlePost) <- liftIO $ openTempFile "." "tock-temp-post-c"
postCAnalyse (tempPath ++ ".s") tempHandlePost
liftIO $ hClose tempHandlePost
exec $ cCommand tempPathPost (tempPathPost ++ ".o")
(tempPathOcc, tempHandleOcc) <- liftIO $ openTempFile "." "tock-temp.occ"
(tempPathOcc, tempHandleOcc) <- liftIO $ openTempFile "." "tock-temp-occ.occ"
liftIO $ writeOccamWrapper tempHandleOcc
liftIO $ hClose tempHandleOcc
exec $ krocLinkCommand tempPathOcc [(tempPath ++ ".o"),(tempPathPost ++ ".o")] destBin