d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
em 1985-01-21 15:49:22 +00:00
parent 8f81c858f8
commit 603f82a578
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
mach/vax4/libem/mon.s
View file

@ -64,24 +64,23 @@ L0:
# 0 arguments. # 0 arguments.
Lsync: Lsync:
Lpause:
Lpause: Lpause:
clrl (ap)+ clrl (ap)+
Lnores: Lnores:
jsb syscall jsb Lsyscall
movl r3,ap movl r3,ap
jmp (r2) jmp (r2)
Lgetpid: Lgetpid:
clrl (ap)+ clrl (ap)+
Lr0: Lr0:
jsb syscall jsb Lsyscall
pushl r0 pushl r0
jmp (r2) jmp (r2)
Lgetuid: Lgetuid:
Lgetgid: Lgetgid:
clrl (ap)+ clrl (ap)+
Lr0r1: Lr0r1:
jsb syscall jsb Lsyscall
pushl r0 pushl r0
pushl r1 pushl r1
jmp (r2) jmp (r2)
@ -90,7 +89,7 @@ Lwait:
Lfork: Lfork:
clrl (ap)+ clrl (ap)+
Ler0r1: Ler0r1:
jsb syscall jsb Lsyscall
pushl r0 pushl r0
pushl r1 pushl r1
clrl -(sp) clrl -(sp)
@ -117,7 +116,7 @@ Lchroot:
cvtbl $1,(ap)+ cvtbl $1,(ap)+
MOVL MOVL
Le: Le:
jsb syscall jsb Lsyscall
clrl -(sp) clrl -(sp)
jmp (r2) jmp (r2)
Lalarm: Lalarm:
@ -142,7 +141,7 @@ Ldup:
cvtbl $2,(ap)+ cvtbl $2,(ap)+
MOVQ MOVQ
Ler0: Ler0:
jsb syscall jsb Lsyscall
pushl r0 pushl r0
clrl -(sp) clrl -(sp)
jmp (r2) jmp (r2)
@ -206,7 +205,7 @@ Lcreat:
MOVL MOVL
jbr Ler0 jbr Ler0
syscall: Lsyscall:
movl $args,ap movl $args,ap
chmk (ap)+ chmk (ap)+
bcc L1 bcc L1