Index: gdbmidebugger.pp
===================================================================
--- gdbmidebugger.pp	(revision 27526)
+++ gdbmidebugger.pp	(working copy)
@@ -1641,7 +1641,7 @@
       New(Disasm);
       Disasm^.FileName := AFileName;
       Disasm^.Line := ALine;
-      Disasm^.Address := StrToIntDef(Unquote(InstList.Values['address']), 0);
+      Disasm^.Address := StrToInt64Def(Unquote(InstList.Values['address']), 0);
       S := InstList.Values['func-name'];
       if S <> FuncNameQ
       then begin
@@ -1892,7 +1892,7 @@
         then begin
           Item := AsmList.Items[1];
           InstList.Init(Item^.NamePtr, Item^.NameLen);
-          AsmLine.Next := StrToIntDef(Unquote(InstList.Values['address']), 0);
+          AsmLine.Next := StrToInt64Def(Unquote(InstList.Values['address']), 0);
           AddAsmLine(Addr, AsmLine);
         end;
       end;
@@ -4119,7 +4119,7 @@
       S := GetPart(['at address ', ' at '], ['.', ' '], R.Values);
       if S <> ''
       then begin
-        ExecuteCommand('-break-insert *%u', [StrToIntDef(S, 0)],  [cfIgnoreError], R);
+        ExecuteCommand('-break-insert *%u', [StrToInt64Def(S, 0)],  [cfIgnoreError], R);
         if R.State = dsError then Exit(-1);
         ResultList := TGDBMINameValueList.Create(R, ['bkpt']);
         Result := StrToIntDef(ResultList.Values['number'], -1);
@@ -4243,7 +4243,7 @@
       S := GetPart(['at address ', ' at '], ['.', ' '], R.Values);
       if S <> ''
       then begin
-        FMainAddr := StrToIntDef(S, 0);
+        FMainAddr := StrToInt64Def(S, 0);
         ExecuteCommand('-break-insert -t *%u', [FMainAddr],  [cfIgnoreError], R);
         Result := R.State <> dsError;
         if Result then Exit;
@@ -4255,7 +4255,7 @@
     if not Result then Exit;
 
     ResultList := TGDBMINameValueList.Create(R, ['bkpt']);
-    FMainAddr := StrToIntDef(ResultList.Values['addr'], 0);
+    FMainAddr := StrToInt64Def(ResultList.Values['addr'], 0);
     ResultList.Free;
   end;
 
@@ -4353,7 +4353,7 @@
   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 := StrToInt64Def(EntryPoint, 0);
     ExecuteCommand('-break-insert -t *%u', [FMainAddr], [cfIgnoreError], R);
     TempInstalled := R.State <> dsError;
   end;
@@ -4527,7 +4527,7 @@
     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 StrToInt64Def(ResultList.Values['addr'], 0) = TGDBMIDebugger(Debugger).FMainAddr
       then TGDBMIDebugger(Debugger).FBreakAtMain := Self;
     end;
 
