From ed08b371779004cd6272871deccf59bbdb56d249 Mon Sep 17 00:00:00 2001 From: Pekka Pirinen Date: Mon, 21 Aug 2000 18:07:58 +0100 Subject: [PATCH] Remove arenaan Copied from Perforce Change: 21452 ServerID: perforce.ravenbrook.com --- mps/src/poolncv.c | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/mps/src/poolncv.c b/mps/src/poolncv.c index d45547c0603..2d905adcf6b 100644 --- a/mps/src/poolncv.c +++ b/mps/src/poolncv.c @@ -1,17 +1,13 @@ /* impl.c.poolncv: NULL POOL COVERAGE TEST * - * $HopeName: MMsrc!poolncv.c(trunk.7) $ - * Copyright (C) 1995,1997 Harlequin Group, all rights reserved + * $HopeName: MMsrc!poolncv.c(trunk.8) $ + * Copyright (C) 1997 Harlequin Limited. All rights reserved. */ -#include #include "mpm.h" #include "pooln.h" -#include "mpsaan.h" +#include "mpsavm.h" #include "testlib.h" -#ifdef MPS_OS_SU -#include "ossu.h" -#endif static Bool testit(ArenaClass class, ...) @@ -44,7 +40,7 @@ static Bool testit(ArenaClass class, ...) int main(void) { - if(testit((ArenaClass)mps_arena_class_an(), (Size)1000)) { + if(testit((ArenaClass)mps_arena_class_vm(), (Size)200000)) { fprintf(stderr, "Conclusion: Defects found.\n"); } else { fprintf(stderr, "Conclusion: Failed to find any defects.\n");