* use libc unit GetLastError to implement GetLastOSError

git-svn-id: trunk@7582 -

rtl/netwlibc/sysutils.pp

@@ -36,6 +36,7 @@ TYPE
   END;
 
 {$DEFINE HAS_SLEEP}
+{$DEFINE HAS_OSERROR}
 { Include platform independent interface part }
 {$i sysutilh.inc}
 
@@ -632,6 +633,12 @@ begin
   result := ExecuteProcess (Path, params);
 end;
 
+Function GetLastOSError : Integer;
+
+begin
+  Result:=Integer(GetLastError);
+end;
+
 
 {******************************************************************************
                                --- Exec ---