paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use libc unit GetLastError to implement GetLastOSError

Browse Source 
git-svn-id: trunk@7582 -
This commit is contained in:
pierre 2007-06-05 09:22:40 +00:00
parent 6774847103
commit f932ccbc59
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/netwlibc/sysutils.pp
View File

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