fixed some bugs

diff --git a/mach/m68020/libsys/dup2.s b/mach/m68020/libsys/dup2.s
index dcdf0e9..bd4d753 100644 (file)
--- a/mach/m68020/libsys/dup2.s
+++ b/mach/m68020/libsys/dup2.s
@@ -5,6 +5,12 @@
 .sect .data
 .sect .bss
 .sect .text
-_dup2:         move.l #0x29,d0
-               add.l #0x40,(4,sp)      ! ???
-               jmp (call)
+_dup2:
+link   a6,#0
+move.l (12,a6),-(sp)
+move.l #0,-(sp)
+move.l (8,a6),-(sp)
+jsr _fcntl
+add.l #12,sp
+unlk a6
+rts

diff --git a/mach/m68020/libsys/execl.s b/mach/m68020/libsys/execl.s
index 147716a..cded225 100644 (file)
--- a/mach/m68020/libsys/execl.s
+++ b/mach/m68020/libsys/execl.s
@@ -6,9 +6,8 @@
 .sect .bss
 .sect .text
 _execl:                link a6,#0
-               tst.b (-132,sp)
                move.l (_environ),-(sp)
-               pea (12,sp)
+               pea (12,a6)
                move.l (8,a6),-(sp)
                jsr (_execve)
                add.l #0xC,sp