paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 05:11:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

FileCreate must truncate the file

Browse Source
This commit is contained in:
michael 1999-02-04 21:43:08 +00:00
parent 1b018eafff
commit 3ac470a880
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/linux/filutil.inc
View File

@ -34,7 +34,7 @@ end;
Function FileCreate (Const FileName : String) : Longint;
begin
FileCreate:=fdOpen(FileName,Open_RdWr or Open_Creat);
FileCreate:=fdOpen(FileName,Open_RdWr or Open_Creat or Open_Trunc);
end;
@ -236,7 +236,10 @@ end;
{
$Log$
Revision 1.5 1999-02-02 21:20:34 michael
Revision 1.6 1999-02-04 21:43:08 michael
FileCreate must truncate the file
Revision 1.5 1999/02/02 21:20:34 michael
+ Added filetruncate, corrected FileCreate
Revision 1.4 1998/12/15 22:43:07 peter