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

DBG: clean up define name

Browse Source 
git-svn-id: trunk@28251 -
This commit is contained in:
martin 2010-11-15 18:32:34 +00:00
parent 473b9e0b8d
commit b467185a27
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
debugger/gdbmidebugger.pp
View File

@ -34,6 +34,8 @@ unit GDBMIDebugger;
{$mode objfpc} {$mode objfpc}
{$H+} {$H+}
{$IFDEF GDMI_QUEUE_DEBUG}{$DEFINE DBGMI_QUEUE_DEBUG}{$ENDIF} // temporary, since renamed/spelling
interface interface
uses uses
@ -3012,7 +3014,7 @@ end;
procedure TGDBMIDebugger.LockCommandProcessing; procedure TGDBMIDebugger.LockCommandProcessing;
begin begin
{$IFDEF GDMI_QUEUE_DEBUG} {$IFDEF DBGMI_QUEUE_DEBUG}
DebugLnEnter(['TGDBMIDebugger.LockCommandProcessing FInExecuteCount=', FInExecuteCount, ' FRunQueueOnUnlock=', dbgs(FRunQueueOnUnlock) ]); DebugLnEnter(['TGDBMIDebugger.LockCommandProcessing FInExecuteCount=', FInExecuteCount, ' FRunQueueOnUnlock=', dbgs(FRunQueueOnUnlock) ]);
{$ENDIF} {$ENDIF}
if FInExecuteCount = 0 if FInExecuteCount = 0
@ -3023,7 +3025,7 @@ end;
procedure TGDBMIDebugger.UnLockCommandProcessing; procedure TGDBMIDebugger.UnLockCommandProcessing;
begin begin
QueueExecuteUnlock; QueueExecuteUnlock;
{$IFDEF GDMI_QUEUE_DEBUG} {$IFDEF DBGMI_QUEUE_DEBUG}
DebugLnExit(['TGDBMIDebugger.UnLockCommandProcessing']); DebugLnExit(['TGDBMIDebugger.UnLockCommandProcessing']);
{$ENDIF} {$ENDIF}
end; end;
@ -3130,12 +3132,12 @@ begin
Cmd := TGDBMIDebuggerCommand(FCommandQueue[0]); Cmd := TGDBMIDebuggerCommand(FCommandQueue[0]);
FCommandQueue.Delete(0); FCommandQueue.Delete(0);
{$IFDEF GDMI_QUEUE_DEBUG} {$IFDEF DBGMI_QUEUE_DEBUG}
DebugLnEnter(['Executing (Recurse-Count=', FInExecuteCount-1, ') queued= ', FCommandQueue.Count, ': "', Cmd.DebugText,'" State=',DBGStateNames[State],' PauseWaitState=',ord(FPauseWaitState) ]); DebugLnEnter(['Executing (Recurse-Count=', FInExecuteCount-1, ') queued= ', FCommandQueue.Count, ': "', Cmd.DebugText,'" State=',DBGStateNames[State],' PauseWaitState=',ord(FPauseWaitState) ]);
{$ENDIF} {$ENDIF}
R := Cmd.Execute; R := Cmd.Execute;
Cmd.DoFinished; Cmd.DoFinished;
{$IFDEF GDMI_QUEUE_DEBUG} {$IFDEF DBGMI_QUEUE_DEBUG}
DebugLnExit('Exec done'); DebugLnExit('Exec done');
{$ENDIF} {$ENDIF}
@ -3160,14 +3162,14 @@ begin
// insert continue command // insert continue command
Cmd := TGDBMIDebuggerCommandExecute.Create(Self, ectContinue); Cmd := TGDBMIDebuggerCommandExecute.Create(Self, ectContinue);
FCommandQueue.Add(Cmd); FCommandQueue.Add(Cmd);
{$IFDEF GDMI_QUEUE_DEBUG} {$IFDEF DBGMI_QUEUE_DEBUG}
debugln(['Internal Queueing: exec-continue']); debugln(['Internal Queueing: exec-continue']);
{$ENDIF} {$ENDIF}
end end
else Break; // Queue empty else Break; // Queue empty
end; end;
until not R; until not R;
{$IFDEF GDMI_QUEUE_DEBUG} {$IFDEF DBGMI_QUEUE_DEBUG}
debugln(['Leaving Queue with count: ', FCommandQueue.Count, ' Recurse-Count=', FInExecuteCount,' State=',DBGStateNames[State]]); debugln(['Leaving Queue with count: ', FCommandQueue.Count, ' Recurse-Count=', FInExecuteCount,' State=',DBGStateNames[State]]);
{$ENDIF} {$ENDIF}
finally finally
@ -3181,7 +3183,7 @@ begin
FCommandQueue.Add(ACommand); FCommandQueue.Add(ACommand);
if (FCommandQueue.Count > 1) or (FCommandQueueExecLock > 0) if (FCommandQueue.Count > 1) or (FCommandQueueExecLock > 0)
then begin then begin
{$IFDEF GDMI_QUEUE_DEBUG} {$IFDEF DBGMI_QUEUE_DEBUG}
debugln(['Queueing (Recurse-Count=', FInExecuteCount, ') at pos ', FCommandQueue.Count-1, ': "', ACommand.DebugText,'" State=',DBGStateNames[State], ' Lock=',FCommandQueueExecLock ]); debugln(['Queueing (Recurse-Count=', FInExecuteCount, ') at pos ', FCommandQueue.Count-1, ': "', ACommand.DebugText,'" State=',DBGStateNames[State], ' Lock=',FCommandQueueExecLock ]);
{$ENDIF} {$ENDIF}
ACommand.DoQueued; ACommand.DoQueued;
@ -4937,12 +4939,12 @@ begin
dec(FCommandQueueExecLock); dec(FCommandQueueExecLock);
if FRunQueueOnUnlock and (FCommandQueueExecLock = 0) if FRunQueueOnUnlock and (FCommandQueueExecLock = 0)
then begin then begin
{$IFDEF GDMI_QUEUE_DEBUG} {$IFDEF DBGMI_QUEUE_DEBUG}
DebugLnEnter(['TGDBMIDebugger.QueueExecuteUnlock: Execute RunQueue']); DebugLnEnter(['TGDBMIDebugger.QueueExecuteUnlock: Execute RunQueue']);
{$ENDIF} {$ENDIF}
FRunQueueOnUnlock := False; FRunQueueOnUnlock := False;
RunQueue; RunQueue;
{$IFDEF GDMI_QUEUE_DEBUG} {$IFDEF DBGMI_QUEUE_DEBUG}
DebugLnExit(['TGDBMIDebugger.QueueExecuteUnlock: Finished RunQueue']); DebugLnExit(['TGDBMIDebugger.QueueExecuteUnlock: Finished RunQueue']);
{$ENDIF} {$ENDIF}
end; end;
@ -5658,7 +5660,7 @@ var
ArgList, FrameList: TGDBMINameValueList; ArgList, FrameList: TGDBMINameValueList;
begin begin
if Debugger = nil then Exit; if Debugger = nil then Exit;
{$IFDEF GDMI_QUEUE_DEBUG} {$IFDEF DBGMI_QUEUE_DEBUG}
debugln('WARNING: TGDBMICallStack.CreateStackEntry called'); debugln('WARNING: TGDBMICallStack.CreateStackEntry called');
{$ENDIF} {$ENDIF}