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
|
import "cffc.hff";
import "common.hff";
static const targs []const Targ = {
{
"amd64-sysv",
.ptrsize: 8,
.intsize: 4,
.i64align: 8,
.longsize: 8, .longalign: 8,
.llongsize: 8, .llongalign: 8,
.sizesize: 8,
.f64align: 8,
.valistsize: 24, .valistalign: 8,
.valistllvmty: "{ i32, i32, ptr, ptr }",
.charsigned: #t,
.shortenum: #f,
},
{
"amd64-windows",
.ptrsize: 8,
.intsize: 4,
.i64align: 8,
.longsize: 4, .longalign: 4,
.llongsize: 8, .llongalign: 8,
.sizesize: 8,
.f64align: 8,
.valistsize: 8, .valistalign: 8,
.valistllvmty: "ptr",
.charsigned: #t,
.shortenum: #f,
},
{
"aarch64-sysv",
.ptrsize: 8,
.intsize: 4,
.i64align: 8,
.longsize: 8, .longalign: 8,
.llongsize: 8, .llongalign: 8,
.sizesize: 8,
.f64align: 8,
.valistsize: 32, .valistalign: 8,
.valistllvmty: "{ ptr, ptr, ptr, i32, i32 }",
.charsigned: #f,
.shortenum: #f,
},
{
"i386-sysv",
.ptrsize: 4,
.intsize: 4,
.i64align: 4,
.longsize: 4, .longalign: 4,
.llongsize: 8, .llongalign: 4,
.sizesize: 4,
.f64align: 4,
.valistsize: 4, .valistalign: 4,
.valistllvmty: "ptr",
.charsigned: #t,
.shortenum: #f,
},
};
extern static g_targ Targ = {};
extern fn targ_ini(name *const u8) bool {
foreach(targ, i, targs[0::]) {
if streq(name, targ.name) {
g_targ = targs[i];
return #t;
}
}
return #f;
}
extern fn triple2targ(triple *const u8) *const u8 {
let arch = (do
let delim = strstr(triple, "-");
delim ? triple[0::delim - triple] : spanz(triple);
);
let rest = arch.#ptr + arch.#len;
defmacro archp(s) [ (arch.#len == (s.#len-1) and memcmp(arch.#ptr, s, arch.#len) == 0) ]
defmacro restp(s) [ (strstr(rest, s) != #null) ]
switch {
case archp("x86_64") and !restp("windows"); return "amd64-sysv";
case archp("x86_64") and restp("windows"); return "amd64-windows";
case archp("aarch64") and !restp("windows"); return "aarch64-sysv";
case (archp("i386") or archp("i686")) and !restp("windows"); return "i386-sysv";
}
return #null;
}
|
