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

IDE: clean up

Browse Source 
git-svn-id: trunk@45535 -
This commit is contained in:
mattias 2014-06-15 13:25:25 +00:00
parent 93b191c0e0
commit fa64855707
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/frames/compiler_config_target.pas
View File

@ -187,18 +187,17 @@ begin
end;
procedure TCompilerConfigTargetFrame.UpdateByTargetOS(aTargetOS: string);
var
DbgMsg: String;
//var DbgMsg: String;
begin
DbgMsg := '';
//DbgMsg := '';
if aTargetOS = '' then
begin
aTargetOS := '$(TargetOS)';
if not GlobalMacroList.SubstituteStr(aTargetOS) then
raise Exception.CreateFmt('Cannot substitute macro "%s".', [aTargetOS]);
DbgMsg := ' (got by using $(TargetOS) macro)';
//DbgMsg := ' (got by using $(TargetOS) macro)';
end;
DebugLn(['TCompilerConfigTargetFrame.UpdateTargetSpecific: TargetOS=',aTargetOS,DbgMsg]);
//DebugLn(['TCompilerConfigTargetFrame.UpdateTargetSpecific: TargetOS=',aTargetOS,DbgMsg]);
// Now hide/show the whole GroupBox because there is only one setting.
grbTargetOptions.Visible := AnsiStartsText('Win', aTargetOS);
if grbTargetOptions.Visible then
@ -266,19 +265,19 @@ var
end;
var
DbgMsg: String;
//DbgMsg: String;
ParsingFrame: TCompilerParsingOptionsFrame;
begin
IsIntel := False;
DbgMsg := '';
//DbgMsg := '';
if aTargetCPU = '' then
begin
aTargetCPU := '$(TargetCPU)';
if not GlobalMacroList.SubstituteStr(aTargetCPU) then
raise Exception.CreateFmt('Cannot substitute macro "%s".', [aTargetCPU]);
DbgMsg := ' (got by using $(TargetCPU) macro)';
//DbgMsg := ' (got by using $(TargetCPU) macro)';
end;
DebugLn(['TCompilerConfigTargetFrame.UpdateTargetProcessorList: TargetCPU=',aTargetCPU,DbgMsg]);
//DebugLn(['TCompilerConfigTargetFrame.UpdateTargetProcessorList: TargetCPU=',aTargetCPU,DbgMsg]);
// Update selection list for target processor
TargetProcComboBox.Clear;