浏览代码

utils: fix ppudump:
- 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 -

paul 14 年之前
父节点
当前提交
dd921ffc9d
共有 1 个文件被更改,包括 8 次插入1 次删除
  1. 8 1
      compiler/utils/ppudump.pp

+ 8 - 1
compiler/utils/ppudump.pp

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