/* 
TEST_HEADER
 id = $HopeName$
 summary = EPVM time allocations
 language = c
 link = testlib.o epvmfmt.o
END_HEADER
*/

#include "testlib.h"
#include "mpscepvm.h"
#include "mpsavm.h"
#include "epvmfmt.h"
#include <time.h>

#define MAX_SAVE 1
#define INIT_SAVE 0 

void *stackpointer;

static void timealloc(mps_pool_t pool, mps_ap_t ap, size_t min, size_t max, size_t total) {
 int i, j;
 clock_t t0, t1;
 int secs;
 size_t size;
 psobj *a;

 mps_epvm_save(pool);
 t0 = clock();
 while (total>0) {
  size = ranrange(min, max+1);
  if (size > total) {
   size = total;
  }
  a = allocepvm(ap, size);
  total-=size;
 }
 t1 = clock();
 secs = 100*(t1-t0)/CLOCKS_PER_SEC;
 comment("%i, %i, %i", total*8, (max+1)*4, secs);
 mps_epvm_restore(pool, 0);

};

static void test(void)
{
 mps_arena_t arena;
 mps_thr_t thread;
 mps_fmt_t format;
 mps_pool_t pool1;
 mps_ap_t ap1s;
 
 size_t size;
 size_t avgsize;

 asserts(clock() != -1, "processor time not available");

/* create an arena that can't grow beyond 64M */

 cdie(mps_arena_create(&arena, mps_arena_class_vm(), (size_t) (1024*1024*64)),
  "create arena");

 cdie(mps_thread_reg(&thread, arena), "register thread");

 cdie(mps_fmt_create_A(&format, arena, &fmtepvm), "create format");

 cdie(mps_pool_create(&pool1, arena, mps_class_epvm(),
   format, MAX_SAVE, INIT_SAVE), "create pool1");
 
 cdie(mps_ap_create(&ap1s, pool1, 0), "create ap1s");

 size = 1024ul*1024ul*10ul/8; /* 10 Megabytes */

 for (avgsize=1; avgsize<128; avgsize+=1) {
  timealloc(pool1, ap1s, 1, 2*avgsize-1, size);
 }
 
 mps_ap_destroy(ap1s);
 mps_pool_destroy(pool1);
 mps_fmt_destroy(format);
 mps_thread_dereg(thread);
 mps_arena_destroy(arena);
 comment("Destroyed arena");

}

int main(void) {
 void *m;
 stackpointer=&m;

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