From 2f2f394beebdfac23e96c75023ce411962cb5410 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 27 Oct 2012 08:12:31 +0000
Subject: [PATCH]   * fixed wrong opcode size

git-svn-id: trunk@22855 -
---
 rtl/x86_64/cpu.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/x86_64/cpu.pp b/rtl/x86_64/cpu.pp
index 66bdc78bd2..65cfc11917 100644
--- a/rtl/x86_64/cpu.pp
+++ b/rtl/x86_64/cpu.pp
@@ -133,7 +133,7 @@ unit cpu;
         // older FPCs don't know the xgetbv opcode
         .byte 0x0f,0x01,0xd0
         andl $0xffffffff,%eax
-        shll $32,%rdx
+        shlq $32,%rdx
         orq %rdx,%rax
       end;