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

fix, source not related to project, json info not produced if project has erroneous sources

This commit is contained in:
Basile Burg 2014-12-25 16:07:30 +01:00
parent 47f460d31a
commit ee86c8f939
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_staticexplorer.pas
View File

@ -360,7 +360,7 @@ procedure TCEStaticExplorerWidget.produceJsonInfo;
var var
srcFname, itm: string; srcFname, itm: string;
tempSrc: TStringList; tempSrc: TStringList;
i: Integer; i, j: Integer;
begin begin
if fDoc = nil then exit; if fDoc = nil then exit;
if fDoc.Lines.Count = 0 then exit; if fDoc.Lines.Count = 0 then exit;
@ -390,7 +390,9 @@ begin
fDmdProc.Parameters.Add(srcFname); fDmdProc.Parameters.Add(srcFname);
// other project sources, -I, -J // other project sources, -I, -J
if fProj <> nil then begin if fProj <> nil then for j := 0 to fProj.Sources.Count-1 do if
fProj.getAbsoluteSourceName(j) = fDoc.fileName then
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);
@ -400,6 +402,7 @@ begin
fDmdProc.Parameters.Add('-I' + symbolExpander.get(itm)); fDmdProc.Parameters.Add('-I' + symbolExpander.get(itm));
for itm in fProj.currentConfiguration.pathsOptions.Imports do for itm in fProj.currentConfiguration.pathsOptions.Imports do
fDmdProc.Parameters.Add('-J' + symbolExpander.get(itm)); fDmdProc.Parameters.Add('-J' + symbolExpander.get(itm));
break;
end; end;
//adds the libman entries //adds the libman entries