paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 23:29:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

correct ppudump

Browse Source 
git-svn-id: branches/svenbarth/classhelpers@17238 -
This commit is contained in:
svenbarth 2011-04-03 13:37:07 +00:00
parent 553d357d64
commit c0a0ec9962
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/utils/ppudump.pp
View File

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