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

Debugger/GDBMI: Moved registration

Browse Source 
git-svn-id: trunk@44149 -
This commit is contained in:
martin 2014-02-18 20:10:17 +00:00
parent 4524f9a281
commit 23991564a6
6 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -856,6 +856,8 @@ type
{%endregion *^^^* TGDBMINameValueList and Parsers *^^^* }
procedure Register;
implementation
var
@ -12969,8 +12971,12 @@ begin
else Result := Format('%s: %s', [ClassName, FExpression]);
end;
initialization
procedure Register;
begin
RegisterDebugger(TGDBMIDebugger);
end;
initialization
DBGMI_QUEUE_DEBUG := DebugLogger.RegisterLogGroup('DBGMI_QUEUE_DEBUG' {$IFDEF DBGMI_QUEUE_DEBUG} , True {$ENDIF} );
DBGMI_STRUCT_PARSER := DebugLogger.RegisterLogGroup('DBGMI_STRUCT_PARSER' {$IFDEF DBGMI_STRUCT_PARSER} , True {$ENDIF} );
DBG_VERBOSE := DebugLogger.FindOrRegisterLogGroup('DBG_VERBOSE' {$IFDEF DBG_VERBOSE} , True {$ENDIF} );

7
components/lazdebuggergdbmi/gdbmiserverdebugger.pas
View File

@ -76,6 +76,8 @@ type
property InternalStartBreak;
end;
procedure Register;
implementation
resourcestring
@ -192,9 +194,10 @@ begin
end;
initialization
procedure Register;
begin
RegisterDebugger(TGDBMIServerDebugger);
end;
end.

3
components/lazdebuggergdbmi/lazdebuggergdbmi.lpk
View File

@ -45,6 +45,7 @@ This debugger uses gdb and is based on gdb's mi interface."/>
</Item5>
<Item6>
<Filename Value="gdbmidebugger.pp"/>
<HasRegisterProc Value="True"/>
<UnitName Value="GDBMIDebugger"/>
</Item6>
<Item7>
@ -53,10 +54,12 @@ This debugger uses gdb and is based on gdb's mi interface."/>
</Item7>
<Item8>
<Filename Value="gdbmiserverdebugger.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="GDBMIServerDebugger"/>
</Item8>
<Item9>
<Filename Value="sshgdbmidebugger.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="SSHGDBMIDebugger"/>
</Item9>
<Item10>

3
components/lazdebuggergdbmi/lazdebuggergdbmi.pas
View File

@ -15,6 +15,9 @@ implementation
procedure Register;
begin
RegisterUnit('GDBMIDebugger', @GDBMIDebugger.Register);
RegisterUnit('GDBMIServerDebugger', @GDBMIServerDebugger.Register);
RegisterUnit('SSHGDBMIDebugger', @SSHGDBMIDebugger.Register);
end;
initialization

7
components/lazdebuggergdbmi/sshgdbmidebugger.pas
View File

@ -87,6 +87,8 @@ type
property InternalStartBreak;
end;
procedure Register;
implementation
type
@ -281,10 +283,11 @@ begin
end;
end;
initialization
procedure Register;
begin
RegisterPropertyEditor(TypeInfo(String), TSSHGDBMIDebuggerProperties, 'Note', TSSHGDBMINotePropertyEditor);
RegisterDebugger(TSSHGDBMIDebugger);
end;
end.

1
ide/main.pp
View File

@ -100,6 +100,7 @@ uses
// LRT stuff
Translations,
// debugger
LazDebuggerGdbmi,
RunParamsOpts, BaseDebugManager, DebugManager, debugger, DebuggerDlg,
DebugAttachDialog, DbgIntfBaseTypes, DbgIntfDebuggerBase,
// packager