瀏覽代碼

Adapt length of tprocinfoopt record string field to longest string

git-svn-id: trunk@23573 -
pierre 12 年之前
父節點
當前提交
a4e0a4c0f5
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/utils/ppudump.pp

+ 1 - 1
compiler/utils/ppudump.pp

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