Browse Source

forgot if cs_debuginfo

peter 21 years ago
parent
commit
79e754cb8c
1 changed files with 8 additions and 3 deletions
  1. 8 3
      compiler/ncgutil.pas

+ 8 - 3
compiler/ncgutil.pas

@@ -1796,7 +1796,8 @@ implementation
         maybe_new_object_file(curconstSegment);
         maybe_new_object_file(curconstSegment);
         new_section(curconstSegment,sec_rodata,lower(sym.mangledname),const_align(l));
         new_section(curconstSegment,sec_rodata,lower(sym.mangledname),const_align(l));
 {$ifdef GDB}
 {$ifdef GDB}
-        sym.concatstabto(curconstSegment);
+        if (cs_debuginfo in aktmoduleswitches) then
+          sym.concatstabto(curconstSegment);
 {$endif GDB}
 {$endif GDB}
         if (sym.owner.symtabletype=globalsymtable) or
         if (sym.owner.symtabletype=globalsymtable) or
            maybe_smartlink_symbol or
            maybe_smartlink_symbol or
@@ -1824,7 +1825,8 @@ implementation
         maybe_new_object_file(bssSegment);
         maybe_new_object_file(bssSegment);
         new_section(bssSegment,sec_bss,lower(sym.mangledname),varalign);
         new_section(bssSegment,sec_bss,lower(sym.mangledname),varalign);
 {$ifdef GDB}
 {$ifdef GDB}
-        sym.concatstabto(bssSegment);
+        if (cs_debuginfo in aktmoduleswitches) then
+          sym.concatstabto(bssSegment);
 {$endif GDB}
 {$endif GDB}
         if (sym.owner.symtabletype=globalsymtable) or
         if (sym.owner.symtabletype=globalsymtable) or
            maybe_smartlink_symbol or
            maybe_smartlink_symbol or
@@ -2209,7 +2211,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.235  2004-11-04 17:09:54  peter
+  Revision 1.236  2004-11-04 17:12:24  peter
+  forgot if cs_debuginfo
+
+  Revision 1.235  2004/11/04 17:09:54  peter
   fixed debuginfo for variables in staticsymtable
   fixed debuginfo for variables in staticsymtable
 
 
   Revision 1.234  2004/10/31 21:45:03  peter
   Revision 1.234  2004/10/31 21:45:03  peter