From: Marcelo M. <mar...@us...> - 2004-12-19 04:34:51
|
Update of /cvsroot/swig/SWIG/Lib/perl5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19311/Lib/perl5 Modified Files: perl5.swg Log Message: fix varin typemap Index: perl5.swg =================================================================== RCS file: /cvsroot/swig/SWIG/Lib/perl5/perl5.swg,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** perl5.swg 29 Nov 2004 23:13:56 -0000 1.28 --- perl5.swg 19 Dec 2004 04:34:43 -0000 1.29 *************** *** 246,250 **** %typemap(varin) SWIGTYPE * { void *temp; ! if (SWIG_ConvertPtr($input, (void **) &$1, $1_descriptor,0) < 0) { croak("Type error in argument $argnum of $symname. Expected $1_mangle"); } --- 246,250 ---- %typemap(varin) SWIGTYPE * { void *temp; ! if (SWIG_ConvertPtr($input, &temp, $1_descriptor,0) < 0) { croak("Type error in argument $argnum of $symname. Expected $1_mangle"); } *************** *** 269,273 **** %typemap(varin) SWIGTYPE & { void *temp; ! if (SWIG_ConvertPtr($input, (void **) &temp, $1_descriptor,0) < 0) { croak("Type error in argument $argnum of $symname. Expected $1_mangle"); } --- 269,273 ---- %typemap(varin) SWIGTYPE & { void *temp; ! if (SWIG_ConvertPtr($input, &temp, $1_descriptor,0) < 0) { croak("Type error in argument $argnum of $symname. Expected $1_mangle"); } *************** *** 276,291 **** %typemap(varin) void * { ! if (SWIG_ConvertPtr($input, (void **) &$1, 0,0) < 0) { croak("Type error in argument $argnum of $symname. Expected $1_mangle"); } } /* Object passed by value. Convert to a pointer */ %typemap(varin) SWIGTYPE { ! $&1_ltype argp; ! if (SWIG_ConvertPtr($input,(void **) &argp, $&1_descriptor,0) < 0) { croak("Type error in argument $argnum of $symname. Expected $&1_mangle"); } ! $1 = *argp; } --- 276,293 ---- %typemap(varin) void * { ! void *temp; ! if (SWIG_ConvertPtr($input, &temp, 0,0) < 0) { croak("Type error in argument $argnum of $symname. Expected $1_mangle"); } + $1 = temp; } /* Object passed by value. Convert to a pointer */ %typemap(varin) SWIGTYPE { ! $&1_ltype temp; ! if (SWIG_ConvertPtr($input,(void **) &temp, $&1_descriptor,0) < 0) { croak("Type error in argument $argnum of $symname. Expected $&1_mangle"); } ! $1 = *temp; } |