os/src/WIN32/OSErrorWin32.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE OSErrorWin32;
Win32

IMPORT Atom, OSError;

PROCEDURE ErrnoAtom(n: CARDINAL): Atom.T;
Return an atom for error value n.

PROCEDURE Raise() RAISES {OSError.E};
== RAISE OSError.E(ErrnoAtom(WinBase.GetLastError()))

PROCEDURE Raise0(errno: INTEGER) RAISES {OSError.E};
== RAISE OSError.E(AtomList.List1(ErrnoAtom(errno)))

END OSErrorWin32.