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

improved trap handling

Browse source
This commit is contained in:
ceriel 1988-04-27 18:11:33 +00:00
parent 5891ec12a0
commit 673679e5eb
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/m2/libm2/Traps.def
View file

@ -23,6 +23,8 @@ DEFINITION MODULE Traps;
PROCEDURE InstallTrapHandler(t: TrapHandler): TrapHandler; PROCEDURE InstallTrapHandler(t: TrapHandler): TrapHandler;
(* Install a new trap handler, and return the previous one. (* Install a new trap handler, and return the previous one.
Parameter of trap handler is the trap number. Parameter of trap handler is the trap number.
When a trap occurs, the default trap handler is re-installed before
calling the new handler.
*) *)
PROCEDURE Message(str: ARRAY OF CHAR); PROCEDURE Message(str: ARRAY OF CHAR);

6
lang/m2/libm2/head_m2.e
View file

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