* unif.c (scm_ra2contig): Fixed memory overwrite bug.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 998b53f..35da7eb 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-02  Mikael Djurfeldt  <mdj@linnaeus>
+
+       * unif.c (scm_ra2contig): Fixed memory overwrite bug.
+
 2001-11-02  Marius Vollmer  <mvo@zagadka.ping.de>
 
        Support for native Win32.  Thanks to Stefan Jahn!

diff --git a/libguile/unif.c b/libguile/unif.c
index 2ace923..392e376 100644 (file)
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -1472,7 +1472,7 @@ scm_ra2contig (SCM ra, int copy)
       SCM_ARRAY_DIMS (ret)[k].inc = inc;
       inc *= SCM_ARRAY_DIMS (ra)[k].ubnd - SCM_ARRAY_DIMS (ra)[k].lbnd + 1;
     }
-  SCM_ARRAY_V (ret) = scm_make_uve ((inc - 1), scm_array_prototype (ra));
+  SCM_ARRAY_V (ret) = scm_make_uve (inc, scm_array_prototype (ra));
   if (copy)
     scm_array_copy_x (ra, ret);
   return ret;