From: simonmar <unknown>
Date: Thu, 9 Jan 2003 11:39:20 +0000 (+0000)
Subject: [project @ 2003-01-09 11:39:20 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1283
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1a4238bccc8be8a71f8ebec15f25d8edf8d084ad;p=ghc-hetmet.git

[project @ 2003-01-09 11:39:20 by simonmar]
Add missing -pgmL switch.

MERGE TO STABLE
---

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index 16c15c6..4c110c0 100644
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.109 2003/01/08 13:03:25 simonmar Exp $
+-- $Id: DriverFlags.hs,v 1.110 2003/01/09 11:39:20 simonmar Exp $
 --
 -- Driver flags
 --
@@ -277,6 +277,8 @@ static_flags =
   ,  ( "syslib"         , HasArg (addPackage) )	-- for compatibility w/ old vsns
 
         ------- Specific phases  --------------------------------------------
+  ,  ( "pgmL"           , HasArg setPgmL )
+  ,  ( "pgmP"           , HasArg setPgmP )
   ,  ( "pgmP"           , HasArg setPgmP )
   ,  ( "pgmF"           , HasArg setPgmF )
   ,  ( "pgmc"           , HasArg setPgmc )
diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index d217469..a4f96f7 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -11,7 +11,8 @@ module SysTools (
 	-- Initialisation
 	initSysTools,
 
-	setPgmP,		-- String -> IO ()
+	setPgmL,		-- String -> IO ()
+	setPgmP,
 	setPgmF,
 	setPgmc,
 	setPgmm,
@@ -439,6 +440,7 @@ like
 is used to override a particular program with a new one
 
 \begin{code}
+setPgmL = writeIORef v_Pgm_L
 setPgmP = writeIORef v_Pgm_P
 setPgmF = writeIORef v_Pgm_F
 setPgmc = writeIORef v_Pgm_c
@@ -897,4 +899,4 @@ foreign import ccall "rawSystemCmd" unsafe primRawSystem :: CString -> IO Int
 
 #endif
 #endif
-\end{code}
\ No newline at end of file
+\end{code}