From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 2 Apr 2024 08:51:00 +0000 (+0200)
Subject: ada: Follow-up fix to previous change for Text_Ptr
X-Git-Tag: basepoints/gcc-16~8834
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=b22c01db9a8cbc4030af4353a7b4d01be2c6123f;p=thirdparty%2Fgcc.git

ada: Follow-up fix to previous change for Text_Ptr

The variable would be saved and restored while still uninitialized.

gcc/ada/

	* err_vars.ads (Error_Msg_Sloc): Initialize to No_Location.
---

diff --git a/gcc/ada/err_vars.ads b/gcc/ada/err_vars.ads
index 113dd936db6..838217b95f4 100644
--- a/gcc/ada/err_vars.ads
+++ b/gcc/ada/err_vars.ads
@@ -107,7 +107,7 @@ package Err_Vars is
 
    --  WARNING: There is a matching C declaration of these variables in fe.h
 
-   Error_Msg_Sloc : Source_Ptr;
+   Error_Msg_Sloc : Source_Ptr := No_Location;
    --  Source location for # insertion character in message
 
    Error_Msg_Name_1 : Name_Id;