paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 10:11:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Uses Debugger^.IsRunning

Browse Source
This commit is contained in:
pierre 2000-03-08 16:58:12 +00:00
parent 3959ba67e3
commit 28888d15ae
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ide/text/fpmrun.inc
View File

@ -24,17 +24,17 @@ begin
if not assigned(Debugger) then if not assigned(Debugger) then
exit; exit;
end; end;
if not debugger^.debuggee_started then if not Debugger^.IsRunning then
Debugger^.StartTrace Debugger^.StartTrace
else else
Debugger^.TraceNext; Debugger^.TraceNext;
While (Debugger^.InvalidSourceLine and {While (Debugger^.InvalidSourceLine and
Debugger^.debuggee_started and Debugger^.IsRunning and
not Debugger^.error) do not Debugger^.error) do
begin begin
Inc(Debugger^.HiddenStepsCount); Inc(Debugger^.HiddenStepsCount);
Debugger^.TraceNext; Debugger^.TraceNext;
end; end;}
Debugger^.AnnotateError; Debugger^.AnnotateError;
{$else NODEBUG} {$else NODEBUG}
NoDebugger; NoDebugger;
@ -51,14 +51,14 @@ begin
if not assigned(Debugger) then if not assigned(Debugger) then
exit; exit;
end; end;
if not debugger^.debuggee_started then if not debugger^.IsRunning then
Debugger^.StartTrace Debugger^.StartTrace
else else
Debugger^.TraceStep; Debugger^.TraceStep;
{ I think we should not try to go deeper ! { I think we should not try to go deeper !
if the source is not found PM } if the source is not found PM }
While (Debugger^.InvalidSourceLine and While (Debugger^.InvalidSourceLine and
Debugger^.debuggee_started and Debugger^.IsRunning and
not Debugger^.error) do not Debugger^.error) do
begin begin
Inc(Debugger^.HiddenStepsCount); Inc(Debugger^.HiddenStepsCount);
@ -79,7 +79,7 @@ begin
if not assigned(Debugger) then if not assigned(Debugger) then
exit; exit;
end; end;
if not debugger^.debuggee_started then if not debugger^.IsRunning then
Debugger^.Run Debugger^.Run
else else
Debugger^.UntilReturn; Debugger^.UntilReturn;
@ -95,13 +95,14 @@ var
begin begin
{$ifndef NODEBUG} {$ifndef NODEBUG}
if not assigned(Debugger) or not Debugger^.debuggee_started then if not assigned(Debugger) or not Debugger^.IsRunning then
{$endif} {$endif}
begin begin
if (not ExistsFile(ExeFile)) or (CompilationPhase<>cpDone) or NeedRecompile then if (not ExistsFile(ExeFile)) or (CompilationPhase<>cpDone) or
DoCompile(cRun); NeedRecompile(false) then
DoCompile(cRun);
if CompilationPhase<>cpDone then if CompilationPhase<>cpDone then
Exit; Exit;
if (EXEFile='') then if (EXEFile='') then
begin begin
ErrorBox('Oooops, nothing to run.',nil); ErrorBox('Oooops, nothing to run.',nil);
@ -265,7 +266,10 @@ end;
{ {
$Log$ $Log$
Revision 1.28 2000-02-04 00:15:31 pierre Revision 1.29 2000-03-08 16:58:12 pierre
Uses Debugger^.IsRunning
Revision 1.28 2000/02/04 00:15:31 pierre
* adapted to change in fpdebug unit * adapted to change in fpdebug unit
Revision 1.27 2000/02/02 22:48:25 pierre Revision 1.27 2000/02/02 22:48:25 pierre