paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 16:33:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't use O_CREATE when opening a file for appending (fixes tw1744)

Browse Source
This commit is contained in:
Jonas Maebe 2004-07-17 15:20:55 +00:00
parent 8e0fd21568
commit 0ba2497f24
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/bsd/osmain.inc
View File

@ -328,7 +328,7 @@ Begin
oflags:=oflags or (O_CREAT or O_TRUNC) oflags:=oflags or (O_CREAT or O_TRUNC)
else else
if (flags and $100)=$100 then if (flags and $100)=$100 then
oflags:=oflags or (O_APPEND or O_CREAT); oflags:=oflags or (O_APPEND);
{ empty name is special } { empty name is special }
if p[0]=#0 then if p[0]=#0 then
begin begin
@ -593,7 +593,10 @@ end;
{ {
$Log$ $Log$
Revision 1.14 2004-05-16 18:51:20 peter Revision 1.15 2004-07-17 15:20:55 jonas
* don't use O_CREATE when opening a file for appending (fixes tw1744)
Revision 1.14 2004/05/16 18:51:20 peter
* use thandle in do_* * use thandle in do_*
Revision 1.13 2004/04/22 21:10:56 peter Revision 1.13 2004/04/22 21:10:56 peter