paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-10 18:09:22 +01: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; end;
procedure TCompilerConfigTargetFrame.UpdateByTargetOS(aTargetOS: string); procedure TCompilerConfigTargetFrame.UpdateByTargetOS(aTargetOS: string);
var //var DbgMsg: String;
DbgMsg: String;
begin begin
DbgMsg := ''; //DbgMsg := '';
if aTargetOS = '' then if aTargetOS = '' then
begin begin
aTargetOS := '$(TargetOS)'; aTargetOS := '$(TargetOS)';
if not GlobalMacroList.SubstituteStr(aTargetOS) then if not GlobalMacroList.SubstituteStr(aTargetOS) then
raise Exception.CreateFmt('Cannot substitute macro "%s".', [aTargetOS]); raise Exception.CreateFmt('Cannot substitute macro "%s".', [aTargetOS]);
DbgMsg := ' (got by using $(TargetOS) macro)'; //DbgMsg := ' (got by using $(TargetOS) macro)';
end; 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. // Now hide/show the whole GroupBox because there is only one setting.
grbTargetOptions.Visible := AnsiStartsText('Win', aTargetOS); grbTargetOptions.Visible := AnsiStartsText('Win', aTargetOS);
if grbTargetOptions.Visible then if grbTargetOptions.Visible then
@ -266,19 +265,19 @@ var
end; end;
var var
DbgMsg: String; //DbgMsg: String;
ParsingFrame: TCompilerParsingOptionsFrame; ParsingFrame: TCompilerParsingOptionsFrame;
begin begin
IsIntel := False; IsIntel := False;
DbgMsg := ''; //DbgMsg := '';
if aTargetCPU = '' then if aTargetCPU = '' then
begin begin
aTargetCPU := '$(TargetCPU)'; aTargetCPU := '$(TargetCPU)';
if not GlobalMacroList.SubstituteStr(aTargetCPU) then if not GlobalMacroList.SubstituteStr(aTargetCPU) then
raise Exception.CreateFmt('Cannot substitute macro "%s".', [aTargetCPU]); raise Exception.CreateFmt('Cannot substitute macro "%s".', [aTargetCPU]);
DbgMsg := ' (got by using $(TargetCPU) macro)'; //DbgMsg := ' (got by using $(TargetCPU) macro)';
end; end;
DebugLn(['TCompilerConfigTargetFrame.UpdateTargetProcessorList: TargetCPU=',aTargetCPU,DbgMsg]); //DebugLn(['TCompilerConfigTargetFrame.UpdateTargetProcessorList: TargetCPU=',aTargetCPU,DbgMsg]);
// Update selection list for target processor // Update selection list for target processor
TargetProcComboBox.Clear; TargetProcComboBox.Clear;