paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 04:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: turned back to stable ground (use old process.pp)

Browse Source 
git-svn-id: trunk@402 -
This commit is contained in:
lazarus 2001-11-09 18:39:13 +00:00
parent c40ded672a
commit 9864bec26b
4 changed files with 31 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/codetools/definetemplates.pas
View File

@ -1093,14 +1093,14 @@ begin
i:=1;
while FileExists(BogusFilename+IntToStr(i)) do inc(i);
CmdLine:=CmdLine+BogusFilename;
{ Old
TheProcess:=TProcess.Create(CmdLine,[poUsePipes,poNoConsole
,poStdErrToOutput]);
}
TheProcess := TProcess.Create(nil);
{TheProcess := TProcess.Create(nil);
TheProcess.CommandLine := CmdLine;
TheProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutPut];
TheProcess.ShowWindow := swoNone;
TheProcess.ShowWindow := swoNone;}
try
TheProcess.Execute;
OutputLine:='';
@ -1131,14 +1131,14 @@ begin
// ask for target operating system -> ask compiler with switch -iTO
CmdLine:=PPC386Path+' -iTO';
{ Old
TheProcess:=TProcess.Create(CmdLine,[poUsePipes,poNoConsole
,poStdErrToOutput]);
}
TheProcess := TProcess.Create(nil);
{TheProcess := TProcess.Create(nil);
TheProcess.CommandLine := CmdLine;
TheProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutPut];
TheProcess.ShowWindow := swoNone;
TheProcess.ShowWindow := swoNone;}
try
TheProcess.Execute;
if TheProcess.Output<>nil then
@ -1174,14 +1174,14 @@ begin
end;
// ask for target processor -> ask compiler with switch -iTP
{ Old
TheProcess:=TProcess.Create(PPC386Path+' -iTP',[poUsePipes,poNoConsole
,poStdErrToOutput]);
}
TheProcess := TProcess.Create(nil);
{TheProcess := TProcess.Create(nil);
TheProcess.CommandLine := PPC386Path+' -iTP';
TheProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutPut];
TheProcess.ShowWindow := swoNone;
TheProcess.ShowWindow := swoNone;}
try
TheProcess.Execute;
if TheProcess.Output<>nil then

11
ide/compiler.pp
View File

@ -212,14 +212,14 @@ begin
Writeln('[TCompiler.Compile] CmdLine="',CmdLine,'"');
try
{ Old
TheProcess:=TProcess.Create(CmdLine,[poUsePipes,poNoConsole
,poStdErrToOutput]);
}
TheProcess := TProcess.Create(nil);
{TheProcess := TProcess.Create(nil);
TheProcess.CommandLine := CmdLine;
TheProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutPut];
TheProcess.ShowWindow := swoNone;
TheProcess.ShowWindow := swoNone;}
Result:=mrOk;
try
TheProcess.CurrentDirectory:=ProjectDir;
@ -336,6 +336,9 @@ end.
{
$Log$
Revision 1.19 2001/11/09 18:39:11 lazarus
MG: turned back to stable ground (use old process.pp)
Revision 1.18 2001/11/07 16:14:11 lazarus
MG: fixes for the new compiler

7
ide/exttooldialog.pas
View File

@ -234,11 +234,14 @@ begin
and Macros.SubstituteStr(Params) then begin
writeln('[TExternalToolList.Run] ',Filename,' ',Params);
try
TheProcess := TProcess.Create(nil);
TheProcess:=TProcess.Create(Filename+' '+Params,[poRunSuspended,
poUsePipes, poNoConsole]);
TheProcess.CurrentDirectory:=WorkingDir;
{TheProcess := TProcess.Create(nil);
TheProcess.CommandLine := Filename+' '+Params;
TheProcess.Options:= [poRunSuspended, poUsePipes, poNoConsole];
TheProcess.ShowWindow := swoNone;
TheProcess.CurrentDirectory := WorkingDir;
TheProcess.CurrentDirectory := WorkingDir;}
TheProcess.Execute;
except
writeln('[TExternalToolList.Run] Failed to run: ',Filename,' ',Params);

12
ide/main.pp
View File

@ -3435,15 +3435,14 @@ writeln('[TMainIDE.DoRunProject] A');
else
begin
try
{ Old
TheProcess:=TProcess.Create(ProgramFilename,
[poRunSuspended,poUsePipes,poNoConsole]);
}
TheProcess := TProcess.Create(nil);
{TheProcess := TProcess.Create(nil);
TheProcess.CommandLine := ProgramFilename;
TheProcess.Options:= [poRunSuspended, poUsePipes, poNoConsole];
TheProcess.ShowWindow := swoNone;
TheProcess.ShowWindow := swoNone;}
TheProcess.Execute;
except
on e: Exception do begin
@ -4551,6 +4550,9 @@ end.
{ =============================================================================
$Log$
Revision 1.140 2001/11/09 18:39:11 lazarus
MG: turned back to stable ground (use old process.pp)
Revision 1.139 2001/11/09 18:15:20 lazarus
MG: added external tools