Copyright (C) 1994, Digital Equipment Corp.
UNSAFE MODULE; IMPORT Word, Ctypes; PROCEDURE Usignal sigmask (n: Ctypes.int): Ctypes.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.