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

Converter: improve reporting missing units.

Browse Source 
git-svn-id: trunk@29513 -
This commit is contained in:
juha 2011-02-13 12:04:52 +00:00
parent cd87a812cc
commit 2e2e795109
2 changed files with 6 additions and 3 deletions

1
converter/convertsettings.pas
View File

@ -390,6 +390,7 @@ begin
Add('FastMM4');
Add('FastMM4Messages');
Add('OpenGL');
CaseSensitive:=False;
Sorted:=True;
end;

8
converter/usedunits.pas
View File

@ -199,6 +199,8 @@ var
OldUnitName, OldInFilename: String;
NewUnitName, NewInFilename: String;
AFilename, s, slo: String;
x: Integer;
OmitUnit: Boolean;
begin
UsesNode:=UsesSectionNode;
if UsesNode=nil then exit(true);
@ -221,8 +223,8 @@ begin
if NewInFilename<>'' then
s:=s+' in '''+NewInFilename+'''';
if AFilename<>'' then begin // unit found
if (NewUnitName<>OldUnitName) and
not AUnitUpdater.FindReplacement(NewUnitName, slo) then begin
OmitUnit:=Settings.OmitProjUnits.Find(NewUnitName, x);
if (NewUnitName<>OldUnitName) and not OmitUnit then begin
// Character case differs and it will not be replaced.
fUnitsToFixCase[OldUnitName]:=NewUnitName; // fix case
IDEMessagesWindow.AddMsg(Format(lisConvDelphiFixedUnitCase,
@ -231,7 +233,7 @@ begin
// Report Windows specific units as missing if target is MultiPlatform,
// needed if work-platform is Windows (kind of a hack).
slo:=LowerCase(NewUnitName); // 'variants' ?
if Settings.MultiPlatform and ((slo='windows') or (slo='shellapi')) then
if (Settings.MultiPlatform and ((slo='windows') or (slo='shellapi'))) or OmitUnit then
fMissingUnits.Add(s);
end
else begin