paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-22 10:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 47581 #f05054dd59 from trunk:

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

git-svn-id: branches/fixes_1_4@47582 -
This commit is contained in:
martin 2015-02-02 03:08:48 +00:00
parent dc1ee78e83
commit 987f026c95
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

@ -8247,7 +8247,7 @@ begin
end; end;
R := GDBMIExecResultDefault; 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); and (R.State <> dsError);
FTypeRequestCache.Clear; FTypeRequestCache.Clear;
@ -9107,7 +9107,7 @@ begin
Result := False; Result := False;
if ABreakID = 0 then Exit; if ABreakID = 0 then Exit;
Result := ExecuteCommand('-break-condition %d %s', [ABreakID, AnExpression], []); Result := ExecuteCommand('-break-condition %d %s', [ABreakID, UpperCase(AnExpression)], []);
end; end;
{ TGDBMIDebuggerCommandBreakInsert } { TGDBMIDebuggerCommandBreakInsert }
@ -9150,7 +9150,7 @@ begin
bpkData: bpkData:
begin begin
if (FWatchData = '') then exit; if (FWatchData = '') then exit;
WatchExpr := WatchData; WatchExpr := UpperCase(WatchData);
if FWatchScope = wpsGlobal then begin if FWatchScope = wpsGlobal then begin
Result := ExecuteCommand('ptype %s', [WatchExpr], R); Result := ExecuteCommand('ptype %s', [WatchExpr], R);
Result := Result and (R.State <> dsError); Result := Result and (R.State <> dsError);