From 33c81637dba52b54b12a5aa1c7d95ac8621f187e Mon Sep 17 00:00:00 2001
From: em <none@none>
Date: Tue, 22 Jan 1985 13:10:35 +0000
Subject: [PATCH] Added `movl r3,ap' to restore the argument pointer before
 returning vi jmp (r0).

---
 mach/vax4/libem/mon.s | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/mach/vax4/libem/mon.s b/mach/vax4/libem/mon.s
index 51f67485f..01e8c5b87 100644
--- a/mach/vax4/libem/mon.s
+++ b/mach/vax4/libem/mon.s
@@ -75,6 +75,7 @@ Lgetpid:
 Lr0:
 	jsb	Lsyscall
 	pushl	r0
+	movl	r3,ap
 	jmp	(r2)
 Lgetuid:
 Lgetgid:
@@ -83,6 +84,7 @@ Lr0r1:
 	jsb	Lsyscall
 	pushl	r0
 	pushl	r1
+	movl	r3,ap
 	jmp	(r2)
 Lpipe:
 Lwait:	
@@ -93,6 +95,7 @@ Ler0r1:
 	pushl	r0
 	pushl	r1
 	clrl	-(sp)
+	movl	r3,ap
 	jmp	(r2)
 
 	# 1 argument.
@@ -118,6 +121,7 @@ Lchroot:
 Le:
 	jsb	Lsyscall
 	clrl	-(sp)
+	movl	r3,ap
 	jmp	(r2)
 Lalarm:
 Lumask:
@@ -144,6 +148,7 @@ Ler0:
 	jsb	Lsyscall
 	pushl	r0
 	clrl	-(sp)
+	movl	r3,ap
 	jmp	(r2)
 
 	# 3 arguments.
@@ -211,6 +216,7 @@ Lsyscall:
 	bcc	L1
 	cvtwl	r0,(sp)		# Push the error returned twice,
 	cvtwl	r0,-(sp)	# overwrite the return address
+	movl	r3,ap
 	jmp	(r2)
 L1:
 	rsb
@@ -261,16 +267,20 @@ sys:
 	bcc	L4
 	movl	(sp),sigtrp0 [r1] # Error, reset old trap number.
 	pushl	r0
+	movl	r3,ap
 	jmp	(r2)
 L4:	clrl	-(sp)
+	movl	r3,ap
 	jmp	(r2)
 badsig:
 	movl	$-1,(sp)
 	pushl	(sp)
+	movl	r3,ap
 	jmp	(r2)
 badtrp:
 	movl	sigtrp0 [r1],(sp)
 	pushl	$-1
+	movl	r3,ap
 	jmp	(r2)
 
 sigs:
-- 
2.34.1