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

utils: fix ppudump:

Browse Source 
- show array symtable
  - support unicodestring
  - don't read "Last VTable idx" field in case of interface - this entry is not stored in ppu

git-svn-id: trunk@16688 -
This commit is contained in:
paul 2011-01-02 19:08:35 +00:00
parent e896d94650
commit dd921ffc9d
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/utils/ppudump.pp
View File

@ -1979,6 +1979,8 @@ begin
writeln(space,' Range : ',getaint,' to ',getaint); writeln(space,' Range : ',getaint,' to ',getaint);
write (space,' Options : '); write (space,' Options : ');
readarraydefoptions; readarraydefoptions;
readdefinitions('symbols');
readsymbols('symbols');
end; end;
ibprocdef : ibprocdef :
@ -2076,6 +2078,12 @@ begin
readcommondef('WideString definition',defoptions); readcommondef('WideString definition',defoptions);
writeln(space,' Length : ',getlongint); writeln(space,' Length : ',getlongint);
end; end;
ibunicodestringdef :
begin
readcommondef('UnicodeString definition',defoptions);
writeln(space,' Length : ',getlongint);
end;
ibansistringdef : ibansistringdef :
begin begin
@ -2143,7 +2151,6 @@ begin
for j:=1to 16 do for j:=1to 16 do
getbyte; getbyte;
writeln(space,' IID String : ',getstring); writeln(space,' IID String : ',getstring);
writeln(space,' Last VTable idx : ',getlongint);
end; end;
l:=getlongint; l:=getlongint;