forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

symstrings, DUB projects, CPR expands to the same as CPP

This commit is contained in:
Basile Burg 2016-03-26 05:09:31 +01:00
parent 5da8863db3
commit 0f90db2caf
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_symstring.pas
View File

@ -206,6 +206,7 @@ begin
fSymbols[CPP] := fSymbols[CPF].extractFilePath; fSymbols[CPP] := fSymbols[CPF].extractFilePath;
fSymbols[CPN] := stripFileExt(fSymbols[CPF].extractFileName); fSymbols[CPN] := stripFileExt(fSymbols[CPF].extractFileName);
fSymbols[CPO] := fProjInterface.outputFilename; fSymbols[CPO] := fProjInterface.outputFilename;
fSymbols[CPR] := fSymbols[CPP];
if fProjInterface.sourcesCount <> 0 then if fProjInterface.sourcesCount <> 0 then
begin begin
str := TStringList.Create; str := TStringList.Create;
@ -236,6 +237,10 @@ begin
fSymbols[CPR] := fSymbols[CPP]; fSymbols[CPR] := fSymbols[CPP];
end; end;
end; end;
//
for e := FirstVariableSymbol to high(TCESymbol) do
if fSymbols[e].isEmpty then
fSymbols[e] := na;
end; end;
function TCESymbolExpander.singleServiceName: string; function TCESymbolExpander.singleServiceName: string;