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

ide: FileNameToPkgFileType: added fallback when include file is missing

Browse Source
This commit is contained in:
mattias 2022-02-01 21:59:21 +01:00
parent 6adac81859
commit 3f43baff8f
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packager/packagedefs.pas
View File

@ -43,7 +43,7 @@ uses
Forms, ImgList,
// Codetools
LazConfigStorage, DefineTemplates, CodeToolManager,
CodeCache, CodeToolsCfgScript, CodeToolsStructs,
CodeCache, CodeToolsCfgScript, CodeToolsStructs, BasicCodeTools,
// LazUtils
FileUtil, LazFileUtils, LazUtilities, LazFileCache, LazUTF8, FileReferenceList,
LazTracer, LazLoggerBase, UITypes, Laz2_XMLCfg, AvgLvlTree,
@ -898,6 +898,7 @@ var
Code: TCodeBuffer;
SrcType: String;
HasName: Boolean;
p, AtomStart: Integer;
begin
HasName:=ExtractFileNameOnly(AFilename)<>'';
if HasName then begin
@ -915,7 +916,13 @@ begin
Code:=CodeToolBoss.LoadFile(aFilename,true,false);
if Code<>nil then begin
SrcType:=CodeToolBoss.GetSourceType(Code,false);
if CompareText(SrcType,'unit')<>0 then
if SrcType='' then begin
// parse error, e.g. missing include files
p:=1;
AtomStart:=1;
SrcType:=ReadNextPascalAtom(Code.Source,p,AtomStart,false,true);
end;
if not SameText(SrcType,'unit') then
Result:=pftInclude;
end;
exit;