Changeset 117 for trunk/Packages/Common/UPool.pas

Timestamp:

Oct 23, 2022, 9:09:21 PM (19 months ago)

Author:

chronos

Message:

• Modified: Update Common package.

File:

• trunk/Packages/Common/UPool.pas (modified) (2 diffs)

trunk/Packages/Common/UPool.pas

@@ -106 +106 @@
 constructor TThreadedPool.Create;
 begin
-  inherited Create;
+  inherited;
   Lock := TCriticalSection.Create;
 end;
@@ -114 +114 @@
   TotalCount := 0;
   Lock.Free;
-  inherited Destroy;
+  inherited;
 end;