From: ceriel <none@none>
Date: Mon, 2 Nov 1987 14:23:38 +0000 (+0000)
Subject: fixed some bugs
X-Git-Tag: release-5-5~3768
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=ab5a0efd48fcbfd8dac07a9442525be2e04b71fb;p=ack.git

fixed some bugs
---

diff --git a/mach/m68020/libsys/dup2.s b/mach/m68020/libsys/dup2.s
index dcdf0e9c1..bd4d753f2 100644
--- 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 147716a6b..cded22519 100644
--- 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