Skip to content

Commit 816e6ae

Browse files
committed
OxCaml: test recursive value with unboxed contents
The primitive caml_alloc_mixed_dummy is used in this case.
1 parent 3749b16 commit 816e6ae

File tree

4 files changed

+16
-1
lines changed

4 files changed

+16
-1
lines changed
Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
disable

compiler/tests-oxcaml/misc/dune

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
(env
2+
(_
3+
(flags
4+
(:standard
5+
(-w -32-69)))))
6+
7+
(tests
8+
(names test)
9+
(build_if %{oxcaml_supported})
10+
(modes byte js wasm))

compiler/tests-oxcaml/misc/test.ml

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
2+
type t = { x : t; y : float32# }
3+
4+
let rec x = { x; y = #0.s }

toplevel/examples/lwt_toplevel/dune

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -158,7 +158,7 @@
158158
"%+(jsoo_runtime)"
159159
-r
160160
js_of_ocaml-ppx.as-lib)
161-
(run tr -d "\r")
161+
(run tr -d \r)
162162
(with-accepted-exit-codes
163163
(or 0 1)
164164
(run grep -v ^$))))))

0 commit comments

Comments
 (0)