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