소스 검색

* make handle for DosCalls accessible for other code

git-svn-id: trunk@28889 -
Tomas Hajny 10 년 전
부모
커밋
feb58d5d25
1개의 변경된 파일1개의 추가작업 그리고 2개의 파일을 삭제
  1. 1 2
      rtl/os2/system.pas

+ 1 - 2
rtl/os2/system.pas

@@ -142,7 +142,7 @@ const
   Sys_DosOpenL: TDosOpenL = @DummyDosOpenL;
   Sys_DosSetFilePtrL: TDosSetFilePtrL = @DummyDosSetFilePtrL;
   Sys_DosSetFileSizeL: TDosSetFileSizeL = @DummyDosSetFileSizeL;
-
+  DosCallsHandle: THandle = THandle (-1);
 
 implementation
 
@@ -1085,7 +1085,6 @@ var TIB: PThreadInfoBlock;
     RC: cardinal;
     ErrStr: string;
     P: pointer;
-    DosCallsHandle: THandle;
     DW: cardinal;
 
 const