paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 19:02:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: ReadRawNextPascalAtom reading UTF8-BOM

Browse Source 
git-svn-id: trunk@19194 -
This commit is contained in:
mattias 2009-04-01 21:11:54 +00:00
parent 16cd122d2e
commit 93bf18b032
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/basiccodetools.pas
View File

@ -1599,6 +1599,14 @@ begin
begin
inc(Position);
end;
#$EF:
if (Source[Position+1]=#$BB)
and (Source[Position+2]=#$BF) then begin
// skip UTF BOM
inc(Position,3);
end else begin
break;
end;
'{': // comment start or compiler directive
begin
if (Position<Len) and (Source[Position+1]='$') then