Copyright (C) 1994, Digital Equipment Corp. UNSAFE MODULE; IMPORT Word, Ctypes; FROM Ctypes IMPORT int; PROCEDURE Usignal sigmask (n: int): int = BEGIN RETURN Word.Shift (1, n-1); END sigmask; BEGIN BADSIG := LOOPHOLE (-1, SignalHandler); SIG_ERR := LOOPHOLE (-1, SignalHandler); SIG_DFL := LOOPHOLE ( 0, SignalHandler); SIG_IGN := LOOPHOLE ( 1, SignalHandler); END Usignal.