From ab5a0efd48fcbfd8dac07a9442525be2e04b71fb Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 2 Nov 1987 14:23:38 +0000
Subject: [PATCH] fixed some bugs

---
 mach/m68020/libsys/dup2.s  | 12 +++++++++---
 mach/m68020/libsys/execl.s |  3 +--
 2 files changed, 10 insertions(+), 5 deletions(-)

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