From: Bob Duff <duff@adacore.com>
Date: Mon, 17 May 2021 10:28:18 +0000 (-0400)
Subject: [Ada] Initialize Current_Error_Node
X-Git-Tag: basepoints/gcc-13~6231
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5db3ea9d748f00e55ddcb72d0720526824eeb4a9;p=thirdparty%2Fgcc.git

[Ada] Initialize Current_Error_Node

gcc/ada/

	* atree.ads (Current_Error_Node): Initialize to Empty.
---

diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads
index 0995b945aafd..42df9505438b 100644
--- a/gcc/ada/atree.ads
+++ b/gcc/ada/atree.ads
@@ -130,7 +130,7 @@ package Atree is
    --  Current_Error_Node is also used for other purposes. See, for example,
    --  Rtsfind.
 
-   Current_Error_Node : Node_Id;
+   Current_Error_Node : Node_Id := Empty;
    --  Node to place compiler abort messages
 
    ------------------