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

Fix dummy and wince fcl-process code after commit 54157a17

Browse Source
This commit is contained in:
Pierre Muller 2024-02-05 07:21:36 +00:00
parent b6ccf369b9
commit 7ffbbdd50b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -195,5 +195,5 @@ end;
function TIODescriptor.SysIsTypeSupported(AValue: TIOType): Boolean; function TIODescriptor.SysIsTypeSupported(AValue: TIOType): Boolean;
begin begin
Result:=aValue in [ioType,iotNone]; Result:=aValue in [ioType,iotDefault];
end; end;

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

@ -384,7 +384,7 @@ var
Res : Boolean; Res : Boolean;
begin begin
if IOType in [iotNone,iotFile] then begin if IOType in [iotDefault,iotFile] then begin
Result:=aHandle; Result:=aHandle;
exit; exit;
end; end;