From 7f6122884f2de4a5d761eb4039a6cfd3c55f2149 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 19 Aug 2019 12:05:30 +0000
Subject: [PATCH]  Fix assembly instruction errors

git-svn-id: trunk@42738 -
---
 packages/rtl-objpas/src/inc/rtti.pp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index 7436f63b3d..7ce9ce2ec5 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -856,7 +856,7 @@ asm
     aBytesToPop is the size of the stack to the Self argument }
 
   movl RawThunkPlaceholderBytesToPop, %eax
-  movl %sp, %ecx
+  movl %esp, %ecx
   lea (%ecx,%eax), %eax
   movl RawThunkPlaceholderContext, (%eax)
   movl RawThunkPlaceholderProc, %eax
@@ -876,8 +876,8 @@ type
 procedure RawThunk; assembler; nostackframe;
 asm
   { Self is always in register RCX }
-  movl RawThunkPlaceholderContext, %rcx
-  movl RawThunkPlaceholderProc, %rax
+  movq RawThunkPlaceholderContext, %rcx
+  movq RawThunkPlaceholderProc, %rax
   jmp %rax
 RawThunkEnd:
 end;
@@ -885,8 +885,8 @@ end;
 procedure RawThunk; assembler; nostackframe;
 asm
   { Self is always in register RDI }
-  movl RawThunkPlaceholderContext, %rdi
-  movl RawThunkPlaceholderProc, %rax
+  movq RawThunkPlaceholderContext, %rdi
+  movq RawThunkPlaceholderProc, %rax
   jmp %rax
 RawThunkEnd:
 end;