From 37320faecc3af64b3ecf77bdd3154eeeec8417f9 Mon Sep 17 00:00:00 2001 From: ceriel Date: Fri, 25 Jul 1986 13:19:51 +0000 Subject: [PATCH] Bug fix --- mach/m68k4/libem/ara.s | 4 ++-- mach/m68k4/libem/rck.s | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/mach/m68k4/libem/ara.s b/mach/m68k4/libem/ara.s index 929ada9ee..e4e9ab195 100644 --- a/mach/m68k4/libem/ara.s +++ b/mach/m68k4/libem/ara.s @@ -38,11 +38,11 @@ move.l 12(sp),a1 move.l 4(sp),a0 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 add.l #12,sp ! pop parameters clr.l d1 !?nodig? - move.l 8(a0),d0 asr #1,d0 bne 3f move.b -(a1),d1 ! 1 byte element diff --git a/mach/m68k4/libem/rck.s b/mach/m68k4/libem/rck.s index 5b55a91c0..bb214893d 100644 --- a/mach/m68k4/libem/rck.s +++ b/mach/m68k4/libem/rck.s @@ -11,7 +11,7 @@ move.l (sp),d0 cmp.l (a0),d0 blt 1f - cmp.l 2(a0),d0 + cmp.l 4(a0),d0 ble 2f 1: move.l #ERANGE,-(sp) -- 2.34.1