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

Debugger: fixed range check in watch expression parsing

Browse Source
This commit is contained in:
Martin 2023-03-20 10:51:01 +01:00
parent 8d4b429879
commit ec1e775ac1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/packages/idedebugger/idedebuggerbase.pas
View File

@ -697,6 +697,8 @@ begin
while (l > 0) and (Result[l] in [' ', #9]) while (l > 0) and (Result[l] in [' ', #9])
do dec(l); do dec(l);
if l <= 0 then
exit;
if Result[l] <> '}' then if Result[l] <> '}' then
exit; exit;