[gcc r15-2677] ada: Ensure variable is initialized before use

[Marc Poulhi?s via Gcc-cvs]

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

commit r15-2677-geb43eb5c1a9b691b77782938f41de33506694a54
Author: Ronan Desplanques <desplanq...@adacore.com>
Date:   Fri Jul 12 10:56:58 2024 +0200

    ada: Ensure variable is initialized before use
    
    This patch is motivated by a GNAT SAS report.
    
    gcc/ada/
    
            * scng.adb (Slit): Initialize object in uncommon path.

Diff:
---
 gcc/ada/scng.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb
index c9ccc4d9b52f..08ce2ab5ad1c 100644
--- a/gcc/ada/scng.adb
+++ b/gcc/ada/scng.adb
@@ -1166,6 +1166,7 @@ package body Scng is
                      when '\' | '"' | '{' | '}'
                               => Code := Get_Char_Code (C);
                      when others =>
+                        Code := Get_Char_Code ('?');
                         Error_Msg_S ("illegal escaped character");
                   end case;