diff options
| author | Raphael Amiard <amiard@adacore.com> | 2023-02-15 12:06:30 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-23 09:59:07 +0200 |
| commit | 1dd52433d2d1c122c7338ddb350f8691f084e0cf (patch) | |
| tree | 43b58e633a1921801b6456c99eaae9598bed90d4 | |
| parent | f0593467b5c3c915cfe710821b503afcc076a036 (diff) | |
| download | gcc-1dd52433d2d1c122c7338ddb350f8691f084e0cf.zip gcc-1dd52433d2d1c122c7338ddb350f8691f084e0cf.tar.gz gcc-1dd52433d2d1c122c7338ddb350f8691f084e0cf.tar.bz2 | |
ada: Make string interpolation part of the core extensions
gcc/ada/
* scng.adb (Scan): Replace occurrences of All_Extensions_Allowed
by Core_Extensions_Allowed.
| -rw-r--r-- | gcc/ada/scng.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index d1230e2..abf9c68 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 |