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

Replace $notes off/on by $push/$notes off/$pop to avoid getting note messages if notes are not on at start of unit compilation

Browse Source 
git-svn-id: trunk@38718 -
This commit is contained in:
pierre 2018-04-09 09:45:19 +00:00
parent f08d3fdf8f
commit e7d724981c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/dbgdwarf.pas
View File

@ -110,6 +110,7 @@ interface
DW_TAG_PGI_interface_block := $A020
);
{$push}
{$notes off}
{ Attribute names and codes. }
tdwarf_attribute = (DW_AT_sibling := $01,DW_AT_location := $02,
@ -217,7 +218,7 @@ interface
DW_AT_APPLE_major_runtime_vers := $3fe5,
DW_AT_APPLE_runtime_class := $3fe6
);
{$notes on}
{$pop}
{ Form names and codes. }
Tdwarf_form = (DW_FORM_addr := $01,DW_FORM_block2 := $03,
@ -562,6 +563,7 @@ implementation
Tdwarf_calling_convention = (DW_CC_normal := $1,DW_CC_program := $2,
DW_CC_nocall := $3,DW_CC_GNU_renesas_sh := $40, DW_CC_GNU_borland_fastcall_i386 := $41
);
{$push}
{$notes off}
{ Location atom names and codes. }
Tdwarf_location_atom = (DW_OP_addr := $03,DW_OP_deref := $06,DW_OP_const1u := $08,
@ -644,7 +646,7 @@ implementation
DW_OP_HP_fltconst8 := $e3,DW_OP_HP_mod_range := $e4,
DW_OP_HP_unmod_range := $e5,DW_OP_HP_tls := $e6
);
{$notes on}
{$pop}
const
{ Implementation-defined range start. }