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

FpDebug: PascalParser, allow $ sign in identifiers. Required for mangled classnames / specialized generics ...

Browse Source
This commit is contained in:
Martin 2022-04-10 12:43:19 +02:00
parent ca8c6a84e2
commit 94ae766164
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/fpdebug/fppascalparser.pas
View File

@ -1786,7 +1786,7 @@ var
procedure AddIdentifier; procedure AddIdentifier;
begin begin
while TokenEndPtr^ in ['a'..'z', 'A'..'Z', '_', '0'..'9'] do while TokenEndPtr^ in ['a'..'z', 'A'..'Z', '_', '0'..'9', '$'] do
inc(TokenEndPtr); inc(TokenEndPtr);
// TODO: Check functions not, and, in, as, is ... // TODO: Check functions not, and, in, as, is ...
if (CurPart <> nil) and (CurPart.CanHaveOperatorAsNext) then if (CurPart <> nil) and (CurPart.CanHaveOperatorAsNext) then