Selaa lähdekoodia

* 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 14 vuotta sitten
vanhempi
commit
48710a5a3f
1 muutettua tiedostoa jossa 1 lisäystä ja 1 poistoa
  1. 1 1
      compiler/symcreat.pas

+ 1 - 1
compiler/symcreat.pas

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