paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 21:07:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: clean up

Browse Source 
git-svn-id: trunk@41275 -
This commit is contained in:
martin 2013-05-19 10:38:48 +00:00
parent 330828e030
commit ddad97db02
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
debugger/gdbmidebugger.pp
View File

@ -210,7 +210,7 @@ type
TGDBMIProcessResultOpt = ( TGDBMIProcessResultOpt = (
prNoLeadingTab, // Do not require/strip the leading #9 prNoLeadingTab, // Do not require/strip the leading #9
prKeepBackShlash // Workaround, because TGDBMINameValueList does already do this prKeepBackSlash // Workaround, because TGDBMINameValueList does already do this
); );
TGDBMIProcessResultOpts = set of TGDBMIProcessResultOpt; TGDBMIProcessResultOpts = set of TGDBMIProcessResultOpt;
@ -8895,7 +8895,7 @@ function TGDBMIDebuggerCommandLocals.DoExecute: Boolean;
begin begin
// AnsiString // AnsiString
if (length(Value) > 0) and (Value[1] in ['''', '#']) then begin if (length(Value) > 0) and (Value[1] in ['''', '#']) then begin
Value := MakePrintable(ProcessGDBResultText(Value, [prNoLeadingTab, prKeepBackShlash])); Value := MakePrintable(ProcessGDBResultText(Value, [prNoLeadingTab, prKeepBackSlash]));
end end
else else
Value := DeleteEscapeChars(List.Values['value']); Value := DeleteEscapeChars(List.Values['value']);
@ -8903,7 +8903,7 @@ function TGDBMIDebuggerCommandLocals.DoExecute: Boolean;
else else
// ShortString // ShortString
if (length(Value) > 0) and (Value[1] in ['''', '#']) then begin if (length(Value) > 0) and (Value[1] in ['''', '#']) then begin
Value := MakePrintable(ProcessGDBResultText(Value, [prNoLeadingTab, prKeepBackShlash])); Value := MakePrintable(ProcessGDBResultText(Value, [prNoLeadingTab, prKeepBackSlash]));
end end
else else
Value := DeleteEscapeChars(Value); Value := DeleteEscapeChars(Value);
@ -10861,7 +10861,7 @@ begin
if idx > len then Break; if idx > len then Break;
if S[idx] <> '''' then Break; if S[idx] <> '''' then Break;
end; end;
'\' : if not (prKeepBackShlash in Opts) then begin '\' : if not (prKeepBackSlash in Opts) then begin
Inc(idx); Inc(idx);
if idx > len then Break; if idx > len then Break;
case S[idx] of case S[idx] of
@ -12614,7 +12614,7 @@ var
if (i <= length(FTextValue)) and (FTextValue[i] in ['''', '#']) if (i <= length(FTextValue)) and (FTextValue[i] in ['''', '#'])
then then
FTextValue := MakePrintable(ProcessGDBResultText( FTextValue := MakePrintable(ProcessGDBResultText(
copy(FTextValue, i, length(FTextValue) - i + 1), [prNoLeadingTab, prKeepBackShlash])) copy(FTextValue, i, length(FTextValue) - i + 1), [prNoLeadingTab, prKeepBackSlash]))
else else
if Addr = 0 if Addr = 0
then then
@ -12696,7 +12696,7 @@ var
FTextValue := FormatCurrency(FTextValue) FTextValue := FormatCurrency(FTextValue)
else else
if ResultInfo.TypeName = 'ShortString' then if ResultInfo.TypeName = 'ShortString' then
FTextValue := MakePrintable(ProcessGDBResultText(FTextValue, [prNoLeadingTab, prKeepBackShlash])) FTextValue := MakePrintable(ProcessGDBResultText(FTextValue, [prNoLeadingTab, prKeepBackSlash]))
else else
if (ResultInfo.TypeName = '&ShortString') then // should no longer happen if (ResultInfo.TypeName = '&ShortString') then // should no longer happen
FTextValue := GetStrValue('ShortString(%s)', [AnExpression]) // we have an address here, so we need to typecast FTextValue := GetStrValue('ShortString(%s)', [AnExpression]) // we have an address here, so we need to typecast