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

* don't check for directory in do_open (merged)

Browse Source
This commit is contained in:
peter 2000-08-13 08:43:45 +00:00
parent 8352fb6d7d
commit 7cac44dbaf
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/linux/syslinux.pp
View File

@ -415,15 +415,6 @@ Begin
Oflags:=Oflags and not(Open_RDWR);
FileRec(f).Handle:=sys_open(p,oflags,438);
end;
{ Check if it's a directory, then we should return io error 2 }
if ErrNo=0 then
begin
if (Sys_fstat(filerec(f).handle,dirtest)<>0) then
inoutres:=2
else
if (dirtest.mode and STAT_IFMT)<>STAT_IFREG then
inoutres:=2;
end;
Errno2Inoutres;
End;
@ -789,7 +780,10 @@ End.
{
$Log$
Revision 1.4 2000-08-05 18:33:51 peter
Revision 1.5 2000-08-13 08:43:45 peter
* don't check for directory in do_open (merged)
Revision 1.4 2000/08/05 18:33:51 peter
* paramstr(0) fix for linux 2.0 kernels (merged)
Revision 1.3 2000/07/14 10:33:10 michael
@ -797,5 +791,5 @@ End.
Revision 1.2 2000/07/13 11:33:49 michael
+ removed logs
}