commit b64a774b2fbfab034c0b7fff1641a46d8123d19f
author Jens Geyer <jensg@apache.org> Wed Jan 23 20:58:47 2013 +0100
committer Jens Geyer <jensg@apache.org> Wed Jan 23 20:58:47 2013 +0100
tree cc9a9c55efc21af810cf30c836f09ab7d3c52a20
parent d34bea0c04321a8cdd4df210f1ca06e1c728da9f

THRIFT-1842 Memory leak with Pipes
Patch: Jens Geyer

lib/delphi/test/TestClient.pas

diff --git a/lib/delphi/test/TestClient.pas b/lib/delphi/test/TestClient.pas
index baeaaa8..e72775e 100644
--- a/lib/delphi/test/TestClient.pas
+++ b/lib/delphi/test/TestClient.pas
@@ -176,6 +176,10 @@
           end
           else if (args[i] = '-anon') then  // -anon <hReadPipe> <hWritePipe>
           begin
+            if Length(args) <= (i+2) then begin
+              Console.WriteLine('Invalid args: -anon <hRead> <hWrite> or use "server.exe -anon"');
+              Halt(1);
+            end;
             Console.WriteLine('Anonymous pipes transport');
             Inc( i);
             hAnonRead := THandle( StrToIntDef( args[i], Integer(INVALID_HANDLE_VALUE)));