From: simonmar <unknown>
Date: Tue, 16 May 2000 09:08:03 +0000 (+0000)
Subject: [project @ 2000-05-16 09:08:03 by simonmar]
X-Git-Tag: Approximately_9120_patches~4454
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=820d32a2bf999b3391a2c1c13363db5cc3bac307;p=ghc-hetmet.git

[project @ 2000-05-16 09:08:03 by simonmar]
oops... better unbreak the driver
---

diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index 6bd471b..7ec0015 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -1502,13 +1502,15 @@ Now the Haskell compiler, C compiler, and assembler
 	&run_something("cp $hsc_out_h_stub $ofile_h_stub_target", 'Copy foreign export header file');
     }
 
-    #
-    # Bring the C stub protos into scope when compiling the .hc file.
-    #
-    push (@CcInjects, "#include \"${hsc_out_h_stub}\"\n");
-    # Hack - ensure that the stub .h file is included in the OPTIONS section
-    #	 if the .hc file is saved.
-    push (@File_options, "-#include \"${ofile_h_stub_target}\"\n");
+    if (-f $hsc_out_c_stub) {
+	#
+	# Bring the C stub protos into scope when compiling the .hc file.
+	#
+	push (@CcInjects, "#include \"${hsc_out_h_stub}\"\n");
+	# Hack - ensure that the stub .h file is included in the OPTIONS section
+	#	 if the .hc file is saved.
+	push (@File_options, "-#include \"${ofile_h_stub_target}\"\n");
+    }
 
     if ($do_cc) {
 	&runGcc    ($is_hc_file, $hsc_out, $cc_as_o);