1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
/* 
TEST_HEADER
 id = $HopeName: MMQA_test_function!121.c(trunk.2) $
 summary = very small arenas
 language = c
 link = testlib.o
OUTPUT_SPEC
 result = pass
END_HEADER
*/

#include "testlib.h"
#include "mpsavm.h"
#include "mpscmv.h"


void *stackpointer;

mps_arena_t arena;
mps_thr_t thread;
mps_pool_t pool;
mps_pool_t pools[100];


static void test(void)
{
  int i;
  for (i = 64; i >= 0; i--) {
    mps_res_t res;

    comment("Trying arena of %d kB.", i);
    res = mps_arena_create(&arena, mps_arena_class_vm(), (size_t)(1024*i));
    if (res == MPS_RES_OK) {
      res = mps_thread_reg(&thread, arena);
      if (res == MPS_RES_OK) {
        mps_thread_dereg(thread);
      } else {
        if (res != MPS_RES_MEMORY) {
          error("Wrong error code, %d, for mps_thread_reg.", res);
        }
      }
      mps_arena_destroy(arena);
    } else {
      report_res("arena_create", res);
      if (res != MPS_RES_MEMORY) {
        error("Wrong error code.");
      }
    }
  }
}


int main(void)
{
 void *m;
 stackpointer=&m; /* hack to get stack pointer */

 easy_tramp(test);
 pass();
 return 0;
}