[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-97-gb1fe20

From: Ian Price
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-97-gb1fe20c
Date: Sun, 20 Oct 2013 19:28:51 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

The branch, stable-2.0 has been updated
       via  b1fe20c24ccb380420ea1ffdc7f249224072dcdc (commit)
      from  9cdf0ac603303ed8940a29d4fc4d8454f97b79aa (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit b1fe20c24ccb380420ea1ffdc7f249224072dcdc
Author: Ian Price <address@hidden>
Date:   Sun Oct 20 20:16:09 2013 +0100

    Fix optional end argument in `uniform-vector-read!'.
    Fixes <>.
    Reported by Thien-Thi Nguyen <address@hidden>.
    * libguile/deprecated.c (scm_uniform_vector_read_x): Only multiply by
      width when argument supplied.


Summary of changes:
 libguile/deprecated.c |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index f37b7f1..600b984 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -1371,8 +1371,8 @@ SCM_DEFINE (scm_uniform_vector_read_x, 
"uniform-vector-read!", 1, 3, 0,
   c_start = SCM_UNBNDP (start) ? 0 : scm_to_size_t (start);
   c_start *= c_width;
-  c_end = SCM_UNBNDP (end) ? SCM_BYTEVECTOR_LENGTH (uvec) : scm_to_size_t 
-  c_end *= c_width;
+  c_end = SCM_UNBNDP (end) ? SCM_BYTEVECTOR_LENGTH (uvec)
+                           : scm_to_size_t (end) * c_width;
   result = scm_get_bytevector_n_x (port_or_fd, uvec,
                                   scm_from_size_t (c_start),

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]