aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code
diff options
context:
space:
mode:
authorGareth Rees2013-05-27 21:48:06 +0100
committerGareth Rees2013-05-27 21:48:06 +0100
commit30d713920bcb4bc4b5b7493fbd307f9f3d7ac09d (patch)
tree4a25790e070c5a812daaf80f721b34ebc2b241ee /mps/code
parent0a2fdbb3b0408e4890cfa91cdc2f97a92adf29d1 (diff)
downloademacs-30d713920bcb4bc4b5b7493fbd307f9f3d7ac09d.tar.gz
emacs-30d713920bcb4bc4b5b7493fbd307f9f3d7ac09d.zip
Add mvt to ap stress test.
Copied from Perforce Change: 182269 ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code')
-rw-r--r--mps/code/apss.c16
1 files changed, 13 insertions, 3 deletions
diff --git a/mps/code/apss.c b/mps/code/apss.c
index 3fcc7388437..c7444a53278 100644
--- a/mps/code/apss.c
+++ b/mps/code/apss.c
@@ -8,6 +8,7 @@
8 8
9#include "mpscmv.h" 9#include "mpscmv.h"
10#include "mpscmvff.h" 10#include "mpscmvff.h"
11#include "mpscmvt.h"
11#include "mpslib.h" 12#include "mpslib.h"
12#include "mpsavm.h" 13#include "mpsavm.h"
13 14
@@ -153,21 +154,30 @@ static void testInArena(mps_arena_t arena, mps_pool_debug_option_s *options)
153 154
154 /* IWBN to test MVFFDebug, but the MPS doesn't support debugging APs, */ 155 /* IWBN to test MVFFDebug, but the MPS doesn't support debugging APs, */
155 /* yet (MV Debug works here, because it fakes it through PoolAlloc). */ 156 /* yet (MV Debug works here, because it fakes it through PoolAlloc). */
156 printf("MVFF\n\n"); 157 printf("MVFF\n");
157 res = stress(mps_class_mvff(), randomSizeAligned, arena, 158 res = stress(mps_class_mvff(), randomSizeAligned, arena,
158 (size_t)65536, (size_t)32, sizeof(void *), TRUE, TRUE, TRUE); 159 (size_t)65536, (size_t)32, sizeof(void *), TRUE, TRUE, TRUE);
159 if (res == MPS_RES_COMMIT_LIMIT) return; 160 if (res == MPS_RES_COMMIT_LIMIT) return;
160 die(res, "stress MVFF"); 161 die(res, "stress MVFF");
161 printf("MV debug\n\n"); 162
163 printf("MV debug\n");
162 res = stress(mps_class_mv_debug(), randomSizeAligned, arena, 164 res = stress(mps_class_mv_debug(), randomSizeAligned, arena,
163 options, (size_t)65536, (size_t)32, (size_t)65536); 165 options, (size_t)65536, (size_t)32, (size_t)65536);
164 if (res == MPS_RES_COMMIT_LIMIT) return; 166 if (res == MPS_RES_COMMIT_LIMIT) return;
165 die(res, "stress MV debug"); 167 die(res, "stress MV debug");
166 printf("MV\n\n"); 168
169 printf("MV\n");
167 res = stress(mps_class_mv(), randomSizeAligned, arena, 170 res = stress(mps_class_mv(), randomSizeAligned, arena,
168 (size_t)65536, (size_t)32, (size_t)65536); 171 (size_t)65536, (size_t)32, (size_t)65536);
169 if (res == MPS_RES_COMMIT_LIMIT) return; 172 if (res == MPS_RES_COMMIT_LIMIT) return;
170 die(res, "stress MV"); 173 die(res, "stress MV");
174
175 printf("MVT\n");
176 res = stress(mps_class_mvt(), randomSizeAligned, arena,
177 (size_t)8, (size_t)32, (size_t)65536, (mps_word_t)4,
178 (mps_word_t)50);
179 if (res == MPS_RES_COMMIT_LIMIT) return;
180 die(res, "stress MVT");
171} 181}
172 182
173 183