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

IDE: check inter pkg sources: add .ppu files to list always as units even if only in include paths

Browse Source 
git-svn-id: trunk@49122 -
This commit is contained in:
mattias 2015-05-20 20:51:23 +00:00
parent 336bdda458
commit 43cda43add
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packager/interpkgconflictfiles.pas
View File

@ -614,7 +614,7 @@ var
end; end;
procedure CollectFilesInDir(OwnerInfo: TPGInterPkgOwnerInfo; Dir: string; procedure CollectFilesInDir(OwnerInfo: TPGInterPkgOwnerInfo; Dir: string;
var SearchedDirs: string; IsIncDir: boolean); var SearchedDirs: string; {%H-}IsIncDir: boolean);
var var
Files: TStrings; Files: TStrings;
aFilename: String; aFilename: String;
@ -641,7 +641,6 @@ var
AnUnitName:=''; AnUnitName:='';
case Ext of case Ext of
'.ppu','.o','.rst','.rsj','.pas','.pp','.p': '.ppu','.o','.rst','.rsj','.pas','.pp','.p':
if not IsIncDir then
begin begin
AnUnitName:=ExtractFileNameOnly(aFilename); AnUnitName:=ExtractFileNameOnly(aFilename);
if not IsDottedIdentifier(AnUnitName) then continue; if not IsDottedIdentifier(AnUnitName) then continue;