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

don't try to fillchar/move by a negative amount, fixes tmem test

Browse Source 
git-svn-id: trunk@26827 -
This commit is contained in:
Károly Balogh 2014-02-22 03:30:58 +00:00
parent 74533a7c90
commit 50c59a1cc2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/m68k/m68k.inc
View File

@ -95,7 +95,7 @@ asm
the stack ATM (KB) } the stack ATM (KB) }
move.l value, d0 { fill data } move.l value, d0 { fill data }
tst.l d1 { anything to fill at all? } tst.l d1 { anything to fill at all? }
beq @LMEMSET5 ble @LMEMSET5
{$ifdef CPUM68K_HAS_DBRA} {$ifdef CPUM68K_HAS_DBRA}
{ FIXME: Any reason why not always just use DBRA mode on { FIXME: Any reason why not always just use DBRA mode on
CPUs which support it? (KB) } CPUs which support it? (KB) }
@ -263,7 +263,7 @@ begin
clr.l d0 clr.l d0
move.l count, d0 { number of bytes } move.l count, d0 { number of bytes }
tst.l d0 { anything to copy at all? } tst.l d0 { anything to copy at all? }
beq @LMOVE5 ble @LMOVE5
@LMOVE0: @LMOVE0:
move.l dest, a1 { destination } move.l dest, a1 { destination }
move.l source, a0 { source } move.l source, a0 { source }
@ -325,7 +325,7 @@ asm
the stack ATM (KB) } the stack ATM (KB) }
move.l value, d0 { fill data } move.l value, d0 { fill data }
tst.l d1 { anything to fill at all? } tst.l d1 { anything to fill at all? }
beq @LMEMSET3 ble @LMEMSET3
bra @LMEMSET21 bra @LMEMSET21
@LMEMSET11: @LMEMSET11:
move.w d0,(a0)+ move.w d0,(a0)+