From: sof <unknown>
Date: Thu, 28 Oct 1999 18:11:05 +0000 (+0000)
Subject: [project @ 1999-10-28 18:11:05 by sof]
X-Git-Tag: Approximately_9120_patches~5650
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c26388c00e2648eaede9b997a5b39bf5a2372a02;p=ghc-hetmet.git

[project @ 1999-10-28 18:11:05 by sof]
When generating C stubs, honour -osuf <x> option
---

diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index 2541fe1..cacd94f 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -1470,7 +1470,9 @@ Now the Haskell compiler, C compiler, and assembler
 	local ($hsc_out_s_stub);
 	local ($hsc_out_o_stub);
 	($ofile_s_stub_target = $ofile_c_stub_target) =~ s/\.(.*)$/\.s/;
-	($ofile_o_stub_target = $ofile_c_stub_target) =~ s/\.(.*)$/\.o/;
+	($ofile_o_stub_target = $ofile_c_stub_target) =~ s/\.(.*)$//;
+
+        $ofile_o_stub_target = &osuf_ify($ofile_o_stub_target, "o");
 	if ($do_cc) {
 	  &runGcc    (0, $ofile_c_stub_target, $ofile_s_stub_target);
           &runAs     ($ofile_o_stub_target, $ofile_s_stub_target);