فهرست منبع

Add fallback if GetLastOSError function is not implemented

git-svn-id: trunk@37280 -
pierre 7 سال پیش
والد
کامیت
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;