From 5c15e80ba77d4e30a84578df95ad32e471b0ff8c Mon Sep 17 00:00:00 2001
From: krc <unknown>
Date: Tue, 19 Aug 2003 22:03:04 +0000
Subject: [PATCH] [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.

---
 ghc/compiler/main/CodeOutput.lhs |    8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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
-- 
1.7.10.4