-- Copyright 2002 Simon Wright -- This package is free software; you can redistribute it and/or -- modify it under terms of the GNU General Public License as -- published by the Free Software Foundation; either version 2, or -- (at your option) any later version. This package is distributed in -- the hope that it will be useful, but WITHOUT ANY WARRANTY; without -- even the implied warranty of MERCHANTABILITY or FITNESS FOR A -- PARTICULAR PURPOSE. See the GNU General Public License for more -- details. You should have received a copy of the GNU General Public -- License distributed with this package; see file COPYING. If not, -- write to the Free Software Foundation, 59 Temple Place - Suite -- 330, Boston, MA 02111-1307, USA. -- $Id: stream_test_support-tcd.ads,v 1.1.2.1 2002/12/29 17:21:20 simon Exp $ with BC.Containers.Collections.Dynamic; with BC.Support.Standard_Storage; package Stream_Test_Support.TCD is new Abstract_Base_Collections.Dynamic (Storage => BC.Support.Standard_Storage.Pool);