paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 12:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by rika: simplify tscannerfile.readstring, resolves #39835

Browse Source
This commit is contained in:
florian 2022-07-12 22:11:49 +02:00
parent cf5feb0dca
commit 8363c48863
1 changed files with 5 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/scanner.pas
View File

@ -4162,32 +4162,17 @@ type
case c of case c of
'_', '_',
'0'..'9', '0'..'9',
'A'..'Z' : 'A'..'Z',
begin
if i<255 then
begin
inc(i);
orgpattern[i]:=c;
pattern[i]:=c;
end
else
begin
if not err then
begin
Message(scan_e_string_exceeds_255_chars);
err:=true;
end;
end;
c:=inputpointer^;
inc(inputpointer);
end;
'a'..'z' : 'a'..'z' :
begin begin
if i<255 then if i<255 then
begin begin
inc(i); inc(i);
orgpattern[i]:=c; orgpattern[i]:=c;
pattern[i]:=chr(ord(c)-32) if c in ['a'..'z'] then
pattern[i]:=chr(ord(c)-32)
else
pattern[i]:=c;
end end
else else
begin begin