diff --git a/mps/src/finalcv.c b/mps/src/finalcv.c index 4cee458ce6b..ddaaef0ce2e 100644 --- a/mps/src/finalcv.c +++ b/mps/src/finalcv.c @@ -1,6 +1,6 @@ /* impl.c.finalcv: FINALIZATION COVERAGE TEST * - * $HopeName: MMsrc!finalcv.c(trunk.8) $ + * $HopeName: MMsrc!finalcv.c(trunk.9) $ * Copyright (C) 1996,1997, 1998 Harlequin Group, all rights reserved * * READERSHIP @@ -28,20 +28,22 @@ /* What does the next line mean? @@@@ */ /* .hack.order.1, .hack.order.2 */ +#include +#include +#include #include "testlib.h" #include "mps.h" #include "mpscamc.h" #include "mpsavm.h" #include "fmtdy.h" - +#include "mpstd.h" +#ifdef MPS_OS_W3 +#include "mpsw3.h" +#endif #ifdef MPS_OS_SU #include "ossu.h" #endif -#include -#include -#include - #define testArenaSIZE ((size_t)16<<20) #define rootCOUNT 20 diff --git a/mps/src/qs.c b/mps/src/qs.c index 82bce5a746b..b2f1dc0a5c2 100644 --- a/mps/src/qs.c +++ b/mps/src/qs.c @@ -1,8 +1,8 @@ -/* impl.c.qs: QUICKSORT +/* impl.c.qs: QUICKSORT * - * $HopeName: MMsrc!qs.c(trunk.12) $ + * $HopeName: MMsrc!qs.c(trunk.13) $ * - * Copyright (C) 1995,1996, 1998 Harlequin Group, all rights reserved + * Copyright (C) 1995, 1996, 1998 Harlequin Group, all rights reserved * * The purpose of this program is to act as a "real" client of the MM. * It is a test, but (hopefully) less contrived than some of the other @@ -19,22 +19,24 @@ * list length 1000 makes 40404 conses (by experiment). * * Some registers are not nulled out when they could be. - * */ +#include +#include +#include #include "testlib.h" #include "mps.h" #include "mpsavm.h" #include "mpscamc.h" #include "mpscmv.h" +#include "mpstd.h" +#ifdef MPS_OS_W3 +#include "mpsw3.h" +#endif #ifdef MPS_OS_SU #include "ossu.h" #endif -#include -#include -#include - #define testArenaSIZE ((size_t)16<<20) @@ -548,5 +550,6 @@ int main(void) mps_tramp(&r, &go, NULL, 0); mps_arena_destroy(arena); + fprintf(stderr, "\nConclusion: Failed to find any defects.\n"); return 0; }