From e92f0601a768de02fb53ca0a12d4e3fe70ed9897 Mon Sep 17 00:00:00 2001 From: Art Yerkes Date: Sat, 25 Oct 2003 03:22:51 +0000 Subject: [PATCH] Added convert_c_obj function. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5201 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- SWIG/Lib/ocaml/swig.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SWIG/Lib/ocaml/swig.ml b/SWIG/Lib/ocaml/swig.ml index 3e9fd6f40..ff58fc575 100644 --- a/SWIG/Lib/ocaml/swig.ml +++ b/SWIG/Lib/ocaml/swig.ml @@ -105,7 +105,7 @@ let _ = Callback.register "caml_director_get_self" director_get_self let addr_of obj = (invoke obj) "&" C_void let _ = Callback.register "caml_obj_ptr" addr_of - +let convert_c_obj a = Obj.magic a let make_float f = C_float f let make_double f = C_double f