diff --git a/rtl/netware/sysutils.pp b/rtl/netware/sysutils.pp index 90e5c5a1eb..a667fc4619 100644 --- a/rtl/netware/sysutils.pp +++ b/rtl/netware/sysutils.pp @@ -26,6 +26,7 @@ uses DOS; {$I nwsys.inc} {$I errno.inc} {$DEFINE HAS_SLEEP} +{$DEFINE HAS_OSERROR} TYPE TNetwareFindData = @@ -577,6 +578,13 @@ begin _delay (milliseconds); end; +Function GetLastOSError : Integer; + +begin + Result:=Integer(__get_errno_ptr^); +end; + + {**************************************************************************** Initialization code