libm3/src/os/WIN32/OSErrorWin32.i3


 Copyright 1992 Digital Equipment Corporation. 
 Distributed only by permission. 
 Last modified on Tue Dec 20 08:37:54 PST 1994 by kalsow  
      modified on Fri Feb  5 14:17:09 PST 1993 by mjordan 

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.