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

Add fallback if GetLastOSError function is not implemented

Browse Source 
git-svn-id: trunk@37280 -
This commit is contained in:
pierre 2017-09-20 16:02:47 +00:00
parent de456308c1
commit 6f14241e56
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-base/src/syncobjs.pp
View File

@ -189,7 +189,11 @@ begin
{$IFDEF OS2}
FLastError := PLocalEventRec (Handle)^.FLastError;
{$ELSE OS2}
{$if defined(getlastoserror)}
FLastError := GetLastOSError;
{$else}
FLastError:=-1;
{$endif}
{$ENDIF OS2}
end;