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

* don't move the output/stderr handle to the end on Windows and WinCE as that is handled by TIODescriptor.CreateFileNameHandle()

Browse Source
This commit is contained in:
Sven/Sarah Barth 2025-01-13 23:26:34 +01:00
parent 9355e703d7
commit 15f88d5e13
2 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-process/src/win/process.inc
View File

@ -336,8 +336,6 @@ begin
begin begin
Result:=CreateFileW(PWideChar(WideString(aFileName)), GENERIC_WRITE, Result:=CreateFileW(PWideChar(WideString(aFileName)), GENERIC_WRITE,
FILE_SHARE_READ, @sec, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); FILE_SHARE_READ, @sec, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
if not(Result=INVALID_HANDLE_VALUE) then
FileSeek(Result, 0, 2);
end; end;
end; end;
if (Result=INVALID_HANDLE_VALUE) then if (Result=INVALID_HANDLE_VALUE) then

2
packages/fcl-process/src/wince/process.inc
View File

@ -367,8 +367,6 @@ begin
begin begin
Result:=CreateFileW(PWideChar(WideString(aFileName)), GENERIC_WRITE, Result:=CreateFileW(PWideChar(WideString(aFileName)), GENERIC_WRITE,
FILE_SHARE_READ, @sec, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); FILE_SHARE_READ, @sec, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
if not(Result=INVALID_HANDLE_VALUE) then
FileSeek(Result, 0, 2);
end; end;
end; end;
if (Result=INVALID_HANDLE_VALUE) then if (Result=INVALID_HANDLE_VALUE) then