summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsvenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2>2021-02-02 22:32:13 +0000
committersvenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2>2021-02-02 22:32:13 +0000
commitb4c6a21e456a24201492ebf849904c322d235ffc (patch)
treebd182cba783a3d2aa2a7eeccadb036bd90655521
parent25d58c487807d7624c8329c40b7d112458048207 (diff)
downloadfpc-b4c6a21e456a24201492ebf849904c322d235ffc.tar.gz
Merged revision(s) 48496 from trunk:
* test for 32 bit targets fixed ........ git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_2@48502 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r--tests/webtbs/uw38429.pp2
1 files changed, 1 insertions, 1 deletions
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;