paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:46:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

- rm code for parsing and extracting the value of the print command result, when

Browse Source 
retrieving FrameName, since that's already done in TGDBController.PrintCommand
  for the libgdb.a interface (and unnecessary for the gdb/mi interface)

git-svn-id: trunk@30118 -
This commit is contained in:
nickysn 2015-03-07 14:26:10 +00:00
parent a32b335832
commit e52238df42
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fpdebug.pas
View File

@ -2869,7 +2869,7 @@ procedure TWatch.rename(s : string);
procedure TWatch.Get_new_value; procedure TWatch.Get_new_value;
{$ifndef NODEBUG} {$ifndef NODEBUG}
var i, j, curframe, startframe : longint; var i, curframe, startframe : longint;
s,s2,orig_s_result : AnsiString; s,s2,orig_s_result : AnsiString;
loop_higher, found : boolean; loop_higher, found : boolean;
@ -2943,11 +2943,6 @@ procedure TWatch.Get_new_value;
{$endif FrameNameKnown} {$endif FrameNameKnown}
if not getValue(s2) then if not getValue(s2) then
loop_higher:=false; loop_higher:=false;
j:=pos('=',s2);
if j>0 then
s2:=copy(s2,j+1,length(s2));
while s2[1] in [' ',TAB] do
delete(s2,1,1);
if pos(s2,s)>0 then if pos(s2,s)>0 then
loop_higher :=false; loop_higher :=false;
until not loop_higher; until not loop_higher;