From: simonmar <unknown>
Date: Tue, 26 Apr 2005 14:43:31 +0000 (+0000)
Subject: [project @ 2005-04-26 14:43:31 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~669
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ff75ee77a9907b43529aab5a82dc971a35a22667;p=ghc-hetmet.git

[project @ 2005-04-26 14:43:31 by simonmar]
Back out previous revision.

It appears that passing -g to the assembly phase of C compilation
results in an object file with broken debug info, that gdb can't
read.  This is probably a bug in gcc and/or binutils, but this change
means that I can't avoid it (unless we were to hack the pipeline to
do .c->.s->.o in one stage instead of two).
---

diff --git a/ghc/compiler/main/DynFlags.hs b/ghc/compiler/main/DynFlags.hs
index 518a8e9..09932b6 100644
--- a/ghc/compiler/main/DynFlags.hs
+++ b/ghc/compiler/main/DynFlags.hs
@@ -766,7 +766,7 @@ dynamic_flags = [
   ,  ( "optL"		, HasArg (upd . addOptL) )  
   ,  ( "optP"		, HasArg (upd . addOptP) )  
   ,  ( "optF"           , HasArg (upd . addOptF) )  
-  ,  ( "optc"		, HasArg (\f -> upd (addOptc f . addOpta f)) )
+  ,  ( "optc"		, HasArg (upd . addOptc) )  
   ,  ( "optm"		, HasArg (upd . addOptm) )  
   ,  ( "opta"		, HasArg (upd . addOpta) )  
   ,  ( "optl"		, HasArg (upd . addOptl) )