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

fix, only handle source, not obj/o

This commit is contained in:
Basile Burg 2015-02-03 22:32:10 +01:00
parent 4fb2794763
commit 2fbed556fb
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_staticexplorer.pas
View File

@ -451,6 +451,8 @@ begin
fDmdProc.CurrentDirectory := extractFilePath(fProj.fileName); fDmdProc.CurrentDirectory := extractFilePath(fProj.fileName);
for i := 0 to fProj.Sources.Count-1 do begin for i := 0 to fProj.Sources.Count-1 do begin
itm := fProj.getAbsoluteSourceName(i); itm := fProj.getAbsoluteSourceName(i);
if dExtList.IndexOf(ExtractFileExt(itm)) = -1 then
continue;
if srcFname <> itm then fDmdProc.Parameters.Add(itm); if srcFname <> itm then fDmdProc.Parameters.Add(itm);
end; end;
for itm in fProj.currentConfiguration.pathsOptions.importModulePaths do for itm in fProj.currentConfiguration.pathsOptions.importModulePaths do

6
src/ce_symstring.pas
View File

@ -118,6 +118,7 @@ procedure TCESymbolExpander.updateSymbols;
var var
hasProj: boolean; hasProj: boolean;
hasDoc: boolean; hasDoc: boolean;
fname: string;
i: Integer; i: Integer;
const const
na = '``'; na = '``';
@ -166,7 +167,10 @@ begin
fSymbols[CPFS] := ''; fSymbols[CPFS] := '';
for i := 0 to fProj.Sources.Count-1 do for i := 0 to fProj.Sources.Count-1 do
begin begin
fSymbols[CPFS] += fProj.getAbsoluteSourceName(i); fname := fProj.getAbsoluteSourceName(i);
if dExtList.IndexOf(ExtractFileExt(fname)) = -1 then
continue;
fSymbols[CPFS] += fname;
if fProj.Sources.Count > 1 then if fProj.Sources.Count > 1 then
if i <> fProj.Sources.Count-1 then if i <> fProj.Sources.Count-1 then
fSymbols[CPFS] += LineEnding; fSymbols[CPFS] += LineEnding;