improved trap handling

1988-04-27 18:11:33 +00:00
parent 5891ec12a0
commit 673679e5eb
2 changed files with 6 additions and 2 deletions
--- a/lang/m2/libm2/head_m2.e
+++ b/lang/m2/libm2/head_m2.e
@@ -92,12 +92,14 @@ mainroutine
 end

 pro $trap_handler,0
+ lpi $trap_handler
+ sig
 lol 0	; trap number
 lae handler
 loi EM_PSIZE
+ lpi $catch
+ sti EM_PSIZE
 cai
- lpi $trap_handler
- sig
 asp EM_PSIZE+EM_WSIZE
 rtt
 end 0