Переглянути джерело

Add fallback if GetLastOSError function is not implemented

git-svn-id: trunk@37280 -
pierre 8 роки тому
батько
коміт
6f14241e56
1 змінених файлів з 4 додано та 0 видалено
  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;