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

Codetools: Prevent another range check error. Issue #40922

Browse Source
This commit is contained in:
Martin 2024-09-23 11:58:02 +02:00
parent 5914d34e58
commit 03bf02974e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/basiccodetools.pas
View File

@ -1831,7 +1831,7 @@ begin
and (IsIdentChar[Source[IdentEnd]]) do and (IsIdentChar[Source[IdentEnd]]) do
inc(IdentEnd); inc(IdentEnd);
if not ((Source[IdentStart]='&') and IsIdentStartChar[Source[IdentStart+1]]) then if not ((Source[IdentStart]='&') and (IdentStart<length(Source)) and IsIdentStartChar[Source[IdentStart+1]]) then
while (IdentStart<Position) while (IdentStart<Position)
and (not IsIdentStartChar[Source[IdentStart]]) do and (not IsIdentStartChar[Source[IdentStart]]) do
inc(IdentStart); inc(IdentStart);