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

Converter: minor comment changes.

Browse Source 
git-svn-id: trunk@28064 -
This commit is contained in:
juha 2010-11-03 20:46:44 +00:00
parent ee539962d8
commit 1e3683325a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
converter/convcodetool.pas
View File

@ -191,7 +191,7 @@ begin
fSrcCache.EndUpdate; fSrcCache.EndUpdate;
end; end;
if fSettings.Target=ctLazarus then begin if fSettings.Target=ctLazarus then begin
// One way conversion -> remove, rename and comment out units. // One way conversion -> remove and rename units.
if not RemoveUnits then exit; if not RemoveUnits then exit;
if not RenameUnits then exit; if not RenameUnits then exit;
end; end;
@ -199,7 +199,7 @@ begin
// Support Delphi. Add IFDEF blocks for units. // Support Delphi. Add IFDEF blocks for units.
if not AddDelphiAndLCLSections then exit; if not AddDelphiAndLCLSections then exit;
end end
else // ctLazarus or ctLazarusWin -> comment units if needed. else // [ctLazarus, ctLazarusWin] -> comment out units if needed.
if not CommentOutUnits then exit; if not CommentOutUnits then exit;
if not fCodeTool.FixUsedUnitCase(fSrcCache) then exit; if not fCodeTool.FixUsedUnitCase(fSrcCache) then exit;
if not fSrcCache.Apply then exit; if not fSrcCache.Apply then exit;