* use __get_errno_ptr to implement GetLastOSError

git-svn-id: trunk@7584 -

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