From 6f14241e56c8c1652ba4b3d983174f4d261c81b4 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 20 Sep 2017 16:02:47 +0000
Subject: [PATCH]  Add fallback if GetLastOSError function is not implemented

git-svn-id: trunk@37280 -
---
 packages/fcl-base/src/syncobjs.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/packages/fcl-base/src/syncobjs.pp b/packages/fcl-base/src/syncobjs.pp
index 47f00af3ba..84c0adebd4 100644
--- a/packages/fcl-base/src/syncobjs.pp
+++ b/packages/fcl-base/src/syncobjs.pp
@@ -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;