paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 23:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converter: fix comments in UsedUnits.

Browse Source 
git-svn-id: trunk@28686 -
This commit is contained in:
juha 2010-12-11 16:48:27 +00:00
parent aaa5e8b72b
commit be513b35da
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
converter/usedunits.pas
View File

@ -48,8 +48,8 @@ type
TUsedUnits = class TUsedUnits = class
private private
fCTLink: TCodeToolLink; fCTLink: TCodeToolLink; // Link to codetools.
fUsesSection: TUsesSection; // This is a link to codetools. fUsesSection: TUsesSection; // Enum used by some codetools funcs.
fUnitsToRemove: TStringList; // List of units to remove. fUnitsToRemove: TStringList; // List of units to remove.
// Units to rename. Map old unit name -> new unit name. // Units to rename. Map old unit name -> new unit name.
fUnitsToRename: TStringToStringTree; fUnitsToRename: TStringToStringTree;
@ -487,7 +487,8 @@ begin
end; end;
function TUsedUnitsTool.Prepare: TModalResult; function TUsedUnitsTool.Prepare: TModalResult;
// Add, remove, rename and comment out used unit names. // Find missing units and mark some of them to be replaced later.
// More units can be marked for add, remove, rename and comment during conversion.
var var
UnitUpdater: TStringMapUpdater; UnitUpdater: TStringMapUpdater;
MapToEdit: TStringToStringTree; MapToEdit: TStringToStringTree;
@ -538,6 +539,7 @@ begin
end; end;
function TUsedUnitsTool.Convert: TModalResult; function TUsedUnitsTool.Convert: TModalResult;
// Add, remove, rename and comment out unit names that were marked earlier.
begin begin
Result:=mrCancel; Result:=mrCancel;
if fCTLink.Settings.Target=ctLazarus then begin if fCTLink.Settings.Target=ctLazarus then begin