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

+ Win32 Do_open crahs on append

Browse Source
This commit is contained in:
michael 2003-09-26 07:30:34 +00:00
parent b6a0492c9c
commit 3bf916415a
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/win32/system.pp
View File

@ -544,7 +544,9 @@ begin
security.lpSecurityDescriptor:=nil;
filerec(f).handle:=CreateFile(p,oflags,shflags,@security,cd,FILE_ATTRIBUTE_NORMAL,0);
{ append mode }
if (flags and $100)<>0 then
if ((flags and $100)<>0) and
(filerec(f).handle<>0) and
(filerec(f).handle<>-1) then
begin
do_seekend(filerec(f).handle);
filerec(f).mode:=fmoutput; {fool fmappend}
@ -1530,7 +1532,10 @@ end.
{
$Log$
Revision 1.42 2003-09-17 15:06:36 peter
Revision 1.43 2003-09-26 07:30:34 michael
+ Win32 Do_open crahs on append
Revision 1.42 2003/09/17 15:06:36 peter
* stdcall patch
Revision 1.41 2003/09/12 12:33:43 olle