jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #1470 from ZackerySpytz/OCaml-dynamic_cast-test

Browse source 
[OCaml] Fix the dynamic_cast test
This commit is contained in:
William S Fulton 2019-02-15 19:10:15 +00:00 • committed by GitHub
commit 1f4b3a4553
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Lib/ocaml/typemaps.i
View file

@ -305,6 +305,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]) }