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

Jedi Code Format: Parse raise exception.create(msg) at adress,adress. Issue #39142, patch by Domingo Galmés.

Browse Source 
git-svn-id: trunk@65361 -
This commit is contained in:
juha 2021-07-04 12:11:23 +00:00
parent bd59984c98
commit 88a3b7c7ab
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/jcf2/Parse/BuildParseTree.pas
View File

@ -3410,6 +3410,11 @@ begin
begin begin
Recognise(ttAt); Recognise(ttAt);
RecogniseExpr(True); RecogniseExpr(True);
if fcTokenList.FirstSolidTokenType = ttComma then
begin
Recognise(ttComma);
RecogniseExpr(True);
end;
end; end;
end; end;