From fa3766d893f130ff749ab9edf3f0a73101dcc5be Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 18 Feb 2000 21:54:07 +0000
Subject: [PATCH]  * avoid LeText if no stabs info

---
 compiler/ag386att.pas | 7 ++++++-
 compiler/ag386bin.pas | 7 ++++++-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/compiler/ag386att.pas b/compiler/ag386att.pas
index ebcfd3c3f3..8e06911dca 100644
--- a/compiler/ag386att.pas
+++ b/compiler/ag386att.pas
@@ -338,6 +338,8 @@ unit ag386att;
       procedure ti386attasmlist.WriteFileEndInfo;
 
         begin
+          if not (cs_debuginfo in aktmoduleswitches) then
+            exit;
           AsmLn;
           AsmWriteLn(ait_section2str(sec_code));
           AsmWriteLn(#9'.stabs "",'+tostr(n_sourcefile)+',0,0,Letext');
@@ -884,7 +886,10 @@ unit ag386att;
 end.
 {
   $Log$
-  Revision 1.27  2000-02-18 12:31:07  pierre
+  Revision 1.28  2000-02-18 21:54:07  pierre
+   * avoid LeText if no stabs info
+
+  Revision 1.27  2000/02/18 12:31:07  pierre
    * Reset file name to empty at end of code section
 
   Revision 1.26  2000/02/09 13:22:42  peter
diff --git a/compiler/ag386bin.pas b/compiler/ag386bin.pas
index 5ff48d2af6..1b755cbfb6 100644
--- a/compiler/ag386bin.pas
+++ b/compiler/ag386bin.pas
@@ -344,6 +344,8 @@ unit ag386bin;
       var
         hp : pasmsymbol;
       begin
+        if not (cs_debuginfo in aktmoduleswitches) then
+          exit;
         objectalloc^.setsection(sec_code);
         hp:=newasmsymbol('Letext');
         if currpass=1 then
@@ -961,7 +963,10 @@ unit ag386bin;
 end.
 {
   $Log$
-  Revision 1.37  2000-02-18 12:31:07  pierre
+  Revision 1.38  2000-02-18 21:54:07  pierre
+   * avoid LeText if no stabs info
+
+  Revision 1.37  2000/02/18 12:31:07  pierre
    * Reset file name to empty at end of code section
 
   Revision 1.36  2000/02/09 13:22:43  peter