Browse Source

* use global label to refer enum subrange type for setdefs
on systems without tf_dwarf_only_local_labels to avoid
potential problems when using the set type in a separate
unit

git-svn-id: trunk@10619 -

Jonas Maebe 17 years ago
parent
commit
42a4684f60
1 changed files with 4 additions and 1 deletions
  1. 4 1
      compiler/dbgdwarf.pas

+ 4 - 1
compiler/dbgdwarf.pas

@@ -2770,7 +2770,10 @@ implementation
                 if (def.elementdef.typ=enumdef) then
                   begin
                     { gdb 6.7 - 6.8 is broken for regular enum sets }
-                    current_asmdata.getaddrlabel(lab);
+                    if not(tf_dwarf_only_local_labels in target_info.flags) then
+                      current_asmdata.getdatalabel(lab)
+                    else
+                      current_asmdata.getaddrlabel(lab);
                     append_labelentry_ref(DW_AT_type,lab);
                     finish_entry;
                     current_asmdata.asmlists[al_dwarf_info].concat(tai_symbol.create(lab,0));