From: simonmar <unknown>
Date: Tue, 18 Jan 2000 11:51:08 +0000 (+0000)
Subject: [project @ 2000-01-18 11:51:08 by simonmar]
X-Git-Tag: Approximately_9120_patches~5268
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b2d7555f41f6a86049326e82f669c2bd548bfcee;p=ghc-hetmet.git

[project @ 2000-01-18 11:51:08 by simonmar]
Don't attempt to split objects built from _stub files.

Patch from Michael Weber <michael.weber@post.rwth-aachen.de>.
---

diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index bb80a14..0da8e02 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -2171,7 +2171,7 @@ sub runAs {
     # need to add the -I flags in case the file is going through cpp (.S files)
     local($includes) = '-I' . join(' -I', @Include_dir);
 
-    if ( ! $SplitObjFiles ) {
+   if ( ! $SplitObjFiles || $ifile_root =~ /_stub\.s$/ ) {
 	local($to_do)  = "$asmblr -o $as_out -c @As_flags $includes $cc_as";
 	push(@Files_to_tidy, $as_out );
 	&run_something($to_do, 'Unix assembler');