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

fixes for using fpc as compiler executable from Yury Sidorov

Browse Source 
git-svn-id: trunk@8919 -
This commit is contained in:
vincents 2006-03-11 15:12:09 +00:00
parent 8248d56504
commit d8952ce6bf
4 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/codetools/definetemplates.pas
View File

@ -2784,13 +2784,13 @@ begin
if CompilerOptions<>'' then if CompilerOptions<>'' then
CmdLine:=CmdLine+CompilerOptions+' '; CmdLine:=CmdLine+CompilerOptions+' ';
CmdLine:=CmdLine+TestPascalFile; CmdLine:=CmdLine+TestPascalFile;
//DebugLn('TDefinePool.CreateFPCTemplate CmdLine="',CmdLine,'"'); DebugLn('TDefinePool.CreateFPCTemplate CmdLine="',CmdLine,'"');
ShortTestFile:=ExtractFileName(TestPascalFile); ShortTestFile:=ExtractFileName(TestPascalFile);
TheProcess := TProcess.Create(nil); TheProcess := TProcess.Create(nil);
TheProcess.CommandLine := CmdLine; TheProcess.CommandLine := CmdLine;
TheProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutPut]; TheProcess.Options:= [poUsePipes, poStdErrToOutPut];
TheProcess.ShowWindow := swoNone; TheProcess.ShowWindow := swoHide;
try try
TheProcess.Execute; TheProcess.Execute;
OutputLine:=''; OutputLine:='';
@ -2830,8 +2830,8 @@ begin
TheProcess := TProcess.Create(nil); TheProcess := TProcess.Create(nil);
TheProcess.CommandLine := CmdLine; TheProcess.CommandLine := CmdLine;
TheProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutPut]; TheProcess.Options:= [poUsePipes, poStdErrToOutPut];
TheProcess.ShowWindow := swoNone; TheProcess.ShowWindow := swoHide;
try try
TheProcess.Execute; TheProcess.Execute;
if (TheProcess.Output<>nil) then if (TheProcess.Output<>nil) then
@ -2878,8 +2878,8 @@ begin
CmdLine:=CmdLine+' '+CompilerOptions; CmdLine:=CmdLine+' '+CompilerOptions;
CmdLine:=CmdLine+' -iTP'; CmdLine:=CmdLine+' -iTP';
TheProcess.CommandLine := CmdLine; TheProcess.CommandLine := CmdLine;
TheProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutPut]; TheProcess.Options:= [poUsePipes, poStdErrToOutPut];
TheProcess.ShowWindow := swoNone; TheProcess.ShowWindow := swoHide;
try try
TheProcess.Execute; TheProcess.Execute;
if TheProcess.Output<>nil then if TheProcess.Output<>nil then

5
ide/compileroptions.pp
View File

@ -1939,6 +1939,11 @@ Processor specific options:
switches := switches + ' -T' + Globals.TargetOS switches := switches + ' -T' + Globals.TargetOS
else if (TargetOS<>'') then else if (TargetOS<>'') then
switches := switches + ' -T' + TargetOS; switches := switches + ' -T' + TargetOS;
{ Target CPU }
if (Globals<>nil) and (Globals.TargetCPU<>'') then
switches := switches + ' -P' + Globals.TargetCPU
else if (TargetCPU<>'') then
switches := switches + ' -P' + TargetCPU;
{ --------------- Linking Tab ------------------- } { --------------- Linking Tab ------------------- }
{ Debugging } { Debugging }

2
ide/compileroptionsdlg.pp
View File

@ -1598,7 +1598,7 @@ begin
Parent := grpTargetPlatform; Parent := grpTargetPlatform;
Left := 4; Left := 4;
AnchorVerticalCenterTo(TargetCPUComboBox); AnchorVerticalCenterTo(TargetCPUComboBox);
Caption :=dlgTargetCPU+' (-d)'; Caption :=dlgTargetCPU+' (-P)';
end; end;
Targeti386ProcComboBox:=TComboBox.Create(Self); Targeti386ProcComboBox:=TComboBox.Create(Self);

2
ide/main.pp
View File

@ -10247,7 +10247,7 @@ begin
CurOptions:=AddCmdLineParameter(CurOptions,'-T'+CurTargetOS); CurOptions:=AddCmdLineParameter(CurOptions,'-T'+CurTargetOS);
CurTargetCPU:=GetTargetCPU(false); CurTargetCPU:=GetTargetCPU(false);
if CurTargetCPU<>'' then if CurTargetCPU<>'' then
CurOptions:=AddCmdLineParameter(CurOptions,'-d'+CurTargetCPU); CurOptions:=AddCmdLineParameter(CurOptions,'-P'+CurTargetCPU);
{$IFDEF VerboseFPCSrcScan} {$IFDEF VerboseFPCSrcScan}
writeln('TMainIDE.RescanCompilerDefines A ',CurOptions, writeln('TMainIDE.RescanCompilerDefines A ',CurOptions,
' OnlyIfCompilerChanged=',OnlyIfCompilerChanged, ' OnlyIfCompilerChanged=',OnlyIfCompilerChanged,