* allow %... for binary constants in delphi mode, resolves #39503

2025-04-05 23:31:49 +02:00 · 2021-12-29 15:37:20 +01:00 · 2021-12-29 15:37:20 +01:00 · 25eab57a58
commit 25eab57a58
parent c9b988e146
2 changed files with 1 additions and 2 deletions
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@ -4938,7 +4938,7 @@ type

             '%' :
               begin
-                 if not(m_fpc in current_settings.modeswitches) then
+                 if [m_fpc,m_delphi] * current_settings.modeswitches = [] then
                  Illegal_Char(c)
                 else
                  begin
--- a/tests/tbs/tb0689.pp
+++ b/tests/tbs/tb0689.pp
@ -1,4 +1,3 @@
-{ %FAIL }
 { Old file: tbf0326.pp }
 {  }