diff options
author | Vincent Laviron <vincent.laviron@gmail.com> | 2021-04-15 00:19:12 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2021-04-15 00:19:12 +0200 |
commit | 2fee7a8e547af5a8bf4ad2ce948bd979e435acaf (patch) | |
tree | 7da3f2a4c98ebfc4b98bc3e6ceb4e4884758b287 /testsuite/tests/translprim/sendcache.ml | |
parent | 06735ef77e0ec65f33a00bd74be6e0f2b64e83f3 (diff) | |
download | ocaml-2fee7a8e547af5a8bf4ad2ce948bd979e435acaf.tar.gz |
Fix bytecode compilation of Lsend(Cached, _) (#10325)
Diffstat (limited to 'testsuite/tests/translprim/sendcache.ml')
-rw-r--r-- | testsuite/tests/translprim/sendcache.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/translprim/sendcache.ml b/testsuite/tests/translprim/sendcache.ml new file mode 100644 index 0000000000..0e49b4caae --- /dev/null +++ b/testsuite/tests/translprim/sendcache.ml @@ -0,0 +1,11 @@ +(* TEST *) + +(* Example from PR #10325. + This triggered a segfault in bytecode, but only if the code was not compiled + in debug mode (the offending code is actually in camlinternalOO.ml, and is + used only when optimising). + *) + +let x = object method g = "abc" end +let s = (object method f = x#g end)#f +let () = prerr_endline s |