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

fix #156 - Debugee option "workingDirectory" does not expand the symstrings

This commit is contained in:
Basile Burg 2017-06-07 14:39:10 +02:00
parent 0c39fe224e
commit b37d4ad352
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/ce_gdb.pas
View File

@ -1757,7 +1757,7 @@ begin
str := fSyms.expand(str[1..str.length-1]);
gdbCommand('-environment-path ' + str);
end;
if DirectoryExists(o.workingDirectory) then
if DirectoryExists(fSyms.expand(o.workingDirectory)) then
gdbCommand('-environment-cd ' + fSyms.expand(o.workingDirectory));
if (o.arguments.Count <> 0) or (o.queryArguments) then
begin
@ -1785,22 +1785,19 @@ begin
dbgeeOptsEd.TIObject := nil;
if not fDbgRunnable then
begin
if fProj = nil then
exit
else nme := fProj.filename;
if not nme.fileExists then
exit;
if fProj <> nil then
nme := fProj.filename;
end
else
begin
if fDoc = nil then
exit
else nme := fDoc.filename;
if not nme.fileExists then
exit;
if fDoc.isNotNil then
nme := fDoc.filename;
end;
if nme.fileExists then
begin
opt := fDebugeeOptions.projectByFile[nme];
dbgeeOptsEd.TIObject := opt;
end;
opt := fDebugeeOptions.projectByFile[nme];
dbgeeOptsEd.TIObject := opt;
end;
procedure TCEGdbWidget.synchronizeBreakpointsFromDoc;