From: em <none@none>
Date: Mon, 21 Jan 1985 15:49:22 +0000 (+0000)
Subject: Bug fix: redefined a Local local causing an INTERNAL ERROR from as.
X-Git-Tag: release-5-5~5741
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=603f82a578fb1f563f503ee19a295805b2116f74;p=ack.git

Bug fix: redefined a Local local causing an INTERNAL ERROR from as.
---

diff --git a/mach/vax4/libem/mon.s b/mach/vax4/libem/mon.s
index dbb74cb4e..51f67485f 100644
--- a/mach/vax4/libem/mon.s
+++ b/mach/vax4/libem/mon.s
@@ -7,7 +7,7 @@
 
 .set sigvec,108
 
-.globl .mon
+.globl	.mon
 
 .mon:
 	movl	(sp)+,r2	# return address in r2
@@ -64,24 +64,23 @@ L0:
 
 	# 0 arguments.
 Lsync:
-Lpause:
 Lpause:
 	clrl	(ap)+
 Lnores:
-	jsb	syscall
+	jsb	Lsyscall
 	movl	r3,ap
 	jmp	(r2)
 Lgetpid:
 	clrl	(ap)+
 Lr0:
-	jsb	syscall
+	jsb	Lsyscall
 	pushl	r0
 	jmp	(r2)
 Lgetuid:
 Lgetgid:
 	clrl	(ap)+
 Lr0r1:
-	jsb	syscall
+	jsb	Lsyscall
 	pushl	r0
 	pushl	r1
 	jmp	(r2)
@@ -90,7 +89,7 @@ Lwait:
 Lfork:
 	clrl	(ap)+
 Ler0r1:
-	jsb	syscall
+	jsb	Lsyscall
 	pushl	r0
 	pushl	r1
 	clrl	-(sp)
@@ -117,7 +116,7 @@ Lchroot:
 	cvtbl	$1,(ap)+
 	MOVL
 Le:
-	jsb	syscall
+	jsb	Lsyscall
 	clrl	-(sp)
 	jmp	(r2)
 Lalarm:
@@ -142,7 +141,7 @@ Ldup:
 	cvtbl	$2,(ap)+
 	MOVQ
 Ler0:
-	jsb	syscall
+	jsb	Lsyscall
 	pushl	r0
 	clrl	-(sp)
 	jmp	(r2)
@@ -206,7 +205,7 @@ Lcreat:
 	MOVL
 	jbr	Ler0
 
-syscall:
+Lsyscall:
 	movl	$args,ap
 	chmk	(ap)+
 	bcc	L1