paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +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; oflags:=GENERIC_WRITE or GENERIC_READ;
end; end;
end; end;
{ standard is opening and existing file }
cd:=OPEN_EXISTING;
{ create it ? } { create it ? }
if (flags and $1000)<>0 then if (flags and $1000)<>0 then
cd:=CREATE_ALWAYS cd:=CREATE_ALWAYS
{ or append ? } { or Append/Open ? }
else else
if (flags and $100)<>0 then cd:=OPEN_EXISTING;
cd:=OPEN_ALWAYS;
{ empty name is special } { empty name is special }
if p[0]=#0 then if p[0]=#0 then
begin begin
@ -1567,7 +1564,10 @@ end.
{ {
$Log$ $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 * criticalsection renamed to rtlcriticalsection for kylix compatibility
Revision 1.18 2001/10/09 02:37:29 carl 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 Revision 1.2 2000/07/13 11:33:58 michael
+ removed logs + removed logs
} }