mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-15 15:50:57 -08:00
Code Issues Projects Releases Wiki Activity

Make the arena small enough to work on deja-vu

Browse source 
Copied from Perforce
 Change: 18808
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 1997-09-24 10:47:01 +01:00
parent d0228c2696
commit 2bd09e402d
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
mps/src/arenacv.c
View file

@ -1,6 +1,6 @@
/* impl.c.arenacv: ARENA COVERAGE TEST
*
* $HopeName: MMsrc!arenacv.c(trunk.4) $
* $HopeName: MMsrc!arenacv.c(trunk.5) $
* Copyright (C) 1997 Harlequin Group, all rights reserved
*
* .readership: MPS developers
@ -116,17 +116,20 @@ static void testit(ArenaClass class, ...)
}
#define TEST_ARENA_SIZE ((Size)16<<20)
int main(void)
{
void *block;
testit((ArenaClass)mps_arena_class_vm(), ARENA_SIZE);
testit((ArenaClass)mps_arena_class_vm(), TEST_ARENA_SIZE);
testit((ArenaClass)mps_arena_class_an(), ARENA_SIZE);
testit((ArenaClass)mps_arena_class_an(), TEST_ARENA_SIZE);
block = malloc(ARENA_SIZE);
block = malloc(TEST_ARENA_SIZE);
die(block == NULL ? ResFAIL : ResOK, "malloc");
testit((ArenaClass)mps_arena_class_cl(), ARENA_SIZE, (Addr)block);
testit((ArenaClass)mps_arena_class_cl(), TEST_ARENA_SIZE, (Addr)block);
fprintf(stderr, "Conclusion: Failed to find any defects.\n");
return 0;