1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 06:50:46 -08:00
emacs/mps/test/conerr/4.c
Nick Barnes 7acfca905d Branch imports for masters.
Copied from Perforce
 Change: 23678
 ServerID: perforce.ravenbrook.com
2001-10-31 14:40:56 +00:00

39 lines
631 B
C

/*
TEST_HEADER
id = $HopeName$
summary = destroy a space which contains a pool
language = c
link = testlib.o
END_HEADER
*/
#include "testlib.h"
#include "mpscmv.h"
static void test(void)
{
mps_space_t space;
mps_pool_t pool;
size_t extendBy;
size_t avgSize;
size_t maxSize;
extendBy = (size_t) 4096;
avgSize = (size_t) 32;
maxSize = (size_t) 65536;
cdie(mps_space_create(&space), "create space");
cdie(
mps_pool_create(&pool, space, mps_class_mv(),
extendBy, avgSize, maxSize),
"create pool");
mps_space_destroy(space);
comment("Destroy space.");
}
int main(void)
{
easy_tramp(test);
return 0;
}