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
|
open Cil_types
let mach =
{
version = "foo";
compiler = "bar";
sizeof_short = 2;
sizeof_int = 3;
sizeof_long = 4;
sizeof_longlong = 8;
sizeof_ptr = 4;
sizeof_float = 4;
sizeof_double = 8;
sizeof_longdouble = 12;
sizeof_void = 1;
sizeof_fun = 1;
size_t = "unsigned long";
wchar_t = "int";
ptrdiff_t = "int";
alignof_short = 2;
alignof_int = 3;
alignof_long = 4;
alignof_longlong = 4;
alignof_ptr = 4;
alignof_float = 4;
alignof_double = 4;
alignof_longdouble = 4;
alignof_str = 1;
alignof_fun = 1;
alignof_aligned= 16;
char_is_unsigned = false;
const_string_literals = true;
little_endian = true;
underscore_name = false ;
has__builtin_va_list = true;
__thread_is_keyword = true;
}
let mach2 = { mach with compiler = "baz" }
(* First run : register [mach] under name [custom].
Second run :
- register [mach] under name [custom] again. This must work.
- then register [mach2] under name [custom]. This must result in an error.
*)
let () =
let ran = ref false in
Cmdline.run_after_loading_stage
(fun () ->
Kernel.result "Registering machdep 'mach' as 'custom'";
File.new_machdep "custom" mach;
if !ran then begin
Kernel.result "Trying to register machdep 'mach2' as 'custom'";
File.new_machdep "custom" mach2
end
else ran := true
)
|
