From 2eecc76977ad16306b6d83f9b8bffccb0aeb71b4 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 18 Jun 2004 15:16:27 +0000
Subject: [PATCH]   * fixed debuginfo symbol

---
 compiler/pmodules.pas | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index 40079bcae9..ca907a92ed 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -652,6 +652,15 @@ implementation
       begin
         if not (cs_debuginfo in aktmoduleswitches) then
          exit;
+        { include symbol that will be referenced from the program to be sure to
+          include this debuginfo .o file }
+        if current_module.is_unit then
+          begin
+            current_module.flags:=current_module.flags or uf_has_debuginfo;
+            debugList.concat(tai_symbol.Createname_global(make_mangledname('DEBUGINFO',current_module.globalsymtable,''),AT_DATA,0));
+          end
+        else
+          debugList.concat(tai_symbol.Createname_global(make_mangledname('DEBUGINFO',current_module.localsymtable,''),AT_DATA,0));
         { first write all global/local symbols to a temp list. This will flag
           all required tdefs. Afterwards this list will be added }
         vardebuglist:=taasmoutput.create;
@@ -1495,7 +1504,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.156  2004-06-16 20:07:09  florian
+  Revision 1.157  2004-06-18 15:16:27  peter
+    * fixed debuginfo symbol
+
+  Revision 1.156  2004/06/16 20:07:09  florian
     * dwarf branch merged
 
   Revision 1.155  2004/05/23 20:56:42  peter