diff options
| author | Gareth Rees | 2013-05-27 21:48:06 +0100 |
|---|---|---|
| committer | Gareth Rees | 2013-05-27 21:48:06 +0100 |
| commit | 30d713920bcb4bc4b5b7493fbd307f9f3d7ac09d (patch) | |
| tree | 4a25790e070c5a812daaf80f721b34ebc2b241ee /mps/code | |
| parent | 0a2fdbb3b0408e4890cfa91cdc2f97a92adf29d1 (diff) | |
| download | emacs-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.c | 16 |
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 | ||