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

* o_creat added when o_append

Browse Source
This commit is contained in:
marco 2004-01-06 15:42:05 +00:00
parent 8c0e6c8943
commit e03e8b5a27
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); oflags:=oflags or (O_APPEND or O_CREAT);
{ 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.11 2004-01-03 14:56:10 marco Revision 1.12 2004-01-06 15:42:05 marco
* o_creat added when o_append
Revision 1.11 2004/01/03 14:56:10 marco
* typo fix * typo fix
Revision 1.10 2004/01/03 12:35:39 marco Revision 1.10 2004/01/03 12:35:39 marco