changed entry points csa and csb; strscript should call m68020

instead of acc

diff --git a/mach/m68020/libem/csa.s b/mach/m68020/libem/csa.s
index b540a2e..b6e117e 100644 (file)
--- a/mach/m68020/libem/csa.s
+++ b/mach/m68020/libem/csa.s
@@ -8,9 +8,10 @@ ECASE=20
 .sect .text
 
 .csa:
-       move.l  (sp)+, a0       ! jump table address
+               ! jump table address in a0
+               ! index in d0
+
        move.l  (a0)+, a1       ! default address
-       move.l  (sp)+, d0       ! index
        sub.l   (a0)+, d0       ! index - lower bound
        blt     1f
        cmp.l   (a0)+, d0       ! rel. index, upper - lower bound

diff --git a/mach/m68020/libem/csb.s b/mach/m68020/libem/csb.s
index 550f496..fe2d9d6 100644 (file)
--- a/mach/m68020/libem/csb.s
+++ b/mach/m68020/libem/csb.s
@@ -8,8 +8,9 @@ ECASE=20
 .sect .text
 
 .csb:
-       move.l  (sp)+, a0       ! case descriptor
-       move.l  (sp)+, d0       ! index
+               ! case descriptor in a0
+               ! index in d0
+
        move.l  (a0)+, a1       ! default jump address
        move.l  (a0)+, d1       ! # entries
        beq     3f

diff --git a/mach/m68020/libem/strscript b/mach/m68020/libem/strscript
index 51b62fd..ee4cc1b 100644 (file)
--- a/mach/m68020/libem/strscript
+++ b/mach/m68020/libem/strscript
@@ -1,3 +1,3 @@
-acc -c.s -L -LIB -I../../../h trpstr.c
+m68020 -c.s -L -LIB -I../../../h trpstr.c
 sed s/_trpstr/.trpstr/g < trpstr.s > trpstr.ss
 mv trpstr.ss trpstr.s