Copyright (C) 1994, Digital Equipment Corp. INTERFACEWin32OSErrorWin32 ;
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.