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

Four failed test cases remaining.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4866 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Art Yerkes 2003-06-06 02:04:00 +00:00
commit e50fa50772
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Lib/ocaml/typemaps.i
View file

@ -34,10 +34,12 @@
#ifdef __cplusplus #ifdef __cplusplus
%typemap(in) SWIGTYPE & { %typemap(in) SWIGTYPE & {
/* %typemap(in) SWIGTYPE & */
$1 = ($ltype) caml_ptr_val($input,$1_descriptor); $1 = ($ltype) caml_ptr_val($input,$1_descriptor);
} }
%typemap(out) SWIGTYPE & { %typemap(out) SWIGTYPE & {
/* %typemap(out) SWIGTYPE & */
CAML_VALUE *fromval = caml_named_value("create_$ntype_from_ptr"); CAML_VALUE *fromval = caml_named_value("create_$ntype_from_ptr");
if( fromval ) { if( fromval ) {
$result = callback(*fromval,caml_val_ptr((void *) $1,$1_descriptor)); $result = callback(*fromval,caml_val_ptr((void *) $1,$1_descriptor));
@ -69,9 +71,9 @@
} }
%typemap(out) SWIGTYPE { %typemap(out) SWIGTYPE {
void *temp = new $ltype($1); /* %typemap(out) SWIGTYPE */
$&1_ltype temp = new $ltype(($1_ltype &) $1);
CAML_VALUE *fromval = caml_named_value("create_$ntype_from_ptr"); CAML_VALUE *fromval = caml_named_value("create_$ntype_from_ptr");
*(($ltype *)temp) = $1;
if( fromval ) { if( fromval ) {
$result = callback(*fromval,caml_val_ptr((void *)temp,$&1_descriptor)); $result = callback(*fromval,caml_val_ptr((void *)temp,$&1_descriptor));
} else { } else {
@ -86,9 +88,10 @@
} }
%typemap(out) SWIGTYPE { %typemap(out) SWIGTYPE {
/* %typemap(out) SWIGTYPE */
void *temp = calloc(1,sizeof($ltype)); void *temp = calloc(1,sizeof($ltype));
CAML_VALUE *fromval = caml_named_value("create_$ntype_from_ptr"); CAML_VALUE *fromval = caml_named_value("create_$ntype_from_ptr");
*(($ltype *)temp) = $1; memmove( temp, &$1, sizeof( $1_type ) );
if( fromval ) { if( fromval ) {
$result = callback(*fromval,caml_val_ptr((void *)temp,$&1_descriptor)); $result = callback(*fromval,caml_val_ptr((void *)temp,$&1_descriptor));
} else { } else {