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

Merge branch 'ZackerySpytz-OCaml-define-CAML_NAME_SPACE'

Browse source 
* ZackerySpytz-OCaml-define-CAML_NAME_SPACE:
  [OCaml] Define CAML_NAME_SPACE before including caml/ headers
This commit is contained in:
William S Fulton 2019-01-31 07:32:12 +00:00
commit 1069cfbfd5
4 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Lib/ocaml/cstring.i
View file

@ -108,7 +108,7 @@
%define %cstring_mutable(TYPEMAP,...)
%typemap(in) TYPEMAP {
char *t = String_val($input);
int n = string_length($input);
int n = caml_string_length($input);
$1 = ($1_ltype) t;
#if #__VA_ARGS__ == ""
#ifdef __cplusplus

4
Lib/ocaml/director.swg
View file

@ -74,12 +74,12 @@ namespace Swig {
public:
/* wrap a ocaml object. */
Director(CAML_VALUE self) : swig_self(self), swig_disown_flag(false) {
register_global_root(&swig_self);
caml_register_global_root(&swig_self);
}
/* discard our reference at destruction */
virtual ~Director() {
remove_global_root(&swig_self);
caml_remove_global_root(&swig_self);
swig_disown();
// Disown is safe here because we're just divorcing a reference that points to us.
}

2
Lib/ocaml/ocaml.swg
View file

@ -507,7 +507,7 @@ extern "C" {
SWIGINTERN int caml_string_len( CAML_VALUE v ) {
switch( SWIG_Tag_val(v) ) {
case C_string:
return string_length(SWIG_Field(v,0));
return caml_string_length(SWIG_Field(v,0));
default:
return strlen((char *)caml_ptr_val(v,0));
}

1
Lib/ocaml/ocamldec.swg
View file

@ -16,6 +16,7 @@ SWIGEXT {
#endif
#define value caml_value_t
#define CAML_VALUE caml_value_t
#define CAML_NAME_SPACE
#include <caml/alloc.h>
#include <caml/custom.h>
#include <caml/mlvalues.h>