paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 16:00:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Henrique Werlang to improve generation of IsImpl (bug ID 37510)

Browse Source 
git-svn-id: trunk@46423 -
This commit is contained in:
michael 2020-08-14 10:24:24 +00:00
parent 67d2c51b8d
commit 2c545f3afe
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-passrc/src/paswrite.pp
View File

@ -906,7 +906,7 @@ Var
begin
IsImpl:=AProc.Parent is TPasSection;
IsImpl:=AProc.Parent is TImplementationSection;
if IsImpl then
PrepareDeclSection('');
if Not IsImpl then
@ -928,7 +928,7 @@ begin
Add(' reintroduce;');
// if NamePrefix is not empty, we're writing a dummy for external class methods.
// In that case, we must not write the 'overload'.
if AProc.IsOverload and (NamePrefix='') then
if AProc.IsOverload and (NamePrefix='') and not IsImpl then
Add(' overload;');
if not IsImpl then
begin