[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 0995b945aafd48f8d7052dfbf3cb7830f9184b8b..42df9505438b9afc341ed1030dde516e68c86a7d 100644 (file)
--- 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
 
    ------------------