From: sof <unknown>
Date: Sun, 5 Oct 1997 20:16:04 +0000 (+0000)
Subject: [project @ 1997-10-05 20:16:04 by sof]
X-Git-Tag: Approx_2487_patches~1437
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=971d744f363459006180c5df29bf5d7ace010b3d;p=ghc-hetmet.git

[project @ 1997-10-05 20:16:04 by sof]
Fix for -recomp flag (in effect, ignored); Stk size warning: msg fix
---

diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index 7275466..ea27869 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -2545,7 +2545,7 @@ arg: while($_ = $Args[0]) {
     /^-v$/	    && do { $Verbose = '-v'; $Time = 'time'; next arg; };
 
     #---------- what phases are to be run ----------------------------------
-    /^-(no-)?recomp/	    && do { $Do_recomp_chkr = ($1 ne '') ? 1 : 0; next arg; };
+    /^-(no-)?recomp/	    && do { $Do_recomp_chkr = ($1 eq '') ? 1 : 0; next arg; };
 
     /^-cpp$/	    && do { $Cpp_flag_set = 1; next arg; };
     # change the global default:
@@ -3020,7 +3020,7 @@ arg: while($_ = $Args[0]) {
 	}
 	next arg; };
 
-    /^-(K|Rmax-(stk|stack)size)(.*)/ && do {
+    /^(-K|Rmax-(stk|stack)size)(.*)/ && do {
         local($flag) = $1;
     	local($stk_size) = &grab_arg_arg(*Args,'-Rmax-stksize', $3);
     	if ($stk_size =~ /(\d+)[Kk]$/) {