paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 21:49:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* updated to support 64 bit PPUs (no "cross dumping" yet)

Browse Source 
+ dispinterface dumping

git-svn-id: trunk@3399 -
This commit is contained in:
florian 2006-05-01 15:14:54 +00:00
parent 39bdf06629
commit 36c8decc92
1 changed files with 10 additions and 9 deletions

19
compiler/utils/ppudump.pp
View File

@ -1444,7 +1444,7 @@ begin
ibfieldvarsym :
begin
readabstractvarsym('Field Variable symbol ',varoptions);
writeln(space,' Address : ',getlongint);
writeln(space,' Address : ',getaint);
end;
ibglobalvarsym :
@ -1589,7 +1589,8 @@ type
odt_object,
odt_interfacecom,
odt_interfacecorba,
odt_cppclass
odt_cppclass,
odt_dispinterface
);
tvarianttype = (
vt_normalvariant,vt_olevariant
@ -1672,7 +1673,7 @@ begin
readtype;
write (space,' Range Type : ');
readtype;
writeln(space,' Range : ',getlongint,' to ',getlongint);
writeln(space,' Range : ',getaint,' to ',getaint);
write (space,' Options : ');
readarraydefoptions;
end;
@ -1771,7 +1772,7 @@ begin
ibrecorddef :
begin
readcommondef('Record definition');
writeln(space,' DataSize : ',getlongint);
writeln(space,' DataSize : ',getaint);
writeln(space,' FieldAlign : ',getbyte);
writeln(space,' RecordAlign : ',getbyte);
writeln(space,' PadAlign : ',getbyte);
@ -1798,7 +1799,7 @@ begin
else writeln('!! Warning: Invalid object type ',b);
end;
writeln(space,' Name of Class : ',getstring);
writeln(space,' DataSize : ',getlongint);
writeln(space,' DataSize : ',getaint);
writeln(space,' FieldAlign : ',getbyte);
writeln(space,' RecordAlign : ',getbyte);
writeln(space,' Vmt offset : ',getlongint);
@ -1807,7 +1808,7 @@ begin
write (space,' Options : ');
readobjectdefoptions;
if tobjectdeftype(b) in [odt_interfacecom,odt_interfacecorba] then
if tobjectdeftype(b) in [odt_interfacecom,odt_interfacecorba,odt_dispinterface] then
begin
{ IIDGUID }
for j:=1to 16 do
@ -1863,9 +1864,9 @@ begin
readcommondef('Enumeration type definition');
write(space,'Base enumeration type : ');
readderef;
writeln(space,' Smallest element : ',getlongint);
writeln(space,' Largest element : ',getlongint);
writeln(space,' Size : ',getlongint);
writeln(space,' Smallest element : ',getaint);
writeln(space,' Largest element : ',getaint);
writeln(space,' Size : ',getaint);
end;
ibclassrefdef :