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

* Use 64bit conversion of debug adresses. Patch #0017679 by Juha Manninen

Browse Source 
git-svn-id: trunk@27818 -
This commit is contained in:
marc 2010-10-23 15:54:55 +00:00
parent f1b2a24882
commit b3363f56a1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/gdbmidebugger.pp
View File

@ -4249,7 +4249,7 @@ function TGDBMIDebugger.StartDebugging(const AContinueCommand: String): Boolean;
S := GetPart(['at address ', ' at '], ['.', ' '], R.Values);
if S <> ''
then begin
FMainAddr := StrToIntDef(S, 0);
FMainAddr := StrToQWordDef(S, 0);
ExecuteCommand('-break-insert -t *%u', [FMainAddr], [cfIgnoreError], R);
Result := R.State <> dsError;
if Result then Exit;
@ -4261,7 +4261,7 @@ function TGDBMIDebugger.StartDebugging(const AContinueCommand: String): Boolean;
if not Result then Exit;
ResultList := TGDBMINameValueList.Create(R, ['bkpt']);
FMainAddr := StrToIntDef(ResultList.Values['addr'], 0);
FMainAddr := StrToQWordDef(ResultList.Values['addr'], 0);
ResultList.Free;
end;
@ -4359,7 +4359,7 @@ begin
then begin
// We could not set our initial break to get info and allow stepping
// Try it with the program entry point
FMainAddr := StrToIntDef(EntryPoint, 0);
FMainAddr := StrToQWordDef(EntryPoint, 0);
ExecuteCommand('-break-insert -t *%u', [FMainAddr], [cfIgnoreError], R);
TempInstalled := R.State <> dsError;
end;
@ -4533,7 +4533,7 @@ begin
and (TGDBMIDebugger(Debugger).FBreakAtMain = nil)
then begin
// Check if this BP is at the same location as the temp break
if StrToIntDef(ResultList.Values['addr'], 0) = TGDBMIDebugger(Debugger).FMainAddr
if StrToQWordDef(ResultList.Values['addr'], 0) = TGDBMIDebugger(Debugger).FMainAddr
then TGDBMIDebugger(Debugger).FBreakAtMain := Self;
end;