paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Florian Klämpfl 2021-12-29 15:37:20 +01:00
parent c9b988e146
commit 25eab57a58
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/scanner.pas
View File

@ -4938,7 +4938,7 @@ type
'%' : '%' :
begin begin
if not(m_fpc in current_settings.modeswitches) then if [m_fpc,m_delphi] * current_settings.modeswitches = [] then
Illegal_Char(c) Illegal_Char(c)
else else
begin begin

1
tests/tbf/tb0067.pp → tests/tbs/tb0689.pp
View File

@ -1,4 +1,3 @@
{ %FAIL }
{ Old file: tbf0326.pp } { Old file: tbf0326.pp }
{ } { }