unix/src/osf-1.ALPHA_OSF/Usignal.m3


Copyright (C) 1994, Digital Equipment Corp.

UNSAFE MODULE Usignal;

IMPORT Word, Ctypes;
FROM Ctypes IMPORT int;

PROCEDURE 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.

interface Usignal is in: