[project @ 2000-07-17 09:02:18 by simonmar]

accept '-fvia-c' as an alternative capitalisation for '-fvia-C' (the
old driver used to do this, and it's documented in the Users' Guide)

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index b14e488..39e61eb 100644 (file)
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1854,6 +1854,7 @@ opts =
 
   ,  ( "fasm"             , OptPrefix (\_ -> writeIORef hsc_lang HscAsm) )
 
+  ,  ( "fvia-c"                   , NoArg (writeIORef hsc_lang HscC) )
   ,  ( "fvia-C"                   , NoArg (writeIORef hsc_lang HscC) )
 
   ,  ( "fno-asm-mangling"  , NoArg (writeIORef do_asm_mangling False) )