From: Raphael Amiard <amiard@adacore.com>
Date: Wed, 15 Feb 2023 11:06:30 +0000 (+0100)
Subject: ada: Make string interpolation part of the core extensions
X-Git-Tag: basepoints/gcc-15~9023
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1dd52433d2d1c122c7338ddb350f8691f084e0cf;p=thirdparty%2Fgcc.git

ada: Make string interpolation part of the core extensions

gcc/ada/

	* scng.adb (Scan): Replace occurrences of All_Extensions_Allowed
	by Core_Extensions_Allowed.
---

diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb
index d1230e2efe1c..abf9c68cd3d2 100644
--- a/gcc/ada/scng.adb
+++ b/gcc/ada/scng.adb
@@ -1527,10 +1527,10 @@ package body Scng is
             end if;
 
          --  Left curly bracket, treated as right paren but proper delimiter
-         --  of interpolated string literals when all extensions are allowed.
+         --  of interpolated string literals when core extensions are allowed.
 
          when '{' =>
-            if All_Extensions_Allowed then
+            if Core_Extensions_Allowed then
                Scan_Ptr := Scan_Ptr + 1;
                Token := Tok_Left_Curly_Bracket;
 
@@ -1962,10 +1962,10 @@ package body Scng is
             return;
 
          --  Right curly bracket, treated as right paren but proper delimiter
-         --  of interpolated string literals when all extensions are allowed.
+         --  of interpolated string literals when core extensions are allowed.
 
          when '}' =>
-            if All_Extensions_Allowed then
+            if Core_Extensions_Allowed then
                Token := Tok_Right_Curly_Bracket;
 
             else
@@ -2125,7 +2125,7 @@ package body Scng is
          --  Lower case letters
 
          when 'a' .. 'z' =>
-            if All_Extensions_Allowed
+            if Core_Extensions_Allowed
               and then Source (Scan_Ptr) = 'f'
               and then Source (Scan_Ptr + 1) = '"'
             then
@@ -2145,7 +2145,7 @@ package body Scng is
          --  Upper case letters
 
          when 'A' .. 'Z' =>
-            if All_Extensions_Allowed
+            if Core_Extensions_Allowed
               and then Source (Scan_Ptr) = 'F'
               and then Source (Scan_Ptr + 1) = '"'
             then