* centralize some type definitions so that they are compatible between process and processunicode

 * add an extra parameter to the callback in preparation of readoutput callbacks. 
   This is needed to let the callback differentiate between stderr or stdout callbacks
 * rename processunicode class to TProcess on recommendation of MvC.

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@39651 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 8 insertions, 1 deletions

diff --git a/packages/fcl-process/src/processunicode.pp b/packages/fcl-process/src/processunicode.pp
index 6b27be5464..6bfbc0d9fa 100644
--- a/packages/fcl-process/src/processunicode.pp
+++ b/packages/fcl-process/src/processunicode.pp
@@ -29,10 +29,17 @@ Type
   TProcessPriority = process.TProcessPriority;
   TProcessOptions = process.TProcessOptions;
   TStartupOptions = process.TStartupOptions;
+  {$ifdef UNIX}
+  TProcessForkEvent = Process.TProcessForkEvent;
+  {$endif UNIX}
+
+  TRunCommandEventCode = Process.TRunCommandEventCode;
+  TOnRunCommandEvent = Process.TOnRunCommandEvent;
+  EProcess = Process.EProcess;
 
 {$macro on}
 {$define processunicodestring}
-{$define TProcessnamemacro:=TProcessUnicode}
+{$define TProcessnamemacro:=TProcess}
 
 {$i processbody.inc}
 end.