diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2001-11-02 12:31:50 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2001-11-02 12:31:50 +0000 |
commit | 08112c957b93167b622a5502fb95ac683246becf (patch) | |
tree | 5b2dd3092d6f7c24b7ae6d93c7c424495a9c8e94 /libguile/unif.c | |
parent | ebd3a55a52c30d29121685bfe19648708b067b2e (diff) | |
download | guile-08112c957b93167b622a5502fb95ac683246becf.tar.gz |
* unif.c (scm_ra2contig): Fixed memory overwrite bug.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; |