From 48a35491c4a555baed7b4a0a0141654ec72dd671 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 22 Jan 1998 16:04:08 +0000
Subject: [PATCH] [project @ 1998-01-22 16:04:08 by sof] * [cygwin32]: If no
output file is given when linking, default to main.exe * warn about SCCs
being dropped when compiling with -prof -auto{-all}
---
ghc/driver/ghc.lprl | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index ef3298067ca0..166537f9c154 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -983,6 +983,9 @@ sub setupBuildFlags {
$Oopt_FinalStgProfilingMassage = '-fmassage-stg-for-profiling';
+ # Ignore user sccs when auto annotating, but warn when doing so.
+ $PROFignore_scc = '-W' if $PROFauto;
+
push(@HsP_flags, (($PROFignore_scc) ? $PROFignore_scc : '-S'));
if ( $SplitObjFiles ) {
@@ -1380,7 +1383,10 @@ if ($Do_lnkr) {
local($lnkr) = ( $Lnkr ) ? $Lnkr : $CcRegd;
local($output) = ($Specific_output_file ne '') ? "-o $Specific_output_file" : '';
- @Files_to_tidy = ($Specific_output_file ne '') ? $Specific_output_file : 'a.out';
+ @Files_to_tidy = ($Specific_output_file ne '') ?
+ $Specific_output_file :
+ ( ($TargetPlatform eq 'i386-unknown-cygwin32') ? 'main.exe' : 'a.out');
+ print STDERR "Output file not specified, defaulting to \"main.exe\"\n" if ($Specific_output_file eq '' && $TargetPlatform eq 'i386-unknown-cygwin32');
local($to_do) = "$lnkr $Verbose @Ld_flags $output @Link_file $TopClosureFile $libdirs @UserLibrary @SysLibrary";
&run_something($to_do, 'Linker');
--
GitLab