浏览代码

* also print method implementation when reusing a forward definition

git-svn-id: branches/jvmbackend@18548 -
Jonas Maebe 14 年之前
父节点
当前提交
1b0b6a9d6d
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/symcreat.pas

+ 1 - 1
compiler/symcreat.pas

@@ -149,7 +149,7 @@ implementation
       if ((status.verbosity and v_debug)<>0) then
       if ((status.verbosity and v_debug)<>0) then
         begin
         begin
            if assigned(usefwpd) then
            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
            else
              begin
              begin
                if is_classdef then
                if is_classdef then