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

IDE: Check Filename<>UnitName mismatch only when Codetools was able to parse the source. Issue #22921.

Browse Source
This commit is contained in:
Juha 2021-09-28 12:03:07 +03:00
parent 3e382c4b5b
commit 7cb38d7bc6
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packager/projpackchecks.pas
View File

@ -89,13 +89,15 @@ begin
// valid unitname
Unit_Name:='';
CodeBuffer:=CodeToolBoss.LoadFile(AFilename,true,false);
if CodeBuffer<>nil then
if CodeBuffer<>nil then begin
Unit_Name:=CodeToolBoss.GetSourceName(CodeBuffer,false);
if CompareText(Unit_Name, AUnitFilename)<>0 then
if IDEMessageDialog(lisA2PInvalidUnitName,
Format(lisA2PTheUnitNameAndFilenameDiffer,[Unit_Name,LineEnding,AUnitFilename]),
mtError,[mbIgnore,mbCancel]) <> mrIgnore
then exit;
// Unit_Name can be empty if Codetools had problems parsing the source.
if (Unit_Name<>'') and (CompareText(Unit_Name, AUnitFilename)<>0)
and (IDEMessageDialog(lisA2PInvalidUnitName,
Format(lisA2PTheUnitNameAndFilenameDiffer,
[Unit_Name,LineEnding,AUnitFilename]),
mtError,[mbIgnore,mbCancel]) <> mrIgnore) then exit;
end;
if not IsValidUnitName(AUnitFilename) then
begin