From: simonmar <unknown>
Date: Tue, 12 Mar 2002 16:40:57 +0000 (+0000)
Subject: [project @ 2002-03-12 16:40:57 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~2278
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2bc259ae5e1be3a0e04f97a7c9e1e1a3e750a772;p=ghc-hetmet.git

[project @ 2002-03-12 16:40:57 by simonmar]
eek!  Somehow, I managed to make -fvia-C the default on the HEAD and
nobody noticed for two months.
---

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index ed21b0c..30408c1 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-warn-incomplete-patterns -optc-DNON_POSIX_SOURCE #-}
 
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.97 2002/03/05 11:22:44 simonmar Exp $
+-- $Id: Main.hs,v 1.98 2002/03/12 16:40:57 simonmar Exp $
 --
 -- GHC Driver program
 --
@@ -108,7 +108,10 @@ main =
 	   case exception of
 		-- an IO exception probably isn't our fault, so don't panic
 		IOException _ ->  hPutStr stderr (show exception)
-		_other 	      ->  hPutStr stderr (show (Panic (show exception)))
+		AsyncException StackOverflow ->
+			hPutStrLn stderr "stack overflow: use +RTS -K<size> \ 
+					 \to increase it"
+		_other ->  hPutStr stderr (show (Panic (show exception)))
 	   exitWith (ExitFailure 1)
          ) $ do
 
@@ -191,7 +194,7 @@ main =
    dyn_flags <- getDynFlags
    let lang = case mode of 
 		 DoInteractive  -> HscInterpreted
-		 _other         -> hscLang dyn_flags
+		 _other         -> defaultHscLang
 
    setDynFlags (dyn_flags{ coreToDo = core_todo,
 			   stgToDo  = stg_todo,