paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 12:10:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Yuri's fix merged from os2

Browse Source
This commit is contained in:
Tomas Hajny 2003-04-02 21:06:41 +00:00
parent 45e5cada69
commit 3d5ebe7756
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/emx/sysutils.pp
View File

@ -338,7 +338,7 @@ end;
procedure FileClose (Handle: longint);
begin
if (Handle > 4) or (os_mode = osOS2) and (Handle > 2) then
if (Handle > 4) or ((os_mode = osOS2) and (Handle > 2)) then
asm
mov eax, 3E00h
mov ebx, Handle
@ -983,7 +983,10 @@ end.
{
$Log$
Revision 1.3 2003-03-29 15:01:20 hajny
Revision 1.4 2003-04-02 21:06:41 hajny
* Yuri's fix merged from os2
Revision 1.3 2003/03/29 15:01:20 hajny
+ DirectoryExists added for main branch OS/2 too
Revision 1.2 2003/03/23 23:11:17 hajny