paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 06:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: GDB more fixes for gdb 7.7 and up. Uppercase expressions / See issue #27136

Browse Source 
git-svn-id: trunk@47581 -
This commit is contained in:
martin 2015-02-02 03:07:09 +00:00
parent d517ab2465
commit f05054dd59
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -8344,7 +8344,7 @@ begin
end;
R := GDBMIExecResultDefault;
Result := ExecuteCommandFull('-gdb-set var %s := %s', [AExpression, S], [cfscIgnoreError], @GDBModifyDone, 0, R)
Result := ExecuteCommandFull('-gdb-set var %s := %s', [UpperCase(AExpression), S], [cfscIgnoreError], @GDBModifyDone, 0, R)
and (R.State <> dsError);
FTypeRequestCache.Clear;
@ -9204,7 +9204,7 @@ begin
Result := False;
if ABreakID = 0 then Exit;
Result := ExecuteCommand('-break-condition %d %s', [ABreakID, AnExpression], []);
Result := ExecuteCommand('-break-condition %d %s', [ABreakID, UpperCase(AnExpression)], []);
end;
{ TGDBMIDebuggerCommandBreakInsert }
@ -9247,7 +9247,7 @@ begin
bpkData:
begin
if (FWatchData = '') then exit;
WatchExpr := WatchData;
WatchExpr := UpperCase(WatchData);
if FWatchScope = wpsGlobal then begin
Result := ExecuteCommand('ptype %s', [WatchExpr], R);
Result := Result and (R.State <> dsError);