Commit 1a4238bc authored by simonmar's avatar simonmar

[project @ 2003-01-09 11:39:20 by simonmar]

Add missing -pgmL switch.

MERGE TO STABLE
parent 99efa3bc
-----------------------------------------------------------------------------
-- $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 )
......
......@@ -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}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment