From a159a252dd98e50f91c835201acbb82941d5e4e4 Mon Sep 17 00:00:00 2001
From: Zackery Spytz <zspytz@gmail.com>
Date: Thu, 14 Feb 2019 02:21:36 -0700
Subject: [OCaml] Fix the dynamic_cast test

Add out typemaps for SWIGTYPE *DYNAMIC and SWIGTYPE &DYNAMIC.

Add dynamic_cast_runme.ml.
---
 Lib/ocaml/typemaps.i | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Lib/ocaml')

diff --git a/Lib/ocaml/typemaps.i b/Lib/ocaml/typemaps.i
index 4475707d6..a781838ca 100644
--- a/Lib/ocaml/typemaps.i
+++ b/Lib/ocaml/typemaps.i
@@ -307,6 +307,11 @@ SIMPLE_MAP(unsigned long long,caml_val_ulong,caml_long_val);
     $2 = ($2_ltype) caml_string_len($input);
 }
 
+%typemap(out) SWIGTYPE *DYNAMIC, SWIGTYPE &DYNAMIC {
+    swig_type_info *ty = SWIG_TypeDynamicCast($1_descriptor, (void **)&$1);
+    $result = SWIG_Ocaml_ptr_to_val("create_$ntype_from_ptr", (void *)$1, ty);
+}
+
 /* Array reference typemaps */
 %apply SWIGTYPE & { SWIGTYPE ((&)[ANY]) }
 %apply SWIGTYPE && { SWIGTYPE ((&)[ANY]) }
-- 
cgit v1.2.1