paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 06:29:22 +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 } aBytesToPop is the size of the stack to the Self argument }
movl RawThunkPlaceholderBytesToPop, %eax movl RawThunkPlaceholderBytesToPop, %eax
movl %sp, %ecx movl %esp, %ecx
lea (%ecx,%eax), %eax lea (%ecx,%eax), %eax
movl RawThunkPlaceholderContext, (%eax) movl RawThunkPlaceholderContext, (%eax)
movl RawThunkPlaceholderProc, %eax movl RawThunkPlaceholderProc, %eax
@ -876,8 +876,8 @@ type
procedure RawThunk; assembler; nostackframe; procedure RawThunk; assembler; nostackframe;
asm asm
{ Self is always in register RCX } { Self is always in register RCX }
movl RawThunkPlaceholderContext, %rcx movq RawThunkPlaceholderContext, %rcx
movl RawThunkPlaceholderProc, %rax movq RawThunkPlaceholderProc, %rax
jmp %rax jmp %rax
RawThunkEnd: RawThunkEnd:
end; end;
@ -885,8 +885,8 @@ end;
procedure RawThunk; assembler; nostackframe; procedure RawThunk; assembler; nostackframe;
asm asm
{ Self is always in register RDI } { Self is always in register RDI }
movl RawThunkPlaceholderContext, %rdi movq RawThunkPlaceholderContext, %rdi
movl RawThunkPlaceholderProc, %rax movq RawThunkPlaceholderProc, %rax
jmp %rax jmp %rax
RawThunkEnd: RawThunkEnd:
end; end;