Explorar el Código

Adapt length of tprocinfoopt record string field to longest string

git-svn-id: trunk@23573 -
pierre hace 12 años
padre
commit
a4e0a4c0f5
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  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));