[gcc r15-719] ada: Follow-up fix to previous change for Text_Ptr

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:b22c01db9a8cbc4030af4353a7b4d01be2c6123f

commit r15-719-gb22c01db9a8cbc4030af4353a7b4d01be2c6123f
Author: Eric Botcazou <ebotca...@adacore.com>
Date:   Tue Apr 2 10:51:00 2024 +0200

    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:
---
 gcc/ada/err_vars.ads | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;