소스 검색

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;