From 7ffbbdd50becaf2ea8eeb59f95b77564b479ca28 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Mon, 5 Feb 2024 07:21:36 +0000
Subject: [PATCH] Fix dummy and wince fcl-process code after commit 54157a17

---
 packages/fcl-process/src/dummy/process.inc | 2 +-
 packages/fcl-process/src/wince/process.inc | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-process/src/dummy/process.inc b/packages/fcl-process/src/dummy/process.inc
index 4748bcc188..df43001bba 100644
--- a/packages/fcl-process/src/dummy/process.inc
+++ b/packages/fcl-process/src/dummy/process.inc
@@ -195,5 +195,5 @@ end;
 
 function TIODescriptor.SysIsTypeSupported(AValue: TIOType): Boolean;
 begin
-  Result:=aValue in [ioType,iotNone];
+  Result:=aValue in [ioType,iotDefault];
 end;
diff --git a/packages/fcl-process/src/wince/process.inc b/packages/fcl-process/src/wince/process.inc
index 5b949a9a24..1443f9884e 100644
--- a/packages/fcl-process/src/wince/process.inc
+++ b/packages/fcl-process/src/wince/process.inc
@@ -384,7 +384,7 @@ var
   Res : Boolean;
   
 begin
-  if IOType in [iotNone,iotFile] then begin
+  if IOType in [iotDefault,iotFile] then begin
     Result:=aHandle;
     exit;
   end;