paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-06 12:32:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: prevent av/error when typing '.' in array definition or float value, issue #34448

Browse Source
This commit is contained in:
Pascal Riekenberg 2022-06-29 21:38:45 +02:00
parent 852c512bba
commit 00fca7c4fa
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/finddeclarationtool.pas
View File

@ -9805,6 +9805,10 @@ var
CurNodeStart: Integer; CurNodeStart: Integer;
begin begin
// for example 'A.B' // for example 'A.B'
if (ExprType.Context.Node=nil) then
// 'a:array[0. '
// 'f:=1. '
exit;
if fdfExtractOperand in Params.Flags then if fdfExtractOperand in Params.Flags then
Params.AddOperandPart('.'); Params.AddOperandPart('.');
if (not (NextAtomType in [vatSpace,vatIdentifier,vatPreDefIdentifier])) then if (not (NextAtomType in [vatSpace,vatIdentifier,vatPreDefIdentifier])) then