diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2013-05-01 16:02:02 +0100 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2013-05-01 16:02:02 +0100 |
commit | 6704501aad77eb0fad25468515d37e3c9e95ef21 (patch) | |
tree | 025706c86236bfc9fbf2c6e155627e04f17980dc /Examples/guile | |
parent | fbb1978eb459ffa6bbae2192e86608fab4781d99 (diff) | |
download | swig-6704501aad77eb0fad25468515d37e3c9e95ef21.tar.gz |
Guile multimap example fix for 64 bit systems
Diffstat (limited to 'Examples/guile')
-rw-r--r-- | Examples/guile/multimap/example.i | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Examples/guile/multimap/example.i b/Examples/guile/multimap/example.i index 135b6b123..c24d45ddc 100644 --- a/Examples/guile/multimap/example.i +++ b/Examples/guile/multimap/example.i @@ -18,13 +18,15 @@ extern int gcd(int x, int y); %typemap(in) (int argc, char *argv[]) %{ scm_t_array_handle handle; size_t i; + size_t lenp; ssize_t inc; const SCM *v; if (!(SCM_NIMP($input) && scm_is_vector($input))) { SWIG_exception(SWIG_ValueError, "Expecting a vector"); return 0; } - v = scm_vector_elements($input, &handle, &$1, &inc); + v = scm_vector_elements($input, &handle, &lenp, &inc); + $1 = (int)lenp; if ($1 == 0) { SWIG_exception(SWIG_ValueError, "Vector must contain at least 1 element"); } |