From 1b0b6a9d6d227ebb97a014d187aa952f14669b2d Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 20 Aug 2011 08:09:26 +0000
Subject: [PATCH]   * also print method implementation when reusing a forward
 definition

git-svn-id: branches/jvmbackend@18548 -
---
 compiler/symcreat.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/symcreat.pas b/compiler/symcreat.pas
index d68d710bd6..69b6ba5606 100644
--- a/compiler/symcreat.pas
+++ b/compiler/symcreat.pas
@@ -149,7 +149,7 @@ implementation
       if ((status.verbosity and v_debug)<>0) then
         begin
            if assigned(usefwpd) then
-             Message1(parser_d_internal_parser_string,usefwpd.customprocname([pno_proctypeoption,pno_paranames,pno_noclassmarker,pno_noleadingdollar]))
+             Message1(parser_d_internal_parser_string,usefwpd.customprocname([pno_proctypeoption,pno_paranames,pno_noclassmarker,pno_noleadingdollar])+str)
            else
              begin
                if is_classdef then