X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Fidpool.pas;h=14bd43c1a2f4f792babd1720a80e94a9bf2a8cbd;hb=6107d1bd653921f093e4d2c81f2905f4e520f6d4;hp=7817cc160b259ff91a7eef539205e1276ed1b746;hpb=30f7ce6315b82400548455c6872a271dc1f00f50;p=d2df-sdl.git diff --git a/src/shared/idpool.pas b/src/shared/idpool.pas index 7817cc1..14bd43c 100644 --- a/src/shared/idpool.pas +++ b/src/shared/idpool.pas @@ -1,9 +1,8 @@ -(* Copyright (C) DooM 2D:Forever Developers +(* Copyright (C) Doom 2D: Forever Developers * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. + * the Free Software Foundation, version 3 of the License ONLY. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of @@ -14,15 +13,21 @@ * along with this program. If not, see . *) {$INCLUDE a_modes.inc} -{$DEFINE IDPOOL_CHECKS} +{.$DEFINE IDPOOL_CHECKS} unit idpool; interface +{$IFDEF USE_MEMPOOL} +uses + mempool; +{$ENDIF} + + // ////////////////////////////////////////////////////////////////////////// // type //TODO: implement getting n sequential ids - TIdPool = class(TObject) + TIdPool = class{$IFDEF USE_MEMPOOL}(TPoolObject){$ENDIF} public const InvalidId = $ffffffff;