The unpac monorepo manager self-hosting as a monorepo using unpac
fix atomic-locs/cmm.compilers.reference
+21
-21
+21
-21
testsuite/tests/atomic-locs/cmm.compilers.reference
+21
-21
testsuite/tests/atomic-locs/cmm.compilers.reference
···
3
3
(data)
4
4
(data
5
5
int 3063
6
-
"camlCmm.5":
7
-
addr "camlCmm.standard_atomic_get_271"
6
+
"camlCmm$5":
7
+
addr "camlCmm$standard_atomic_get_274"
8
8
int 72057594037927941)
9
9
(data
10
10
int 4087
11
-
"camlCmm.4":
11
+
"camlCmm$4":
12
12
addr "caml_curry3"
13
13
int 216172782113783815
14
-
addr "camlCmm.standard_atomic_cas_296")
15
-
(data int 3063 "camlCmm.3": addr "camlCmm.get_304" int 72057594037927941)
14
+
addr "camlCmm$standard_atomic_cas_299")
15
+
(data int 3063 "camlCmm$3": addr "camlCmm$get_307" int 72057594037927941)
16
16
(data
17
17
int 4087
18
-
"camlCmm.2":
18
+
"camlCmm$2":
19
19
addr "caml_curry2"
20
20
int 144115188075855879
21
-
addr "camlCmm.set_307")
21
+
addr "camlCmm$set_310")
22
22
(data
23
23
int 4087
24
-
"camlCmm.1":
24
+
"camlCmm$1":
25
25
addr "caml_curry3"
26
26
int 216172782113783815
27
-
addr "camlCmm.cas_311")
27
+
addr "camlCmm$cas_314")
28
28
(data int 5888 global "camlCmm" "camlCmm": int 1 int 1 int 1 int 1 int 1)
29
-
(data global "camlCmm.gc_roots" "camlCmm.gc_roots": addr "camlCmm" int 0)
30
-
(function camlCmm.standard_atomic_get_271 (r: val) (load_mut_atomic val r))
29
+
(data global "camlCmm$gc_roots" "camlCmm$gc_roots": addr "camlCmm" int 0)
30
+
(function camlCmm$standard_atomic_get_274 (r: val) (load_mut_atomic val r))
31
31
32
-
(function camlCmm.standard_atomic_cas_296 (r: val oldv: val newv: val)
32
+
(function camlCmm$standard_atomic_cas_299 (r: val oldv: val newv: val)
33
33
(extcall "caml_atomic_cas_field" r 1 oldv newv int,int,int,int->val))
34
34
35
-
(function camlCmm.get_304 (r: val) (load_mut_atomic val (+a r 8)))
35
+
(function camlCmm$get_307 (r: val) (load_mut_atomic val (+a r 8)))
36
36
37
-
(function camlCmm.set_307 (r: val v: val)
37
+
(function camlCmm$set_310 (r: val v: val)
38
38
(extcall "caml_atomic_exchange_field" r 3 v int,int,int->unit) 1)
39
39
40
-
(function camlCmm.cas_311 (r: val oldv: val newv: val)
40
+
(function camlCmm$cas_314 (r: val oldv: val newv: val)
41
41
(extcall "caml_atomic_cas_field" r 3 oldv newv int,int,int,int->val))
42
42
43
-
(function camlCmm.entry ()
44
-
(let standard_atomic_get "camlCmm.5"
43
+
(function camlCmm$entry ()
44
+
(let standard_atomic_get "camlCmm$5"
45
45
(extcall "caml_initialize" "camlCmm" standard_atomic_get ->unit))
46
-
(let standard_atomic_cas "camlCmm.4"
46
+
(let standard_atomic_cas "camlCmm$4"
47
47
(extcall "caml_initialize" (+a "camlCmm" 8) standard_atomic_cas ->unit))
48
-
(let get "camlCmm.3"
48
+
(let get "camlCmm$3"
49
49
(extcall "caml_initialize" (+a "camlCmm" 16) get ->unit))
50
-
(let set "camlCmm.2"
50
+
(let set "camlCmm$2"
51
51
(extcall "caml_initialize" (+a "camlCmm" 24) set ->unit))
52
-
(let cas "camlCmm.1"
52
+
(let cas "camlCmm$1"
53
53
(extcall "caml_initialize" (+a "camlCmm" 32) cas ->unit))
54
54
1)
55
55