paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 14:49:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make sure BOM marker is correctly compared

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-05-01 13:32:34 +02:00
parent 266a0af993
commit 628d035b50
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/classes/parser.inc
View File

@ -127,6 +127,8 @@ begin
end; end;
procedure TParser.SkipBOM; procedure TParser.SkipBOM;
const
sbom : string[3] = #$EF#$BB#$BF;
var var
i : integer; i : integer;
bom : string[3]; bom : string[3];
@ -142,7 +144,7 @@ begin
CheckLoadBuffer; CheckLoadBuffer;
inc(i); inc(i);
end; end;
if (bom<>(#$EF+#$BB+#$BF)) then if (bom<>sBom) then
fPos:=backup; fPos:=backup;
end; end;