diff mbox series

[COMMITTED] ada: Make string interpolation part of the core extensions

Message ID 20230523080906.1874606-1-poulhies@adacore.com
State Accepted
Headers
Series [COMMITTED] ada: Make string interpolation part of the core extensions |

Checks

Context Check Description
snail/gcc-patch-check success Github commit url

Commit Message

Marc Poulhiès May 23, 2023, 8:09 a.m. UTC 
  From: Raphael Amiard <amiard@adacore.com>

gcc/ada/

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

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/scng.adb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)
diff mbox series

Patch

diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb
index d1230e2efe1..abf9c68cd3d 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