From fb387da807808444d289240bc5f55b66dc379e23 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 22 Jun 2019 13:31:02 +0000
Subject: [PATCH]   * use variables of correct size with movd (test checks
 whether movd only     reads 32 bit even when destination is xmm register)
 (mantis #35701,     as noted by J. Gareth Moreton)

git-svn-id: trunk@42268 -
---
 tests/webtbs/tw13294.pp | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/tests/webtbs/tw13294.pp b/tests/webtbs/tw13294.pp
index 0c6aa9abee..c51283ad39 100644
--- a/tests/webtbs/tw13294.pp
+++ b/tests/webtbs/tw13294.pp
@@ -6,14 +6,17 @@ program movdtest;
 var 
   a: int64 = 128133443 or (int64(123455) shl 32);
   b: int64;
+  al: longint absolute a;
+  bl: longint absolute b;
 begin
+  b:=0;
   asm
 {$ifdef cpui386}
-      movd a, %xmm0
-      movd %xmm0, b
+      movd al, %xmm0
+      movd %xmm0, bl
 {$else}
-      movd a(%rip), %xmm0
-      movd %xmm0, b(%rip)
+      movd al(%rip), %xmm0
+      movd %xmm0, bl(%rip)
 {$endif}
   end;
   if b<>128133443 then