paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-27 09:09:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed wrong destroy overrides (gave errors with the new compiler)

Browse Source
This commit is contained in:
peter 1999-05-14 17:52:53 +00:00
parent 24ad159d09
commit 34dc9f8bc6
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fcl/inc/classesh.inc
View File

@ -163,7 +163,7 @@ type
FLock: TRTLCriticalSection;
public
constructor Create;
destructor Destroy; override;
destructor Destroy; { override; }
procedure Add(Item: Pointer);
procedure Clear;
function LockList: TList;
@ -838,7 +838,7 @@ type
property Terminated: Boolean read FTerminated;
public
constructor Create(CreateSuspended: Boolean);
destructor Destroy; override;
destructor Destroy; { override; }
procedure Resume;
procedure Suspend;
procedure Terminate;
@ -977,7 +977,7 @@ var
RegisterNoIconProc: procedure(ComponentClasses: array of TComponentClass) = nil;
RegisterNonActiveXProc: procedure(ComponentClasses: array of TComponentClass;
AxRegType: TActiveXRegType) = nil;
CurrentGroup: Integer = -1;
CurrentGroup: Integer = -1;
CreateVCLComObjectProc: procedure(Component: TComponent) = nil;
}
@ -1065,7 +1065,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
{
$Log$
Revision 1.11 1999-04-09 12:13:30 michael
Revision 1.12 1999-05-14 17:52:53 peter
* removed wrong destroy overrides (gave errors with the new compiler)
Revision 1.11 1999/04/09 12:13:30 michael
+ Changed TBits to TbitsPlus from Michael A. Hess (renamed to Tbits)
Revision 1.10 1998/10/30 14:52:49 michael