Quellcode durchsuchen

* print the owning class/record of internally generated methods when
parsing their implementation if -vd is specified

git-svn-id: branches/jvmbackend@18754 -

Jonas Maebe vor 14 Jahren
Ursprung
Commit
48710a5a3f
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  1. 1 1
      compiler/symcreat.pas

+ 1 - 1
compiler/symcreat.pas

@@ -206,7 +206,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])+str)
+             Message1(parser_d_internal_parser_string,usefwpd.customprocname([pno_proctypeoption,pno_paranames,pno_ownername,pno_noclassmarker,pno_noleadingdollar])+str)
            else
            else
              begin
              begin
                if is_classdef then
                if is_classdef then