* [COMMITTED] ada: Make string interpolation part of the core extensions
@ 2023-05-23 8:09 Marc Poulhiès
0 siblings, 0 replies; only message in thread
From: Marc Poulhiès @ 2023-05-23 8:09 UTC (permalink / raw)
To: gcc-patches; +Cc: Raphael Amiard
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 --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
--
2.40.0
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2023-05-23 8:09 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-05-23 8:09 [COMMITTED] ada: Make string interpolation part of the core extensions Marc Poulhiès
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).