From cfb5e2009d8f414ba79c2c3cbf149d553bb470d6 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Tue, 17 Mar 2015 01:33:26 +0100 Subject: [PATCH] removed useless code, the stream is not the proc output, it's already copied --- src/ce_symlist.pas | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/ce_symlist.pas b/src/ce_symlist.pas index 9dbf9e41..e384b36a 100644 --- a/src/ce_symlist.pas +++ b/src/ce_symlist.pas @@ -224,7 +224,6 @@ end; procedure TSymbolList.LoadFromTool(str: TStream); var bin: TMemoryStream; - dat: integer; begin bin := TMemoryStream.Create; try @@ -232,9 +231,6 @@ begin try ObjectTextToBinary(str, bin); except - // if output is not fully read then - // the tool process never terminates. - while str.Read(dat, SizeOf(dat)) <> 0 do; exit; end; bin.Position:=0;