From 58eba7cdb39ad4a9ddd23eeaf2bb76a561aa813d Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 9 Jan 2004 12:41:13 +0000 Subject: [PATCH] [project @ 2004-01-09 12:41:12 by simonmar] Add (missing?) -pgmdll option. Remove duplicate -pgmP option. --- ghc/compiler/main/DriverFlags.hs | 2 +- ghc/compiler/main/SysTools.lhs | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs index f159b39..b2db529 100644 --- a/ghc/compiler/main/DriverFlags.hs +++ b/ghc/compiler/main/DriverFlags.hs @@ -279,13 +279,13 @@ static_flags = ------- Specific phases -------------------------------------------- , ( "pgmL" , HasArg setPgmL ) , ( "pgmP" , HasArg setPgmP ) - , ( "pgmP" , HasArg setPgmP ) , ( "pgmF" , HasArg setPgmF ) , ( "pgmc" , HasArg setPgmc ) , ( "pgmm" , HasArg setPgmm ) , ( "pgms" , HasArg setPgms ) , ( "pgma" , HasArg setPgma ) , ( "pgml" , HasArg setPgml ) + , ( "pgmdll" , HasArg setPgmDLL ) #ifdef ILX , ( "pgmI" , HasArg setPgmI ) , ( "pgmi" , HasArg setPgmi ) diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs index 127612d..912636a 100644 --- a/ghc/compiler/main/SysTools.lhs +++ b/ghc/compiler/main/SysTools.lhs @@ -19,6 +19,7 @@ module SysTools ( setPgms, setPgma, setPgml, + setPgmDLL, #ifdef ILX setPgmI, setPgmi, @@ -434,6 +435,7 @@ setPgmm = writeIORef v_Pgm_m setPgms = writeIORef v_Pgm_s setPgma = writeIORef v_Pgm_a setPgml = writeIORef v_Pgm_l +setPgmDLL = writeIORef v_Pgm_MkDLL #ifdef ILX setPgmI = writeIORef v_Pgm_I setPgmi = writeIORef v_Pgm_i -- 1.7.10.4