Browse Source

Add fallback if GetLastOSError function is not implemented

git-svn-id: trunk@37280 -
pierre 8 năm trước cách đây
mục cha
commit
6f14241e56
1 tập tin đã thay đổi với 4 bổ sung0 xóa
  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;