paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 19:29:21 +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;
procedure TParser.SkipBOM;
const
sbom : string[3] = #$EF#$BB#$BF;
var
i : integer;
bom : string[3];
@ -142,7 +144,7 @@ begin
CheckLoadBuffer;
inc(i);
end;
if (bom<>(#$EF+#$BB+#$BF)) then
if (bom<>sBom) then
fPos:=backup;
end;