paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 16:50:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* FileHandleCount decreased upon unsuccessful increase attempt

Browse Source
This commit is contained in:
Tomas Hajny 2000-06-04 14:14:10 +00:00
parent a1838b09bb
commit 89a79fa97b
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/go32v2/system.pp
View File

@ -1026,7 +1026,10 @@ begin
regs.realeax:=$6700; regs.realeax:=$6700;
sysrealintr($21,regs); sysrealintr($21,regs);
if (regs.realflags and carryflag) <> 0 then if (regs.realflags and carryflag) <> 0 then
Increase_file_handle_count:=false begin
Increase_file_handle_count:=false;
Dec (FileHandleCount, 10);
end;
else else
Increase_file_handle_count:=true; Increase_file_handle_count:=true;
end; end;
@ -1414,7 +1417,10 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.38 2000-05-18 07:18:28 pierre Revision 1.39 2000-06-04 14:14:10 hajny
* FileHandleCount decreased upon unsuccessful increase attempt
Revision 1.38 2000/05/18 07:18:28 pierre
* Added default error value to GetInoOutRes function * Added default error value to GetInoOutRes function
Revision 1.37 2000/04/10 11:21:02 pierre Revision 1.37 2000/04/10 11:21:02 pierre