paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do_open sometimes returns -1 as handle on fail

Browse Source 
was not checked correctly
This commit is contained in:
pierre 1998-09-02 09:03:46 +00:00
parent 2d3c36ad2c
commit b8e1249066
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/win32/syswin32.pp
View File

@ -505,7 +505,8 @@ begin
filerec(f).mode:=fmoutput; {fool fmappend}
end;
{ get errors }
if filerec(f).handle=0 then
if (filerec(f).handle=0) or (filerec(f).handle=-1) then
{ handle -1 is returned sometimes !! (PM) }
begin
errno:=GetLastError;
Errno2InoutRes;
@ -761,11 +762,9 @@ end.
{
$Log$
Revision 1.18 1998-08-31 11:54:00 pierre
* compilable windows.pp file
still to do :
- findout problems
- findout the correct DLL for each call !!
Revision 1.19 1998-09-02 09:03:46 pierre
* do_open sometimes returns -1 as handle on fail
was not checked correctly
Revision 1.16 1998/08/24 14:45:22 pierre
* sbrk was wrong