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

Debugger use StrToQWord for 64bit / based on patch by Willibald Krenn / issue #17645

Browse Source 
git-svn-id: trunk@28168 -
This commit is contained in:
martin 2010-11-09 17:48:05 +00:00
parent 2ef911ad23
commit 7f9a7d957e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/gdbmidebugger.pp
View File

@ -2390,7 +2390,7 @@ var
New(Disasm);
Disasm^.FileName := AFileName;
Disasm^.Line := ALine;
Disasm^.Address := StrToIntDef(Unquote(InstList.Values['address']), 0);
Disasm^.Address := StrToQWordDef(Unquote(InstList.Values['address']), 0);
S := InstList.Values['func-name'];
if S <> FuncNameQ
then begin
@ -2641,7 +2641,7 @@ begin
then begin
Item := AsmList.Items[1];
InstList.Init(Item^.NamePtr, Item^.NameLen);
AsmLine.Next := StrToIntDef(Unquote(InstList.Values['address']), 0);
AsmLine.Next := StrToQWordDef(Unquote(InstList.Values['address']), 0);
AddAsmLine(Addr, AsmLine);
end;
end;
@ -3201,8 +3201,8 @@ var
begin
// check if we need to get out of the interrupt thread
S := AResult.Values;
S := GetPart(['.0x'], ['.'], S, True, False);
if StrToIntDef('$'+S, 0) <> ATag then Exit;
S := GetPart(['.0x'], ['.'], S, True, False); // From the line "using child thread"
if PtrInt(StrToQWordDef('$'+S, 0)) <> ATag then Exit;
// we're stopped in our thread
if FPauseWaitState = pwsInternal then Exit; // internal, do not care
@ -3877,7 +3877,7 @@ function TGDBMIDebugger.StartDebugging(AContinueCommand: TGDBMIDebuggerCommand):
S := GetPart(['at address ', ' at '], ['.', ' '], R.Values);
if S <> ''
then begin
ExecuteCommand('-break-insert *%u', [StrToIntDef(S, 0)], [cfIgnoreError], R);
ExecuteCommand('-break-insert *%u', [StrToQWordDef(S, 0)], [cfIgnoreError], R);
if R.State = dsError then Exit(-1);
ResultList := TGDBMINameValueList.Create(R, ['bkpt']);
Result := StrToIntDef(ResultList.Values['number'], -1);