mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
* Coldfire does not support MOVEM together with pre-decrement or post-increment, so abuse TST for that which is only a single instruction word
git-svn-id: trunk@38042 -
This commit is contained in:
parent
00141749d5
commit
9822374680
@ -23,7 +23,12 @@ asm
|
||||
tst.l d1
|
||||
beq.s @xit0
|
||||
|
||||
{$ifndef CPUCOLDFIRE}
|
||||
movem.l d2-d5,-(sp)
|
||||
{$else}
|
||||
tst.l -(sp)
|
||||
movem.l d2-d5,(sp)
|
||||
{$endif}
|
||||
move.l d0,d5
|
||||
|
||||
eor.l d1,d5
|
||||
@ -73,7 +78,12 @@ asm
|
||||
negx.l d1
|
||||
|
||||
@xit:
|
||||
{$ifndef CPUCOLDFIRE}
|
||||
movem.l (sp)+,d2-d5
|
||||
{$else}
|
||||
movem.l (sp),d2-d5
|
||||
tst.l (sp)+
|
||||
{$endif}
|
||||
exg.l d0,d1
|
||||
rts
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user