From 10db34aa2608ca9a39e82c39825b7ad41491e024 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 2 Nov 2004 08:04:03 +0000
Subject: [PATCH]   * use ptrint

---
 tests/webtbf/tw0855.pp | 2 +-
 tests/webtbf/tw1238.pp | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/webtbf/tw0855.pp b/tests/webtbf/tw0855.pp
index 9a98cf3d3e..52e33a7ce1 100644
--- a/tests/webtbf/tw0855.pp
+++ b/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;
diff --git a/tests/webtbf/tw1238.pp b/tests/webtbf/tw1238.pp
index 3b72df975d..cf02a60dcd 100644
--- a/tests/webtbf/tw1238.pp
+++ b/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');