paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 04:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix 0037544: overload writing refinement

Browse Source 
git-svn-id: trunk@46367 -
This commit is contained in:
michael 2020-08-12 07:47:55 +00:00
parent ff34fb1645
commit 40b59dd3cd
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -923,7 +923,9 @@ begin
// delphi compatible order for example: procedure foo; reintroduce; overload; static;
if not IsImpl and AProc.IsReintroduced then
Add(' reintroduce;');
if AProc.IsOverload and (Not FInImplementation) then
// 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
Add(' overload;');
if not IsImpl then
begin