Pārlūkot izejas kodu

* mark whether or not procsyms are global (DW_AT_external)

git-svn-id: trunk@6314 -
Jonas Maebe 18 gadi atpakaļ
vecāks
revīzija
4d97044bba
1 mainītis faili ar 2 papildinājumiem un 1 dzēšanām
  1. 2 1
      compiler/dbgdwarf.pas

+ 2 - 1
compiler/dbgdwarf.pas

@@ -1571,7 +1571,8 @@ implementation
           begin
           begin
             current_asmdata.asmlists[al_dwarf_info].concat(tai_comment.Create(strpnew('Procdef '+pd.fullprocname(true))));
             current_asmdata.asmlists[al_dwarf_info].concat(tai_comment.Create(strpnew('Procdef '+pd.fullprocname(true))));
             append_entry(DW_TAG_subprogram,true,
             append_entry(DW_TAG_subprogram,true,
-              [DW_AT_name,DW_FORM_string,symname(pd.procsym)+#0
+              [DW_AT_name,DW_FORM_string,symname(pd.procsym)+#0,
+               DW_AT_external,DW_FORM_flag,po_global in pd.procoptions
               { data continues below }
               { data continues below }
               { problem: base reg isn't known here
               { problem: base reg isn't known here
                 DW_AT_frame_base,DW_FORM_block1,1
                 DW_AT_frame_base,DW_FORM_block1,1