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:
parent
4558e398fe
commit
70dc3aedcf
2 changed files with 5 additions and 1 deletions
|
@ -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):
|
||||
|
|
|
@ -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;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue