mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 05:39:18 +02:00
Codetools: Complete also a virtual/overridden method body with empty brackets. Issue #40799, patch by Domingo Galmés.
This commit is contained in:
parent
12e9db2f31
commit
d0c036aa81
@ -8464,9 +8464,9 @@ begin
|
||||
if InclProcCall then begin
|
||||
ProcCode:=ExtractProcHead(ProcNode,[phpWithStart,phpAddClassname,
|
||||
phpWithVarModifiers,phpWithParameterNames,
|
||||
phpWithResultType,phpWithCallingSpecs]);
|
||||
phpWithResultType,phpWithCallingSpecs,phpWithEmptyParamList]);
|
||||
ProcCall:='inherited '+ExtractProcHead(ProcNode,[phpWithoutClassName,
|
||||
phpWithParameterNames,phpWithoutParamTypes]);
|
||||
phpWithParameterNames,phpWithoutParamTypes,phpWithEmptyParamList]);
|
||||
for i:=1 to length(ProcCall)-1 do
|
||||
if ProcCall[i]=';' then
|
||||
ProcCall[i]:=',';
|
||||
|
Loading…
Reference in New Issue
Block a user