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

DBG: Clean up

Browse Source 
git-svn-id: trunk@36009 -
This commit is contained in:
martin 2012-03-14 20:46:42 +00:00
parent a09fad221c
commit 1ad7923e0c
1 changed files with 1 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
debugger/gdbmidebugger.pp
View File

@ -4344,70 +4344,15 @@ begin
Include(FTheDebugger.FDebuggerFlags, dfForceBreakDetected); Include(FTheDebugger.FDebuggerFlags, dfForceBreakDetected);
end; end;
(* We need a brearpoint at entry-point or main, to continue initialization (* We need a breakpoint at entry-point or main, to continue initialization
"main" could map to more than one location, so we try entry point first "main" could map to more than one location, so we try entry point first
*) *)
//if (EntryPoint <> '') then
// FTheDebugger.FMainAddrBreak.SetAtCustomAddr(Self, StrToQWordDef(EntryPoint, 0));
//
//if not FTheDebugger.FMainAddrBreak.Enabled then
// FTheDebugger.FMainAddrBreak.SetBoth(Self);
(* there is no handling for errors, before reaching entry point, so we do not need them yet *)
//FTheDebugger.FExceptionBreak.SetBoth(Self);
//FTheDebugger.FBreakErrorBreak.SetBoth(Self);
//FTheDebugger.FRunErrorBreak.SetBoth(Self);
//TargetInfo^.TargetPID := 0;
TargetInfo^.TargetPID := RunToMain(EntryPoint); TargetInfo^.TargetPID := RunToMain(EntryPoint);
//// fire the first step
//if FTheDebugger.FMainAddrBreak.Enabled
//then begin
// CommandObj := TGDBMIDebuggerCommandExecute.Create(FTheDebugger, ectRun);
// CommandObj.Execute;
// // some versions of gdb (OSX) output the PID here
// R := CommandObj.Result;
// TargetPIDPart := GetPart(['process '], [' local', ']'], R.Values, True);
// TargetInfo^.TargetPID := StrToIntDef(TargetPIDPart, 0);
// R.State := dsNone;
// CommandObj.DoFinished;
//end;
//
//FTheDebugger.FMainAddrBreak.Clear(Self);
if DebuggerState = dsError if DebuggerState = dsError
then exit; then exit;
//// try to find PID (if not already found)
//if (TargetInfo^.TargetPID = 0)
//and ExecuteCommand('info program', [], R, [cfCheckState])
//then begin
// TargetPIDPart := GetPart(['child process ', 'child thread ', 'lwp '],
// [' ', '.', ')'], R.Values, True);
// TargetInfo^.TargetPID := StrToIntDef(TargetPIDPart, 0);
//end;
//
//// apple
//if (TargetInfo^.TargetPID = 0)
//and ExecuteCommand('info pid', [], R, [cfCheckState])
//and (R.State <> dsError)
//then begin
// List := TGDBMINameValueList.Create(R);
// TargetInfo^.TargetPID := StrToIntDef(List.Values['process-id'], 0);
// List.Free;
//end;
//
//// apple / MacPort 7.1 / 32 bit dwarf
//if (TargetInfo^.TargetPID = 0)
//and ExecuteCommand('info threads', [], R, [cfCheckState])
//and (R.State <> dsError)
//then begin
// TargetPIDPart := GetPart(['of process '], [' '], R.Values, True);
// TargetInfo^.TargetPID := StrToIntDef(TargetPIDPart, 0);
//end;
if TargetInfo^.TargetPID = 0 if TargetInfo^.TargetPID = 0
then begin then begin
Result := False; Result := False;