paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 12:39:26 +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 *^^^* } {%endregion *^^^* TGDBMINameValueList and Parsers *^^^* }
procedure Register;
implementation implementation
var var
@ -12969,8 +12971,12 @@ begin
else Result := Format('%s: %s', [ClassName, FExpression]); else Result := Format('%s: %s', [ClassName, FExpression]);
end; end;
initialization procedure Register;
begin
RegisterDebugger(TGDBMIDebugger); RegisterDebugger(TGDBMIDebugger);
end;
initialization
DBGMI_QUEUE_DEBUG := DebugLogger.RegisterLogGroup('DBGMI_QUEUE_DEBUG' {$IFDEF DBGMI_QUEUE_DEBUG} , True {$ENDIF} ); 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} ); 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} ); 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; property InternalStartBreak;
end; end;
procedure Register;
implementation implementation
resourcestring resourcestring
@ -192,9 +194,10 @@ begin
end; end;
procedure Register;
initialization begin
RegisterDebugger(TGDBMIServerDebugger); RegisterDebugger(TGDBMIServerDebugger);
end;
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> </Item5>
<Item6> <Item6>
<Filename Value="gdbmidebugger.pp"/> <Filename Value="gdbmidebugger.pp"/>
<HasRegisterProc Value="True"/>
<UnitName Value="GDBMIDebugger"/> <UnitName Value="GDBMIDebugger"/>
</Item6> </Item6>
<Item7> <Item7>
@ -53,10 +54,12 @@ This debugger uses gdb and is based on gdb's mi interface."/>
</Item7> </Item7>
<Item8> <Item8>
<Filename Value="gdbmiserverdebugger.pas"/> <Filename Value="gdbmiserverdebugger.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="GDBMIServerDebugger"/> <UnitName Value="GDBMIServerDebugger"/>
</Item8> </Item8>
<Item9> <Item9>
<Filename Value="sshgdbmidebugger.pas"/> <Filename Value="sshgdbmidebugger.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="SSHGDBMIDebugger"/> <UnitName Value="SSHGDBMIDebugger"/>
</Item9> </Item9>
<Item10> <Item10>

3
components/lazdebuggergdbmi/lazdebuggergdbmi.pas
View File

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

7
components/lazdebuggergdbmi/sshgdbmidebugger.pas
View File

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

1
ide/main.pp
View File

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