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
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
/* $Id: //info.ravenbrook.com/project/mps/master/test/test/testlib/versind.h#3 $
 *
 * If you define mps_ symbols here, you also need to list them in
 * MMQA_harness!testlib:assumed.
 */


/* In release.dylan.honeybee, space was renamed arena in lots of functions
   We'll use the "destroy" functions to test which versions are available
*/

#define mmqaArenaSIZE ((size_t)1<<30)

#ifdef MMQA_DEFINED_mps_arena_destroy

#ifdef MMQA_DEFINED_mps_space_destroy

/* bizarrely, both versions seem to be present! */

#else

/* need to define "space" variants */
#define mps_space_clamp(a)     mps_arena_clamp(a)
#define mps_space_release(a)   mps_arena_release(a)
#define mps_space_park(a)      mps_arena_park(a)
#define mps_space_collect(a)   mps_arena_collect(a)
#define mps_space_destroy(a)   mps_arena_destroy(a)
#define mps_space_reserved(a)  mps_arena_reserved(a)
#define mps_space_committed(a) mps_arena_committed(a)
#define mps_space_t mps_arena_t
#include "mpsavm.h"
#define mps_space_create(space) \
  mps_arena_create(space, mps_arena_class_vm(), mmqaArenaSIZE)

#endif

#else

#ifdef MMQA_DEFINED_mps_space_destroy

/* need to define "arena" variants */
#define mps_arena_clamp(a)     mps_space_clamp(a)
#define mps_arena_release(a)   mps_space_release(a)
#define mps_arena_park(a)      mps_space_park(a)
#define mps_arena_collect(a)   mps_space_collect(a)
#define mps_arena_destroy(a)   mps_space_destroy(a)
#define mps_arena_reserved(a)  mps_space_reserved(a)
#define mps_arena_committed(a) mps_space_committed(a)
#define mps_arena_t mps_space_t

#else

/* Neither exists -- error! */
#error Could find either mps_arena_destroy or mps_space_destroy

#endif

#endif


/* Before release.epcore.brisling / release.dylan.kinglet
   there was no spare committed fund
*/

#ifndef MMQA_DEFINED_mps_arena_spare_committed
#define mps_arena_spare_committed(a) ((size_t) 0)
#endif

#ifndef MMQA_DEFINED_mps_arena_spare_commit_limit
#define mps_arena_spare_commit_limit(a) ((size_t) 0)
#endif

#ifndef MMQA_DEFINED_mps_arena_spare_commit_limit_set
#define mps_arena_spare_commit_limit_set(a, l) \
 asserts(0, \
 "MPS interface versions before HU do not support the spare committed fund")
#endif


/*
  The following defs can't be done automatically. I don't think
  this is a problem, but here they are just in case.

  Before modern interface;
   - no closure arguments for mps_root_create_reg
   - no rank argument for mps_ap_create (ever)

  #define mps_root_create_reg(ro, sp, ra, rm, thr, scan, p, _s) \
   (mps_root_create_reg)(ro, sp, ra, rm, thr, scan, p)

  #define mps_ap_create(a, p, _r) \
   (mps_ap_create)(a, p)
*/


#ifndef MMQA_DEFINED_mps_chain_create


#define mps_chain_t void*

typedef struct mps_gen_param_s {
  size_t mps_capacity;
  double mps_mortality;
} mps_gen_param_s;

#define mps_chain_create(p, a, s, par) (*(p) = NULL, (void)(par), MPS_RES_OK)
#define mps_chain_destroy(p) do {} while(0)

#define mmqa_pool_create_chain(pool_o, arena, class, format, chain) \
  mps_pool_create(pool_o, arena, class, format)


#else


#define mmqa_pool_create_chain(pool_o, arena, class, format, chain) \
  mps_pool_create(pool_o, arena, class, format, chain)


#endif