* use ptrint

tests/webtbf/tw0855.pp

@@ -5,7 +5,7 @@ type
   TMyRec = record
     x: Integer;
   end;
-  TMyArray = array[LongWord] of TMyRec;
+  TMyArray = array[Ptrint] of TMyRec;
   PMyArray = ^TMyArray;
 var
   a: PMyArray;

tests/webtbf/tw1238.pp

@@ -6,7 +6,7 @@ PROGRAM Concat;
 VAR
   InputFile,OutputFile:File;
   c:Char;
-  Buffer:Array[DWord]OF Byte;
+  Buffer:Array[PtrInt]OF Byte;
   ReadCount,WriteCount:DWord;
 BEGIN
   Assign(OutputFile,'Maple.tar.gz');