mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

(scm_uniform_vector_read_x): Declare base as char*

Browse source 
rather than void*, so we can do pointer arithmetic on it.
(Reported by Mike Gran.)
(s_scm_uniform_vector_write): Ditto.
This commit is contained in:
Neil Jerram 2006-03-11 12:32:25 +00:00
parent 50d643b5bd
commit 05b454920e
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2006-03-11 Neil Jerram <neil@ossau.uklinux.net>
* srfi-4.c (scm_uniform_vector_read_x): Declare base as char*
rather than void*, so we can do pointer arithmetic on it.
(Reported by Mike Gran.)
(s_scm_uniform_vector_write): Ditto.
2006-03-10 Neil Jerram <neil@ossau.uklinux.net> 2006-03-10 Neil Jerram <neil@ossau.uklinux.net>
* unif.c (scm_make_shared_array): Don't use SCM_I_ARRAY_BASE when * unif.c (scm_make_shared_array): Don't use SCM_I_ARRAY_BASE when

4
libguile/srfi-4.c
View file

@ -850,7 +850,7 @@ SCM_DEFINE (scm_uniform_vector_read_x, "uniform-vector-read!", 1, 3, 0,
ssize_t inc; ssize_t inc;
size_t cstart, cend; size_t cstart, cend;
size_t remaining, off; size_t remaining, off;
void *base; char *base;
if (SCM_UNBNDP (port_or_fd)) if (SCM_UNBNDP (port_or_fd))
port_or_fd = scm_current_input_port (); port_or_fd = scm_current_input_port ();
@ -963,7 +963,7 @@ SCM_DEFINE (scm_uniform_vector_write, "uniform-vector-write", 1, 3, 0,
ssize_t inc; ssize_t inc;
size_t cstart, cend; size_t cstart, cend;
size_t amount, off; size_t amount, off;
const void *base; const char *base;
port_or_fd = SCM_COERCE_OUTPORT (port_or_fd); port_or_fd = SCM_COERCE_OUTPORT (port_or_fd);