Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

Merge branch 'fixes_3_2' of gitlab.com:freepascal.org/fpc/source into fixes_3_2

marcoonthegit 2 years ago
parent
2563a7a072 2a3efea7ba
commit
9b97e5743e
1 changed files with 2 additions and 1 deletions
Unified View Show Diff Stats
  1. 2 1
      compiler/scanner.pas

+ 2 - 1
compiler/scanner.pas
View File 

@@ -3561,7 +3561,8 @@ type
 
                  begin
 
                  begin
 
                    c:=inputpointer^;
 
                    c:=inputpointer^;
 
                    { eat utf-8 signature? }
 
                    { eat utf-8 signature? }
 
-                   if (ord(inputpointer^)=$ef) and
 
+                   if (bufsize>2) and
 
+                     (ord(inputpointer^)=$ef) and
 
                      (ord((inputpointer+1)^)=$bb) and
 
                      (ord((inputpointer+1)^)=$bb) and
 
                      (ord((inputpointer+2)^)=$bf) then
 
                      (ord((inputpointer+2)^)=$bf) then
 
                      begin
 
                      begin