From c0a0ec9962314bbb3bdcd3093f3691962319fb59 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Sun, 3 Apr 2011 13:37:07 +0000 Subject: [PATCH] correct ppudump git-svn-id: branches/svenbarth/classhelpers@17238 - --- compiler/utils/ppudump.pp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/utils/ppudump.pp b/compiler/utils/ppudump.pp index 536af8451a..c78146da6b 100644 --- a/compiler/utils/ppudump.pp +++ b/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 : ');