[Guile-commits] GNU Guile branch, wip-array-refactor, updated. release_1-9-0-84-g39ba71a

[Andy Wingo]

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".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=39ba71a1971aaa3b1e630359be1439b0328cc96d

The branch, wip-array-refactor has been updated
       via  39ba71a1971aaa3b1e630359be1439b0328cc96d (commit)
      from  d3b1e6951da7a71db8711f3c5f550d0bd3f298e6 (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 39ba71a1971aaa3b1e630359be1439b0328cc96d
Author: Andy Wingo <address@hidden>
Date:   Sun Jul 19 14:48:52 2009 +0200

    fix scm_u32vector_writable_elements et al.
    
    * libguile/srfi-4.c (DEFINE_SRFI_4_C_FUNCS):
      scm_u8vector_writable_elements should return an already-offset
      pointer, like the other writable_elements() procedures.

-----------------------------------------------------------------------

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

diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c
index 030bbd2..db30e33 100644
--- a/libguile/srfi-4.c
+++ b/libguile/srfi-4.c
@@ -138,7 +138,7 @@
   {                                                                     \
     scm_uniform_vector_elements (uvec, h, lenp, incp);                  \
     if (h->element_type == ETYPE (TAG))                                 \
-      return h->writable_elements;                                      \
+      return ((ctype*)h->writable_elements) + h->base;                  \
     /* otherwise... */                                                  \
     else                                                                \
       {                                                                 \
@@ -160,7 +160,7 @@
         h->dim0.ubnd = h->dim0.lbnd + lto;                              \
         h->base = h->base * sto / sfrom;                                \
         h->element_type = ETYPE (TAG);                                  \
-        return h->writable_elements;                                    \
+        return ((ctype*)h->writable_elements) + h->base;                \
       }                                                                 \
   }
 


hooks/post-receive
-- 
GNU Guile