From: Kévin Le Gouguec <legouguec@adacore.com>
Date: Thu, 7 Apr 2022 15:43:34 +0000 (+0200)
Subject: [Ada] Make sure output variable is always initialized
X-Git-Tag: basepoints/gcc-14~6599
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=df4451ca663e251e5524ebedb34bbe0cbfc45e52;p=thirdparty%2Fgcc.git

[Ada] Make sure output variable is always initialized

gcc/ada/

	* libgnat/s-dwalin.adb (Read_Aranges_Header): Initialize output
	parameter in case we return early.
---

diff --git a/gcc/ada/libgnat/s-dwalin.adb b/gcc/ada/libgnat/s-dwalin.adb
index 50662ddceff..5a0a2f6bf72 100644
--- a/gcc/ada/libgnat/s-dwalin.adb
+++ b/gcc/ada/libgnat/s-dwalin.adb
@@ -1360,6 +1360,7 @@ package body System.Dwarf_Lines is
    begin
       Success     := False;
       Info_Offset := 0;
+      Addr_Size   := 0;
 
       Read_Initial_Length (C.Aranges, Unit_Length, Is64);