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
|
/* --------------------------------------------------------------------------
*
* (c) The GHC Team, 1992-2004
*
* mkDerivedConstants.c
*
* Basically this is a C program that extracts information from the C
* declarations in the header files (primarily struct field offsets)
* and generates a header file that can be #included into non-C source
* containing this information.
*
* ------------------------------------------------------------------------*/
#include <stdio.h>
#include "gmp.h"
#define str(a,b) #a "_" #b
#define OFFSET(s_type, field) ((size_t)&(((s_type*)0)->field))
/* struct_size(TYPE)
*
*/
#define def_size(str, size) \
printf("#define SIZEOF_" str " %lu\n", (unsigned long)size);
#define struct_size(s_type) \
def_size(#s_type, sizeof(s_type));
/* struct_field(TYPE, FIELD)
*
*/
#define def_offset(str, offset) \
printf("#define OFFSET_" str " %d\n", (int)(offset));
#define field_offset_(str, s_type, field) \
def_offset(str, OFFSET(s_type,field));
#define field_offset(s_type, field) \
field_offset_(str(s_type,field),s_type,field);
#define field_type_(str, s_type, field) \
printf("#define REP_" str " b"); \
printf("%lu\n", (unsigned long)sizeof (__typeof__(((((s_type*)0)->field)))) * 8);
#define field_type(s_type, field) \
field_type_(str(s_type,field),s_type,field);
/* An access macro for use in C-- sources. */
#define struct_field_macro(str) \
printf("#define " str "(__ptr__) REP_" str "[__ptr__+OFFSET_" str "]\n");
/* Outputs the byte offset and MachRep for a field */
#define struct_field(s_type, field) \
field_offset(s_type, field); \
field_type(s_type, field); \
struct_field_macro(str(s_type,field))
int
main(int argc, char *argv[])
{
printf("/* This file is created automatically. Do not edit by hand.*/\n\n");
struct_size(MP_INT);
struct_field(MP_INT,_mp_alloc);
struct_field(MP_INT,_mp_size);
struct_field(MP_INT,_mp_d);
def_size("MP_LIMB_T", sizeof(mp_limb_t));
return 0;
}
|
