From 40b59dd3cdb89b664eff22c5c80f2f855e6237c7 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 12 Aug 2020 07:47:55 +0000
Subject: [PATCH] * Fix 0037544: overload writing refinement

git-svn-id: trunk@46367 -
---
 packages/fcl-passrc/src/paswrite.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index 94070cb009..8135783ffb 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -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