paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 18:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* mark whether or not procsyms are global (DW_AT_external)

Browse Source 
git-svn-id: trunk@6314 -
This commit is contained in:
Jonas Maebe 2007-02-02 23:18:15 +00:00
parent 7a65ffac28
commit 4d97044bba
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/dbgdwarf.pas
View File

@ -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