From: Ronan Desplanques <desplanques@adacore.com>
Date: Fri, 12 Jul 2024 08:56:58 +0000 (+0200)
Subject: ada: Ensure variable is initialized before use
X-Git-Tag: basepoints/gcc-16~6876
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=eb43eb5c1a9b691b77782938f41de33506694a54;p=thirdparty%2Fgcc.git

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 --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb
index c9ccc4d9b52..08ce2ab5ad1 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;