From b4fff403b41ac19c34d594d182c25783c99e59ce Mon Sep 17 00:00:00 2001
From: Joost van der Sluis <joost@cnoc.nl>
Date: Sun, 29 May 2022 15:29:17 +0200
Subject: [PATCH]  * Fixed warnings

---
 compiler/dbgdwarf.pas | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/compiler/dbgdwarf.pas b/compiler/dbgdwarf.pas
index 208c56d2c9..a24d62afd2 100644
--- a/compiler/dbgdwarf.pas
+++ b/compiler/dbgdwarf.pas
@@ -2964,7 +2964,6 @@ implementation
       { Append reference to the underlying field or method for read/write/stored access }
       procedure append_reference_to_access_member(attr : tdwarf_attribute; accesslist: tpropaccesslist);
       var
-        labs: PDwarfHashSetItem;
         anchorlabel: TAsmSymbol;
         memberowner: TSymtable;
         membersym: tabstractvarsym;
@@ -2976,6 +2975,7 @@ implementation
         memberowner:=nil;
         membersym:=nil;
         memberdef:=nil;
+        dwarfoffset:=0; // To get rid off warning.
         if assigned(accesslist.procdef) then
           begin
             memberdef := accesslist.procdef;
@@ -3934,7 +3934,6 @@ implementation
     procedure TDebugInfoDwarf.set_pending_dwarf_offset(def_or_sym: tobject;dwarf_offset: integer);
       var
         tci: TPendingOffsetConst;
-        prior_tci: TPendingOffsetConst;
         hsi: PHashSetItem;
       begin
         if (ds_dwarf_properties in current_settings.debugswitches) then
@@ -3947,7 +3946,6 @@ implementation
                   begin
                     tci.tc.symofs := dwarf_offset;
                     tci.tc.value := dwarf_offset;
-                    prior_tci := tci;
                     tci := tci.next;
                   end;
                 PendingOffsets.Remove(hsi);
@@ -3982,7 +3980,6 @@ implementation
       var
         tci: TPendingOffsetConst;
         tc: tai_const;
-        found: boolean;
         hsi: PHashSetItem;
       begin
         AddConstToAbbrev(ord(attr));