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

FpDebug: Fix parsing &Identifer in watches

Browse Source
This commit is contained in:
Martin 2022-09-09 13:04:36 +02:00
parent 4d22d48f2e
commit 099f690aea
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpdebug/fppascalparser.pas
View File

@ -2123,6 +2123,7 @@ var
'&': if TokenEndPtr^ in ['a'..'z', 'A'..'Z'] then begin '&': if TokenEndPtr^ in ['a'..'z', 'A'..'Z'] then begin
// escaped keyword used as identifier // escaped keyword used as identifier
while TokenEndPtr^ in ['a'..'z', 'A'..'Z', '0'..'9', '_'] do inc(TokenEndPtr); while TokenEndPtr^ in ['a'..'z', 'A'..'Z', '0'..'9', '_'] do inc(TokenEndPtr);
inc(CurPtr);
NewPart := TFpPascalExpressionPartIdentifier.Create(Self, CurPtr, TokenEndPtr-1); NewPart := TFpPascalExpressionPartIdentifier.Create(Self, CurPtr, TokenEndPtr-1);
exit; exit;
end end