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

+ Fixed Append() bug. Appending non-existing file now gives an error

Browse Source
This commit is contained in:
michael 2001-11-07 13:05:16 +00:00
parent 12f2ea6738
commit 25ba6fe2ea
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/win32/system.pp
View File

@ -536,15 +536,12 @@ begin
oflags:=GENERIC_WRITE or GENERIC_READ;
end;
end;
{ standard is opening and existing file }
cd:=OPEN_EXISTING;
{ create it ? }
if (flags and $1000)<>0 then
cd:=CREATE_ALWAYS
{ or append ? }
{ or Append/Open ? }
else
if (flags and $100)<>0 then
cd:=OPEN_ALWAYS;
cd:=OPEN_EXISTING;
{ empty name is special }
if p[0]=#0 then
begin
@ -1567,7 +1564,10 @@ end.
{
$Log$
Revision 1.19 2001-10-23 21:51:03 peter
Revision 1.20 2001-11-07 13:05:16 michael
+ Fixed Append() bug. Appending non-existing file now gives an error
Revision 1.19 2001/10/23 21:51:03 peter
* criticalsection renamed to rtlcriticalsection for kylix compatibility
Revision 1.18 2001/10/09 02:37:29 carl
@ -1643,4 +1643,4 @@ end.
Revision 1.2 2000/07/13 11:33:58 michael
+ removed logs
}
}