paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 12:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* correctly allocate the space for the 5 registers that are stored

Browse Source 
git-svn-id: trunk@38054 -
This commit is contained in:
svenbarth 2018-01-26 21:48:07 +00:00
parent ea193bc993
commit 8522474457
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/m68k/int64p.inc
View File

@ -26,7 +26,7 @@ asm
{$ifndef CPUCOLDFIRE} {$ifndef CPUCOLDFIRE}
movem.l d2-d5,-(sp) movem.l d2-d5,-(sp)
{$else} {$else}
tst.l -(sp) lea -20(sp),sp
movem.l d2-d6,(sp) movem.l d2-d6,(sp)
{$endif} {$endif}
move.l d0,d5 move.l d0,d5
@ -104,7 +104,7 @@ asm
move.l d1,d0 move.l d1,d0
move.l d2,d1 move.l d2,d1
movem.l (sp),d2-d6 movem.l (sp),d2-d6
tst.l (sp)+ lea 20(sp),sp
{$endif} {$endif}
rts rts