d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Bug fix

Browse source
This commit is contained in:
ceriel 1986-07-25 13:19:51 +00:00
parent f68d0ffb7d
commit 37320faecc
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
mach/m68k4/libem/ara.s
View file

@ -38,11 +38,11 @@
move.l 12(sp),a1 move.l 12(sp),a1
move.l 4(sp),a0 move.l 4(sp),a0
add.l d1,a1 ! address of element add.l d1,a1 ! address of element
add.l 8(a0),a1 ! a1++ because of predecrement move.l 8(a0),d0
add.l d0,a1 ! a1++ because of predecrement
move.l (sp)+,a0 ! return address move.l (sp)+,a0 ! return address
add.l #12,sp ! pop parameters add.l #12,sp ! pop parameters
clr.l d1 !?nodig? clr.l d1 !?nodig?
move.l 8(a0),d0
asr #1,d0 asr #1,d0
bne 3f bne 3f
move.b -(a1),d1 ! 1 byte element move.b -(a1),d1 ! 1 byte element

2
mach/m68k4/libem/rck.s
View file

@ -11,7 +11,7 @@
move.l (sp),d0 move.l (sp),d0
cmp.l (a0),d0 cmp.l (a0),d0
blt 1f blt 1f
cmp.l 2(a0),d0 cmp.l 4(a0),d0
ble 2f ble 2f
1: 1:
move.l #ERANGE,-(sp) move.l #ERANGE,-(sp)