paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 01:26:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed create, virtual constructors makes no sense

Browse Source 
git-svn-id: trunk@413 -
This commit is contained in:
lazarus 2001-11-12 19:28:23 +00:00
parent 2faaa339ba
commit 2020722ef8
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/debugger.pp
View File

@ -67,7 +67,7 @@ type
procedure SetFileName(const Value: String); virtual;
procedure SetState(const Value: TDBGState);
public
constructor Create; virtual;
constructor Create;
destructor Destroy; override;
procedure Init; virtual; // Initializes the debugger
@ -272,6 +272,9 @@ end;
end.
{ =============================================================================
$Log$
Revision 1.5 2001/11/12 19:28:23 lazarus
MG: fixed create, virtual constructors makes no sense
Revision 1.4 2001/11/06 23:59:13 lazarus
MWE: + Initial breakpoint support
+ Added exeption handling on process.free

5
debugger/gdbdebugger.pp
View File

@ -54,7 +54,7 @@ type
function GetFlags: TDBGCommands; override;
function RequestCommand(const ACommand: TDBGCommand; const AParams: array of const): Boolean; override;
public
constructor Create; override;
constructor Create;
destructor Destroy; override;
procedure Init; override; // Initializes external debugger
@ -292,6 +292,9 @@ end;
end.
{ =============================================================================
$Log$
Revision 1.3 2001/11/12 19:28:23 lazarus
MG: fixed create, virtual constructors makes no sense
Revision 1.2 2001/11/06 23:59:13 lazarus
MWE: + Initial breakpoint support
+ Added exeption handling on process.free