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

* Fixed classof to object cast

Browse Source 
git-svn-id: trunk@4440 -
This commit is contained in:
marc 2003-07-31 00:42:20 +00:00
parent 8c1610c08d
commit b2cddc6aae
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/basedebugmanager.pas
View File

@ -109,7 +109,7 @@ var
procedure RegisterDebugger(const ADebuggerClass: TDebuggerClass);
begin
MDebuggerClasses.AddObject(ADebuggerClass.ClassName, TObject(ADebuggerClass));
MDebuggerClasses.AddObject(ADebuggerClass.ClassName, TObject(Pointer(ADebuggerClass)));
end;
@ -148,6 +148,9 @@ end.
{ =============================================================================
$Log$
Revision 1.17 2003/07/31 00:42:20 marc
* Fixed classof to object cast
Revision 1.16 2003/07/30 23:15:38 marc
* Added RegisterDebugger