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

Guile multimap example fix for 64 bit systems

Browse source
This commit is contained in:
William S Fulton 2013-05-01 16:02:02 +01:00
commit 6704501aad
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Examples/guile/multimap/example.i
View file

@ -18,13 +18,15 @@ extern int gcd(int x, int y);
%typemap(in) (int argc, char *argv[]) %{ %typemap(in) (int argc, char *argv[]) %{
scm_t_array_handle handle; scm_t_array_handle handle;
size_t i; size_t i;
size_t lenp;
ssize_t inc; ssize_t inc;
const SCM *v; const SCM *v;
if (!(SCM_NIMP($input) && scm_is_vector($input))) { if (!(SCM_NIMP($input) && scm_is_vector($input))) {
SWIG_exception(SWIG_ValueError, "Expecting a vector"); SWIG_exception(SWIG_ValueError, "Expecting a vector");
return 0; return 0;
} }
v = scm_vector_elements($input, &handle, &$1, &inc); v = scm_vector_elements($input, &handle, &lenp, &inc);
$1 = (int)lenp;
if ($1 == 0) { if ($1 == 0) {
SWIG_exception(SWIG_ValueError, "Vector must contain at least 1 element"); SWIG_exception(SWIG_ValueError, "Vector must contain at least 1 element");
} }