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

Traps now work as documented.

Browse source
This commit is contained in:
keie 1984-12-18 17:11:35 +00:00
parent 53a88ccd69
commit 7b39ce2cfa
1 changed files with 36 additions and 6 deletions

42
mach/mantra/int/mloopb
View file

@ -1,4 +1,5 @@
_sigtrp: mov (sp)+,d1 !trapno in d1 _sigtrp: move.l (sp)+,d2 !save return address
mov (sp)+,d1 !trapno in d1
mov (sp)+,d4 !signo in d4 mov (sp)+,d4 !signo in d4
extend d4 extend d4
extend d1 extend d1
@ -26,7 +27,7 @@ sig_bad: mov 22,-(sp) !_signal. If pointer 0 trapping is
move.l d3,-(sp) !set arguments to signal: move.l d3,-(sp) !set arguments to signal:
mov d4,-(sp) !pointer ,signo to be trapped mov d4,-(sp) !pointer ,signo to be trapped
bsr _signal bsr _signal
cl -(sp) !set code for no error jmp (a4)
.data .data
sig_adr: .long sig1 ; .long sig2 ; .long sig3 ; .long 0 sig_adr: .long sig1 ; .long sig2 ; .long sig3 ; .long 0
.long 0 ; .long 0 ; .long 0 ; .long 0 .long 0 ; .long 0 ; .long 0 ; .long 0
@ -39,11 +40,40 @@ sig_trp: .long -2 ; .long -2 ; .long -2 ; .long -2
.text .text
!the next procedures map the catched signal to em errors. The em error !the next procedures map the catched signal to em errors. The em error
!procedure will handle this. !procedure will handle this.
sig1: sig2: sig3: sig8: sig13: sig14: sig15: sig16: sig1: pea retutrap
pea retutrap move.l sig_trp,d0
mov d1,-(sp) mov d0,-(sp)
bra error bra error
retutrap: rtr sig2: pea retutrap
move.l sig_trp+4,d0
mov d0,-(sp)
bra error
sig3: pea retutrap
move.l sig_trp+8,d0
mov d0,-(sp)
bra error
sig8: pea retutrap
move.l sig_trp+28,d0
mov d0,-(sp)
bra error
sig13: pea retutrap
move.l sig_trp+48,d0
mov d0,-(sp)
bra error
sig14: pea retutrap
move.l sig_trp+52,d0
mov d0,-(sp)
bra error
sig15: pea retutrap
move.l sig_trp+56,d0
mov d0,-(sp)
bra error
sig16: pea retutrap
move.l sig_trp+60,d0
mov d0,-(sp)
bra error
retutrap: add.l #4,sp !remove signumber
rtr
sig12: pea sig12 sig12: pea sig12
mov #12,-(sp) mov #12,-(sp)