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 | |
parent | ebd3a55a52c30d29121685bfe19648708b067b2e (diff) | |
download | guile-08112c957b93167b622a5502fb95ac683246becf.tar.gz |
* unif.c (scm_ra2contig): Fixed memory overwrite bug.
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/ChangeLog | 4 | ||||
-rw-r--r-- | libguile/unif.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 998b53f47..35da7eb44 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-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 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; |