1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00

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

This commit is contained in:
Mikael Djurfeldt 2001-11-02 12:34:39 +00:00
parent 4558e398fe
commit 70dc3aedcf
2 changed files with 5 additions and 1 deletions

View file

@ -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):

View file

@ -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;