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

* use filemode for rewrite instead of mode 1

Browse Source
This commit is contained in:
peter 1999-10-28 09:52:50 +00:00
parent 9678f7ad70
commit 6e241784e1
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/inc/file.inc
View File

@ -69,7 +69,7 @@ Begin
InOutRes:=2
else
Begin
Do_Open(f,PChar(@FileRec(f).Name),$1001);
Do_Open(f,PChar(@FileRec(f).Name),$1000+filemode);
FileRec(f).RecSize:=l;
End;
End;
@ -415,7 +415,10 @@ End;
{
$Log$
Revision 1.13 1999-09-10 15:40:33 peter
Revision 1.14 1999-10-28 09:52:50 peter
* use filemode for rewrite instead of mode 1
Revision 1.13 1999/09/10 15:40:33 peter
* fixed do_open flags to be > $100, becuase filemode can be upto 255
Revision 1.12 1999/09/08 16:12:24 peter