Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

Changed pipe handle from longint to THandle

git-svn-id: trunk@3280 -
armin 19 years ago
parent
ead6c6a29a
commit
dd379e7eb0
2 changed files with 2 additions and 2 deletions
Unified View Show Diff Stats
  1. 1 1
      fcl/netware/pipes.inc
  2. 1 1
      fcl/netwlibc/pipes.inc

+ 1 - 1
fcl/netware/pipes.inc
View File 

@@ -14,7 +14,7 @@
 
  **********************************************************************}
 
  **********************************************************************}
 
 
 
 
 
-Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
 
+Function CreatePipeHandles (Var Inhandle,OutHandle : THandle) : Boolean;
 
 
 
 begin
 
 begin
 
   Result := false;  {dont know how to do that with netware clib}
 
   Result := false;  {dont know how to do that with netware clib}

+ 1 - 1
fcl/netwlibc/pipes.inc
View File 

@@ -14,7 +14,7 @@
 
  **********************************************************************}
 
  **********************************************************************}
 
 
 
 
 
-Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
 
+Function CreatePipeHandles (Var Inhandle,OutHandle : THandle) : Boolean;
 
 
 
 begin
 
 begin
 
   Result := false;  {todo}
 
   Result := false;  {todo}