guile/guile-core/libguile ChangeLog unif.c

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/11/02 07:31:50

Modified files:
        guile-core/libguile: ChangeLog unif.c 

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

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ChangeLog.diff?cvsroot=OldCVS&tr1=1.1537&tr2=1.1538&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/unif.c.diff?cvsroot=OldCVS&tr1=1.122&tr2=1.123&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1537 
guile/guile-core/libguile/ChangeLog:1.1538
--- guile/guile-core/libguile/ChangeLog:1.1537  Thu Nov  1 19:19:34 2001
+++ guile/guile-core/libguile/ChangeLog Fri Nov  2 07:31:50 2001
@@ -1,3 +1,7 @@
+2001-11-02  Mikael Djurfeldt  <address@hidden>
+
+       * unif.c (scm_ra2contig): Fixed memory overwrite bug.
+
 2001-11-02  Marius Vollmer  <address@hidden>
 
        Support for native Win32.  Thanks to Stefan Jahn!
Index: guile/guile-core/libguile/unif.c
diff -u guile/guile-core/libguile/unif.c:1.122 
guile/guile-core/libguile/unif.c:1.123
--- guile/guile-core/libguile/unif.c:1.122      Sun Oct 28 06:13:35 2001
+++ guile/guile-core/libguile/unif.c    Fri Nov  2 07:31:50 2001
@@ -1472,7 +1472,7 @@
       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;