paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Packager: remove obsolete const string arrays

Browse Source 
git-svn-id: trunk@33245 -
This commit is contained in:
juha 2011-11-02 23:19:48 +00:00
parent c2a767ce5f
commit 4130f6b03f
1 changed files with 7 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packager/packagedefs.pas
View File

@ -846,28 +846,13 @@ type
const
LazPkgXMLFileVersion = 4;
PkgFileTypeNames: array[TPkgFileType] of string = (
'pftUnit', 'pftVirtualUnit', 'pftMainUnit',
'pftLFM', 'pftLRS', 'pftInclude', 'pftIssues',
'pftText', 'pftBinary');
PkgFileTypeIdents: array[TPkgFileType] of string = (
'Unit', 'Virtual Unit', 'Main Unit',
'LFM', 'LRS', 'Include', 'Issues', 'Text', 'Binary');
PkgFileFlag: array[TPkgFileFlag] of string = (
'pffHasRegisterProc', 'pffAddToPkgUsesSection', 'pffReportedAsRemoved');
PkgDependencyFlagNames: array[TPkgDependencyFlag] of string = (
'pdfMinVersion', 'pdfMaxVersion');
LazPackageTypeNames: array[TLazPackageType] of string = (
'lptRunTime', 'lptDesignTime', 'lptRunAndDesignTime');
LazPackageTypeIdents: array[TLazPackageType] of string = (
'RunTime', 'DesignTime', 'RunAndDesignTime');
LazPackageFlagNames: array[TLazPackageFlag] of string = (
'lpfAutoIncrementVersionOnBuild', 'lpfModified',
'lpfNeeded', 'lpfVisited', 'lpfDestroying', 'lpfLoading', 'lpfSkipSaving',
'lpfCircle');
AutoUpdateNames: array[TPackageUpdatePolicy] of string = (
'Manually', 'OnRebuildingAll', 'AsNeeded'
);
'Manually', 'OnRebuildingAll', 'AsNeeded');
var
// All TPkgDependency are added to this AVL tree (sorted for names, not version!)
@ -2650,6 +2635,11 @@ begin
FStorePathDelim:=pdsNone;
end;
//function DbgS(PkgFileType: TPkgFileType): string;
//begin
// WriteStr(Result, PkgFileType);
//end;
procedure TLazPackage.UpdateSourceDirectories;
var
Cnt: Integer;
@ -2667,7 +2657,7 @@ begin
PkgFile.AutoReferenceSourceDir:=true;
PkgFile.UpdateSourceDirectoryReference;
//debugln('TLazPackage.UpdateSourceDirectories A ',PkgFile.Filename,' ',
// ' ',PkgFileTypeNames[PkgFile.FileType],' ',PkgFile.Removed,
// ' ',DbgS(PkgFile.FileType),' ',PkgFile.Removed,
// ' HasPkg=',dbgs(PkgFile.LazPackage=Self),
// ' Need=',PkgFile.FSourceDirNeedReference,
// ' Is=',PkgFile.FSourceDirectoryReferenced);