Bug fix

diff --git a/mach/m68k4/libem/ara.s b/mach/m68k4/libem/ara.s
index 929ada9..e4e9ab1 100644 (file)
--- 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 5b55a91..bb21489 100644 (file)
--- 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)