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

Fix Result not assigned

Browse Source
This commit is contained in:
Martin 2023-12-18 00:58:55 +01:00
parent f923348cca
commit c06bf85045
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -345,8 +345,10 @@ var
Res : Boolean;
begin
if IOType in [iotNone,iotFile] then
if IOType in [iotNone,iotFile] then begin
Result:=aHandle;
exit;
end;
oldHandle := ahandle;
ahandle:=THandle(INVALID_HANDLE_VALUE);
Res := DuplicateHandle