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

git-svn-id: trunk@38718 -

compiler/dbgdwarf.pas

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