paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 22:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Fix for gdb 7.5

Browse Source 
git-svn-id: trunk@38725 -
This commit is contained in:
martin 2012-09-18 01:57:21 +00:00
parent 20d1274213
commit 2b31afc2e6
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/gdbmidebugger.pp
View File

@ -10667,7 +10667,9 @@ begin
// don't use ' as end terminator, there might be one as part of the text
// since ' will be the last char, simply strip it.
S := GetPart(['\t '], [], S);
if pos('\t ', s) > 0
then S := GetPart(['\t '], [], S)
else S := GetPart(['\t'], [], S); // GDB 7.5 no longer has the space
// Scan the string
len := Length(S);

1
debugger/test/Gdbmi/testbreakpoint.pas
View File

@ -407,6 +407,7 @@ begin
// 7.2.x seems to always pass
070300..070399: IgnoreRes:= 'gdb 7.3.x may or may not fail';
070400..070499: IgnoreRes:= 'gdb 7.4.x may or may not fail';
070500..070599: IgnoreRes:= 'gdb 7.5.x may or may not fail';
end;
TestEquals('Passed none-pause run', '', Err, 0, IgnoreRes);