From 26bc2cfb3d76034657196e6cc207008f176a5c3d Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 4 Feb 1999 16:15:44 +0000
Subject: [PATCH] [project @ 1999-02-04 16:15:44 by sof] - don't complain if
'total memory in use' field not found in final RTS info dump. - add
-fwarn-type-defaults to the set of -Wall warnings.
---
ghc/driver/ghc.lprl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index 049ef8207fb8..053e2e45d38e 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -287,6 +287,7 @@ these are turned off by -Wnot.
'-fwarn-unused-imports');
@MinusWallOpts = (@MinusWOpts,
'-fwarn-unused-matches',
+ '-fwarn-type-defaults',
'-fwarn-name-shadowing',
'-fwarn-missing-signatures');
\end{code}
@@ -2331,7 +2332,6 @@ sub process_ghc_timings {
print STDERR "Warning: MutElapsed not found in stats file\n" unless defined($MutElapsed);
print STDERR "Warning: GcTime inot found in stats file\n" unless defined($GcTime);
print STDERR "Warning: GcElapsed not found in stats file\n" unless defined($GcElapsed);
- print STDERR "Warning: total memory not found in stats file\n" unless defined($TotMem);
# things we didn't necessarily expect to find
$MaxResidency = 0 unless defined($MaxResidency);
@@ -3261,7 +3261,7 @@ arg: while($_ = $Args[0]) {
#---------- Linker (gcc, really) ---------------------------------------
- /^-static$/ && do { push(@Ld_flags, $_); next arg; };
+ /^-static$/ && do { push(@HsC_flags, $_); push(@Ld_flags, $_); next arg; };
/^-no-hs-main$/ && do { $NoHaskellMain=1; next arg; };
#---------- mixed cc and linker magic ----------------------------------
--
GitLab