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
/* $Id: //info.ravenbrook.com/project/mps/master/test/test/testlib/lofmt.h#4 $
lofmt.h
   A format for the LO pool class. We have to allow for copying
   and forwarding, but scan should never be called.
*/

#ifndef lofmt_h
#define lofmt_h

#include "testlib.h"

extern int alloclocomments;
extern int allowlocopies;

/* the object format is visible so tests that want to
   can hack around with it
*/

#define MAXSIZE 10000

enum {LOpadsingle=(int) 0xBAD51497, LOpadmany=(int) 0xBAD3A41,
      LOheart=(int) 0x8EA62, LOdata=(int) 0x7EAFDA2A};

typedef union locell locell;

typedef int tag;

struct lopadsingle {tag tag;};

struct lopadmulti {tag tag; mps_addr_t next;};

struct loheart {tag tag; size_t size; mps_addr_t obj;};

struct lodata
{
 tag tag;
 size_t size;
 long int id;
 long int copycount;
 size_t len;
 char data[MAXSIZE];
};

union locell
{
 tag tag;
 struct lopadsingle padsingle;
 struct lopadmulti  padmulti;
 struct loheart     heart;
 struct lodata      data;
};

extern struct mps_fmt_A_s fmtLO;

locell *alloclo(mps_ap_t ap, size_t bytes);

long int getloid(locell *obj);
long int getlocopycount(locell *obj);
size_t getlosize(locell *obj);

#endif