Browse Source

Adapt length of tprocinfoopt record string field to longest string

git-svn-id: trunk@23573 -
pierre 12 years ago
parent
commit
a4e0a4c0f5
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/utils/ppudump.pp

+ 1 - 1
compiler/utils/ppudump.pp

@@ -1020,7 +1020,7 @@ procedure readprocinfooptions(space : string);
 type
 type
   tprocinfoopt=record
   tprocinfoopt=record
     mask : tprocinfoflag;
     mask : tprocinfoflag;
-    str  : string[80];
+    str  : string[81];
   end;
   end;
 const
 const
   procinfoopts=ord(high(tprocinfoflag)) - ord(low(tprocinfoflag));
   procinfoopts=ord(high(tprocinfoflag)) - ord(low(tprocinfoflag));