From: krc <unknown>
Date: Tue, 19 Aug 2003 22:03:04 +0000 (+0000)
Subject: [project @ 2003-08-19 22:03:04 by krc]
X-Git-Tag: Approx_11550_changesets_converted~544
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=5c15e80ba77d4e30a84578df95ad32e471b0ff8c

[project @ 2003-08-19 22:03:04 by krc]
Changed outputForeignStubs to check whether stub files from a previous
compilation still exist (in the case where no new stubs exist). This is
necessary to compile External Core programs that require these stubs.
---

diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs
index 14fbb0b..5e9e7e5 100644
--- a/ghc/compiler/main/CodeOutput.lhs
+++ b/ghc/compiler/main/CodeOutput.lhs
@@ -37,6 +37,7 @@ import Pretty		( Mode(..), printDoc )
 import Module		( Module )
 import ListSetOps	( removeDupsEq )
 
+import System.Directory ( doesFileExist )
 import Monad		( when )
 import IO
 \end{code}
@@ -220,7 +221,12 @@ outputIlx dflags filename mod tycons stg_binds
 outputForeignStubs :: DynFlags -> ForeignStubs
 		   -> IO (Bool, 	-- Header file created
 			  Bool)		-- C file created
-outputForeignStubs dflags NoStubs = return (False, False)
+outputForeignStubs dflags NoStubs = do
+-- When compiling External Core files, may need to use stub files from a 
+-- previous compilation
+   hFileExists <- doesFileExist (hscStubHOutName dflags)
+   cFileExists <- doesFileExist (hscStubCOutName dflags)
+   return (hFileExists, cFileExists)
 outputForeignStubs dflags (ForeignStubs h_code c_code _ _)
   = do
 	dumpIfSet_dyn dflags Opt_D_dump_foreign