paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 16:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix assembly instruction errors

Browse Source 
git-svn-id: trunk@42738 -
This commit is contained in:
pierre 2019-08-19 12:05:30 +00:00
parent 1da7ba5d70
commit 7f6122884f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -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;