Explorar o código

Add fallback if GetLastOSError function is not implemented

git-svn-id: trunk@37280 -
pierre %!s(int64=8) %!d(string=hai) anos
pai
achega
6f14241e56
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  1. 4 0
      packages/fcl-base/src/syncobjs.pp

+ 4 - 0
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;