mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-03 00:19:25 +02:00
IDE: Remove Assert() that prevented adding source files with errors in them. Issue #22921.
This commit is contained in:
parent
0f830698c0
commit
824e696005
@ -91,7 +91,6 @@ begin
|
||||
CodeBuffer:=CodeToolBoss.LoadFile(AFilename,true,false);
|
||||
if CodeBuffer<>nil then
|
||||
Unit_Name:=CodeToolBoss.GetSourceName(CodeBuffer,false);
|
||||
Assert(Unit_Name<>'', 'TProjPackFileCheck.UnitNameOk: Unit_Name is empty.');
|
||||
if CompareText(Unit_Name, AUnitFilename)<>0 then
|
||||
if IDEMessageDialog(lisA2PInvalidUnitName,
|
||||
Format(lisA2PTheUnitNameAndFilenameDiffer,[Unit_Name,LineEnding,AUnitFilename]),
|
||||
|
Loading…
Reference in New Issue
Block a user