mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-24 18:19:22 +02:00
IDE: check inter pkg sources: add .ppu files to list always as units even if only in include paths
git-svn-id: trunk@49122 -
This commit is contained in:
parent
336bdda458
commit
43cda43add
@ -614,7 +614,7 @@ var
|
||||
end;
|
||||
|
||||
procedure CollectFilesInDir(OwnerInfo: TPGInterPkgOwnerInfo; Dir: string;
|
||||
var SearchedDirs: string; IsIncDir: boolean);
|
||||
var SearchedDirs: string; {%H-}IsIncDir: boolean);
|
||||
var
|
||||
Files: TStrings;
|
||||
aFilename: String;
|
||||
@ -641,7 +641,6 @@ var
|
||||
AnUnitName:='';
|
||||
case Ext of
|
||||
'.ppu','.o','.rst','.rsj','.pas','.pp','.p':
|
||||
if not IsIncDir then
|
||||
begin
|
||||
AnUnitName:=ExtractFileNameOnly(aFilename);
|
||||
if not IsDottedIdentifier(AnUnitName) then continue;
|
||||
|
Loading…
Reference in New Issue
Block a user