From 5db3ea9d748f00e55ddcb72d0720526824eeb4a9 Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Mon, 17 May 2021 06:28:18 -0400 Subject: [PATCH] [Ada] Initialize Current_Error_Node gcc/ada/ * atree.ads (Current_Error_Node): Initialize to Empty. --- gcc/ada/atree.ads | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index 0995b94..42df950 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 ------------------ -- 2.7.4