Pārlūkot izejas kodu

correct ppudump

git-svn-id: branches/svenbarth/classhelpers@17238 -
svenbarth 14 gadi atpakaļ
vecāks
revīzija
c0a0ec9962
1 mainītis faili ar 2 papildinājumiem un 2 dzēšanām
  1. 2 2
      compiler/utils/ppudump.pp

+ 2 - 2
compiler/utils/ppudump.pp

@@ -2181,7 +2181,7 @@ begin
                odt_dispinterface  : writeln('dispinterface');
                odt_objcclass      : writeln('objcclass');
                odt_objcprotocol   : writeln('objcprotocol');
-               odt_classhelper    : writeln('class helper');
+               odt_helper         : writeln('helper');
                else                 writeln('!! Warning: Invalid object type ',b);
              end;
              writeln(space,'    External name : ',getstring);
@@ -2201,7 +2201,7 @@ begin
                   writeln(space,'       IID String : ',getstring);
                end;
 
-             if (tobjecttyp(b)=odt_classhelper) or
+             if (tobjecttyp(b)=odt_helper) or
                  (oo_is_classhelper in current_objectoptions) then
                begin
                  write(space,'    Helper parent : ');