paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 09:40:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: remove obsolete PkgCompileFlagNames, use WriteStr

Browse Source 
git-svn-id: trunk@33232 -
This commit is contained in:
juha 2011-11-02 23:14:26 +00:00
parent daeaa70d10
commit 8c4df84f94
1 changed files with 5 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ideintf/packageintf.pas
View File

@ -175,18 +175,6 @@ type
);
TPkgCompileFlags = set of TPkgCompileFlag;
const
PkgCompileFlagNames: array[TPkgCompileFlag] of string = (
'pcfCleanCompile',
'pcfDoNotCompileDependencies',
'pcfDoNotCompilePackage',
'pcfCompileDependenciesClean',
'pcfSkipDesignTimePackages',
'pcfOnlyIfNeeded',
'pcfDoNotSaveEditorFiles',
'pcfCreateMakefile'
);
type
TPkgInstallInIDEFlag = (
piiifQuiet,
@ -336,12 +324,15 @@ implementation
function PkgCompileFlagsToString(Flags: TPkgCompileFlags): string;
var
f: TPkgCompileFlag;
s: string;
begin
Result:='';
for f:=Low(TPkgCompileFlag) to High(TPkgCompileFlag) do begin
if not (f in Flags) then continue;
if Result<>'' then Result:=Result+',';
Result:=Result+PkgCompileFlagNames[f];
WriteStr(s, f);
if Result<>'' then
Result:=Result+',';
Result:=Result+s;
end;
Result:='['+Result+']';
end;