mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-18 01:29:33 +02:00
JCF2: Support finalization without initialization. Issue #31821, patch from CCRDude.
git-svn-id: trunk@54965 -
This commit is contained in:
parent
d208ef2dad
commit
d88911aefa
@ -4152,6 +4152,12 @@ begin
|
||||
|
||||
Recognise(ttEnd);
|
||||
end;
|
||||
ttFinalization:
|
||||
begin
|
||||
Recognise(ttFinalization, True);
|
||||
RecogniseStatementList([ttEnd]);
|
||||
Recognise(ttEnd);
|
||||
end;
|
||||
ttBegin:
|
||||
begin
|
||||
Recognise(ttBegin);
|
||||
|
Loading…
Reference in New Issue
Block a user