mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-23 21:13:52 -08:00
Code Issues Projects Releases Wiki Activity

No assert

Browse source 
Copied from Perforce
 Change: 21400
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 2000-08-01 17:03:53 +01:00
parent b9e514f6c4
commit daaf0cb524
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
mps/src/amsss.c
View file

@ -1,7 +1,7 @@
/* impl.c.amsss: POOL CLASS AMS STRESS TEST
*
* $HopeName: MMsrc!amsss.c(trunk.9) $
* Copyright (C) 1998. Harlequin Group plc. All rights reserved.
* $HopeName: MMsrc!amsss.c(trunk.10) $
* Copyright (C) 1998 Harlequin Limited. All rights reserved.
*
* .design: Adapted from amcss.c, but not counting collections, just
* total size of objects allocated (because epoch doesn't increment
@ -21,7 +21,6 @@
#include <stdarg.h>
#include <math.h>
#include <string.h>
#include <assert.h>
#define exactRootsCOUNT 50
@ -109,15 +108,15 @@ static void *test(void *arg, size_t s)
(unsigned long)totalSize, objs);
fflush(stdout);
for(i = 0; i < exactRootsCOUNT; ++i)
assert(exactRoots[i] == objNULL ||
dylan_check(exactRoots[i]));
cdie(exactRoots[i] == objNULL || dylan_check(exactRoots[i]),
"all roots check");
}
r = (size_t)rnd();
if(r & 1) {
i = (r >> 1) % exactRootsCOUNT;
if(exactRoots[i] != objNULL)
assert(dylan_check(exactRoots[i]));
cdie(dylan_check(exactRoots[i]), "dying root check");
exactRoots[i] = make();
if(exactRoots[(exactRootsCOUNT-1) - i] != objNULL)
dylan_write(exactRoots[(exactRootsCOUNT-1) - i],
@ -151,11 +150,13 @@ static void *test(void *arg, size_t s)
}
int main(void)
int main(int argc, char **argv)
{
mps_arena_t arena;
mps_thr_t thread;
void *r;
randomize(argc, argv);
die(mps_arena_create(&arena, mps_arena_class_vm(), testArenaSIZE),
"arena_create");