Browse Source

+ added the uf_package_deny and uf_package_weak unit flags to ppudump

git-svn-id: trunk@34138 -
nickysn 9 years ago
parent
commit
44e4b638ec
1 changed files with 4 additions and 2 deletions
  1. 4 2
      compiler/utils/ppuutils/ppudump.pp

+ 4 - 2
compiler/utils/ppuutils/ppudump.pp

@@ -537,7 +537,7 @@ type
     str  : string[30];
     str  : string[30];
   end;
   end;
 const
 const
-  flagopts=28;
+  flagopts=30;
   flagopt : array[1..flagopts] of tflagopt=(
   flagopt : array[1..flagopts] of tflagopt=(
     (mask: $1    ;str:'init'),
     (mask: $1    ;str:'init'),
     (mask: $2    ;str:'final'),
     (mask: $2    ;str:'final'),
@@ -568,7 +568,9 @@ const
     (mask: $2000000 ;str:'i8086_far_code'),
     (mask: $2000000 ;str:'i8086_far_code'),
     (mask: $4000000 ;str:'i8086_far_data'),
     (mask: $4000000 ;str:'i8086_far_data'),
     (mask: $8000000 ;str:'i8086_huge_data'),
     (mask: $8000000 ;str:'i8086_huge_data'),
-    (mask: $10000000;str:'i8086_cs_equals_ds')
+    (mask: $10000000;str:'i8086_cs_equals_ds'),
+    (mask: $20000000;str:'package_deny'),
+    (mask: $40000000;str:'package_weak')
   );
   );
 var
 var
   i,ntflags : longint;
   i,ntflags : longint;