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

Converter: Fix replacements of unit names when target is Windows-only.

Browse Source 
git-svn-id: trunk@39697 -
This commit is contained in:
juha 2012-12-30 19:38:39 +00:00
parent 782074c449
commit f1d5a6a06f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
converter/usedunits.pas
View File

@ -247,7 +247,7 @@ begin
if OmitUnit then // but they can have replacements. if OmitUnit then // but they can have replacements.
fMissingUnits.Add(NewUnitName) fMissingUnits.Add(NewUnitName)
// Report Windows specific units as missing if target is CrossPlatform. // Report Windows specific units as missing if target is CrossPlatform.
// Needed if work-platform is Windows (kind of a hack). // Needed if work-platform is Windows.
else if Settings.CrossPlatform and IsWinSpecificUnit(LowNU) then else if Settings.CrossPlatform and IsWinSpecificUnit(LowNU) then
fMissingUnits.Add(s); fMissingUnits.Add(s);
// Check if the unit is not part of project and needs conversion, too. // Check if the unit is not part of project and needs conversion, too.
@ -257,7 +257,7 @@ begin
else begin else begin
// If the unit is not found, add it to fMissingUnits, but don't add // If the unit is not found, add it to fMissingUnits, but don't add
// Windows specific units if target is "Windows only". // Windows specific units if target is "Windows only".
// Needed if work-platform is different from Windows (kind of a hack). // Needed if work-platform is different from Windows.
if Settings.CrossPlatform or not IsWinSpecificUnit(LowNU) then if Settings.CrossPlatform or not IsWinSpecificUnit(LowNU) then
fMissingUnits.Add(s); fMissingUnits.Add(s);
end; end;
@ -618,7 +618,7 @@ begin
if not CodeTool.AddUnitToSpecificUsesSection( if not CodeTool.AddUnitToSpecificUsesSection(
fUsesSection, fUnitsToAdd[i], '', SrcCache) then exit; fUsesSection, fUnitsToAdd[i], '', SrcCache) then exit;
end; end;
if fIsMainFile or (Settings.CrossPlatform and not Settings.SupportDelphi) then begin if fIsMainFile or not Settings.SupportDelphi then begin
// One way conversion (or main file) -> remove and rename units. // One way conversion (or main file) -> remove and rename units.
if not fMainUsedUnits.RemoveUnits then exit; // Remove if not fMainUsedUnits.RemoveUnits then exit; // Remove
if not fImplUsedUnits.RemoveUnits then exit; if not fImplUsedUnits.RemoveUnits then exit;