From 0f90db2caf7be622f00ff1a7ca30536e68da5d2a Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 26 Mar 2016 05:09:31 +0100
Subject: [PATCH] symstrings, DUB projects, CPR expands to the same as CPP

---
 src/ce_symstring.pas | 5 +++++
 1 file changed, 5 insertions(+)

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;