paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed warning

Browse Source
This commit is contained in:
peter 2001-04-13 22:39:05 +00:00
parent eae7ae3fd1
commit a923fab5a3
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/unix/sysunix.inc
View File

@ -328,7 +328,6 @@ Procedure Do_Open(var f;p:pchar;flags:longint);
}
var
oflags : longint;
dirtest : stat;
Begin
{ close first if opened }
if ((flags and $10000)=0) then
@ -748,7 +747,10 @@ End.
{
$Log$
Revision 1.8 2001-04-12 17:53:43 peter
Revision 1.9 2001-04-13 22:39:05 peter
* removed warning
Revision 1.8 2001/04/12 17:53:43 peter
* fixed usage of already release memory in getdir
Revision 1.7 2001/03/21 21:08:20 hajny