From bd07b65cfd63dded036d4a84a42f8e9b71d3fe66 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 3 Dec 2003 17:45:36 +0000
Subject: [PATCH]   * don't turn off debuginfo when line info is requested

---
 compiler/switches.pas | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/compiler/switches.pas b/compiler/switches.pas
index 24cd561563..b5fef156b2 100644
--- a/compiler/switches.pas
+++ b/compiler/switches.pas
@@ -106,7 +106,13 @@ begin
                       if state='+' then
                         include(aktmoduleswitches,tmoduleswitch(setsw))
                       else
-                        exclude(aktmoduleswitches,tmoduleswitch(setsw));
+                        begin
+                          { Turning off debuginfo when lineinfo is requested
+                            is not possible }
+                          if not((cs_gdb_lineinfo in aktglobalswitches) and
+                                 (tmoduleswitch(setsw)=cs_debuginfo)) then
+                            exclude(aktmoduleswitches,tmoduleswitch(setsw));
+                        end;
                     end
                    else
                     Message(scan_w_switch_is_global);
@@ -159,7 +165,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.12  2002-05-18 13:34:18  peter
+  Revision 1.13  2003-12-03 17:45:36  peter
+    * don't turn off debuginfo when line info is requested
+
+  Revision 1.12  2002/05/18 13:34:18  peter
     * readded missing revisions
 
   Revision 1.11  2002/05/16 19:46:44  carl