From 9e76a063f11197aee9667b59ed8aa071e83237aa Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 20 May 2021 04:21:39 -0400 Subject: [PATCH] [Ada] Minor code cleanup gcc/ada/ * libgnat/g-debpoo.adb (Code_Address_For_Allocate_End): Default Initialize. --- gcc/ada/libgnat/g-debpoo.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.47.2