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

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

@ -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