From: Arnaud Charlet <charlet@adacore.com>
Date: Thu, 20 May 2021 08:21:39 +0000 (-0400)
Subject: [Ada] Minor code cleanup
X-Git-Tag: basepoints/gcc-13~6190
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9e76a063f11197aee9667b59ed8aa071e83237aa;p=thirdparty%2Fgcc.git

[Ada] Minor code cleanup

gcc/ada/

	* libgnat/g-debpoo.adb (Code_Address_For_Allocate_End): Default
	Initialize.
---

diff --git a/gcc/ada/libgnat/g-debpoo.adb b/gcc/ada/libgnat/g-debpoo.adb
index 40e527987731..0092139f83a0 100644
--- a/gcc/ada/libgnat/g-debpoo.adb
+++ b/gcc/ada/libgnat/g-debpoo.adb
@@ -362,7 +362,7 @@ package body GNAT.Debug_Pools is
    --  These procedures are used as markers when computing the stacktraces,
    --  so that addresses in the debug pool itself are not reported to the user.
 
-   Code_Address_For_Allocate_End    : System.Address;
+   Code_Address_For_Allocate_End    : System.Address := System.Null_Address;
    Code_Address_For_Deallocate_End  : System.Address;
    Code_Address_For_Dereference_End : System.Address;
    --  Taking the address of the above procedures will not work on some