bug fix

diff --git a/mach/m68020/libem/csa.s b/mach/m68020/libem/csa.s
index 1e16c73..2cec60e 100644 (file)
--- a/mach/m68020/libem/csa.s
+++ b/mach/m68020/libem/csa.s
@@ -14,7 +14,9 @@
        blt     1f
        cmp.l   (a0)+, d0       ! rel. index, upper - lower bound
        bgt     1f
-       move.l  (a0,d0.l*4), a1 ! jump address
+       move.l  (a0,d0.l*4), d1 ! jump address
+       beq     1f
+       move.l  d1,a1
 1:
        move.l  a1, d0
        beq     2f