Lines Matching refs:OwnerInfo

91     OwnerInfo: TPGInterPkgOwnerInfo;
103     function IndexOfOwner(OwnerInfo: TPGInterPkgOwnerInfo): integer;  in IndexOfOwner()
188   if (SrcFile<>nil) and (PPUFile<>nil) and (PPUFile.OwnerInfo<>SrcFile.OwnerInfo) then
189 …ion('bug: not equal: PPUFile.OwnerInfo='+PPUFile.OwnerInfo.Name+' SrcFile.OwnerInfo='+SrcFile.Owne…
201 function TPGIPAmbiguousFileGroup.IndexOfOwner(OwnerInfo: TPGInterPkgOwnerInfo  in TPGIPAmbiguousFileGroup.IndexOfOwner()
209       if (Sources[Result].OwnerInfo=OwnerInfo) then exit;
211       if (CompiledFiles[Result].OwnerInfo=OwnerInfo) then exit;
505       if CurFile.OwnerInfo.Owner is TLazPackage then
506         s+=' of package '+CurFile.OwnerInfo.Name
508         s+=' of '+CurFile.OwnerInfo.Name;
545   OwnerInfo:=Owner;
572     OwnerInfo: TPGInterPkgOwnerInfo;
574     OwnerInfo:=TPGInterPkgOwnerInfo.Create;
575     OwnerInfos.Add(OwnerInfo);
576     OwnerInfo.Owner:=TheOwner;
579       OwnerInfo.Name:=TLazPackage(TheOwner).IDAsString;
580       OwnerInfo.CompOptions:=TLazPackage(TheOwner).LazCompilerOptions as TBaseCompilerOptions;
583       OwnerInfo.Name:=TLazProject(TheOwner).GetTitleOrName;
584       OwnerInfo.CompOptions:=TLazProject(TheOwner).LazCompilerOptions as TBaseCompilerOptions;
588       OwnerInfo.Name:='#IDE';
590       OwnerInfo.BaseDir:=LazDir;
591       OwnerInfo.SrcDirs:=LazDir+'ide'
596       OwnerInfo.IncDirs:=OwnerInfo.SrcDirs
599       OwnerInfo.UnitOutDir:=LazDir+'units'+PathDelim+TargetCPU+'-'+TargetOS+PathDelim+LCLWidgetType;
601     if OwnerInfo.CompOptions<>nil then begin
602       OwnerInfo.BaseDir:=OwnerInfo.CompOptions.BaseDirectory;
603       OwnerInfo.SrcDirs:=OwnerInfo.CompOptions.GetPath(
605       OwnerInfo.IncDirs:=OwnerInfo.CompOptions.GetPath(
607       if OwnerInfo.CompOptions.UnitOutputDirectory<>'' then
608         OwnerInfo.UnitOutDir:=OwnerInfo.CompOptions.GetUnitOutputDirectory(false);
609       CustomOptions:=OwnerInfo.CompOptions.ParsedOpts.GetParsedValue(pcosCustomOptions);
611       OwnerInfo.HasOptionUr:=FindNextFPCParameter(CustomOptions,'-Ur',p)>0;
613     OwnerInfo.IncDirs:=TrimSearchPath(RemoveSearchPaths(OwnerInfo.IncDirs,OwnerInfo.SrcDirs),'');
614     OwnerInfo.UnitOutDir:=TrimFilename(OwnerInfo.UnitOutDir);
615     OwnerInfo.SrcDirs:=TrimSearchPath(OwnerInfo.SrcDirs,'');
617     debugln(['AddOwnerInfo Name="',OwnerInfo.Name,'"',
618       ' SrcDirs="',CreateRelativeSearchPath(OwnerInfo.SrcDirs,OwnerInfo.BaseDir),'"',
619       ' IncDirs="',CreateRelativeSearchPath(OwnerInfo.IncDirs,OwnerInfo.BaseDir),'"',
620       ' UnitOutDir="',CreateRelativeSearchPath(OwnerInfo.UnitOutDir,OwnerInfo.BaseDir),'"',
625   procedure CollectFilesInDir(OwnerInfo: TPGInterPkgOwnerInfo; Dir: string;
636 …    debugln(['Inconsistency: CollectFilesInDir dir no absolute: "',Dir,'" Owner=',OwnerInfo.Name]);
659                                         AnUnitName,OwnerInfo);
670   procedure CollectFilesOfOwner(OwnerInfo: TPGInterPkgOwnerInfo);
679     CollectFilesInDir(OwnerInfo,OwnerInfo.UnitOutDir,SearchedDirs,false);
680     SearchPath:=OwnerInfo.SrcDirs;
685       CollectFilesInDir(OwnerInfo,Dir,SearchedDirs,false);
687     SearchPath:=OwnerInfo.IncDirs;
692       CollectFilesInDir(OwnerInfo,Dir,SearchedDirs,true);
753     if File1.OwnerInfo.HasOptionUr
754     and File2.OwnerInfo.HasOptionUr then
756     if File1.OwnerInfo.HasOptionUr
757     and OwnerHasDependency(File2.OwnerInfo,File1.OwnerInfo) then
759     if File2.OwnerInfo.HasOptionUr
760     and OwnerHasDependency(File1.OwnerInfo,File2.OwnerInfo) then
773     if File1.OwnerInfo=File2.OwnerInfo then exit;
774     if (FileGroup<>nil) and (FileGroup.IndexOfOwner(File1.OwnerInfo)>=0)
790     if (FindPathInSearchPath(FileDir1,File2.OwnerInfo.SrcDirs)>0)
791     or (FindPathInSearchPath(FileDir2,File1.OwnerInfo.SrcDirs)>0) then
818         if (TheUnit.OwnerInfo=Result.OwnerInfo) then
873       if CurUnit.OwnerInfo.HasOptionUr then continue;
935               OwnerInfo.Name]);
941               OwnerInfo.Name]);
1011           Msg+=' in "'+CurFile.OwnerInfo.Name+'"';