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

+ emit a DW_AT_address_class dwarf attribute on i8086 for procdefs, indicating

Browse Source 
their call model (near or far)

git-svn-id: trunk@39120 -
This commit is contained in:
nickysn 2018-05-25 20:03:15 +00:00
parent 199b5809a3
commit ad96cf758b
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/dbgdwarf.pas
View File

@ -2307,6 +2307,13 @@ implementation
cc:=dwarf_calling_convention(def); cc:=dwarf_calling_convention(def);
if (cc<>DW_CC_normal) then if (cc<>DW_CC_normal) then
append_attribute(DW_AT_calling_convention,DW_FORM_data1,[ord(cc)]); append_attribute(DW_AT_calling_convention,DW_FORM_data1,[ord(cc)]);
{$ifdef i8086}
{ Call model (near or far). Open Watcom compatible. }
if tcpuprocdef(def).is_far then
append_attribute(DW_AT_address_class,DW_FORM_data1,[DW_ADDR_far16])
else
append_attribute(DW_AT_address_class,DW_FORM_data1,[DW_ADDR_none]);
{$endif i8086}
{ Externally visible. } { Externally visible. }
if (po_global in def.procoptions) and if (po_global in def.procoptions) and
(def.parast.symtablelevel<=normal_function_level) then (def.parast.symtablelevel<=normal_function_level) then