paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 11:56:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: clean up

Browse Source 
git-svn-id: trunk@39743 -
This commit is contained in:
mattias 2013-01-03 12:13:28 +00:00
parent d7ae5688ec
commit b2b556c0fd
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/definetemplates.pas
View File

@ -1223,7 +1223,6 @@ var
OutputLine: String; OutputLine: String;
OutLen: Integer; OutLen: Integer;
LineStart, i: Integer; LineStart, i: Integer;
CmdLine: String;
begin begin
if not FileIsExecutable(Filename) then exit(nil); if not FileIsExecutable(Filename) then exit(nil);
Result:=TStringList.Create; Result:=TStringList.Create;
@ -1232,9 +1231,9 @@ begin
DbgOut(['RunTool ',Filename]); DbgOut(['RunTool ',Filename]);
for i:=0 to Params.Count-1 do for i:=0 to Params.Count-1 do
dbgout(' "',Params[i],'"'); dbgout(' "',Params[i],'"');
Debugln;
TheProcess := TProcess.Create(nil); TheProcess := TProcess.Create(nil);
try try
//DebugLn(['RunTool ',Params]);
TheProcess.Executable := UTF8ToSys(Filename); TheProcess.Executable := UTF8ToSys(Filename);
TheProcess.Parameters:=Params; TheProcess.Parameters:=Params;
TheProcess.Options:= [poUsePipes, poStdErrToOutPut]; TheProcess.Options:= [poUsePipes, poStdErrToOutPut];