Browse Source

* fixed closepipe<>pipeclose and handle<>fhandle typos reported by Jonas.

git-svn-id: trunk@19653 -
marco 13 years ago
parent
commit
21e04073d8
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/fcl-process/src/pipes.pp

+ 2 - 2
packages/fcl-process/src/pipes.pp

@@ -79,7 +79,7 @@ end;
 
 destructor TInputPipeStream.Destroy;
 begin
-  ClosePipe (FHandle);
+  PipeClose (Handle);
 end;
 
 Function TInputPipeStream.Write (Const Buffer; Count : Longint) : longint;
@@ -109,7 +109,7 @@ end;
 
 destructor TOutputPipeStream.Destroy;
 begin
-  ClosePipe (FHandle);
+  PipeClose (Handle);
 end;
 
 Function TOutputPipeStream.Read(Var Buffer; Count : Longint) : longint;