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

* Fix range check error

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-18 16:05:52 +01:00
parent 30c06d66c3
commit 5aeaf398cd
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cgbase.pas
View File

@ -645,6 +645,8 @@ implementation
begin
delete:=false;
if (system.length(buf)=0) then
exit;
{ indexword in 1.0.x and 1.9.4 is broken }
i:=indexword(buf[0],length,s);
if i<>-1 then