From 40b8bde305bf4b321178061689fad4b326673660 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 1 Feb 2021 21:14:19 +0000
Subject: [PATCH]   * test for 32 bit targets fixed

git-svn-id: trunk@48496 -
---
 tests/webtbs/uw38429.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/webtbs/uw38429.pp b/tests/webtbs/uw38429.pp
index f59f91c329..0ec87fb766 100644
--- a/tests/webtbs/uw38429.pp
+++ b/tests/webtbs/uw38429.pp
@@ -11,7 +11,7 @@ uses
 type
   TMyVar = packed record
     VType: TVarType;
-    Dummy1: array[0..Pred(SizeOf(Pointer) - 2)] of Byte;
+    Dummy1: array[0..2] of Word;
     Dummy2,
     Dummy3: Pointer;
     procedure Init;