From 70dc3aedcf4a9ebd7f536d4954350b0074a25c1a Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Fri, 2 Nov 2001 12:34:39 +0000
Subject: [PATCH] * unif.c (scm_ra2contig): Fixed memory overwrite bug.

---
 libguile/ChangeLog | 4 ++++
 libguile/unif.c    | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 36e4227cb..0269c3aa2 100644
--- 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-10-28  Mikael Djurfeldt  <mdj@linnaeus>
 
 	* unif.c (scm_uniform_array_read_x, scm_uniform_array_write):
diff --git a/libguile/unif.c b/libguile/unif.c
index 2ace9239e..392e376b2 100644
--- 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;