diff options
author | Andy Wingo <wingo@pobox.com> | 2014-02-08 21:02:48 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-02-08 21:45:38 +0100 |
commit | 7070f12b9dc13f3b204acf2bd68c68b26e764990 (patch) | |
tree | 15f27dc40c1f7353372a06602e513024f1baedb2 /libguile/array-handle.h | |
parent | d747313100cafb2d2e05c84b146e70df295d0931 (diff) | |
download | guile-7070f12b9dc13f3b204acf2bd68c68b26e764990.tar.gz |
vref, vset members of scm_t_array_handle
* libguile/array-handle.h (scm_t_array_ref, scm_t_array_set): Rename
from scm_i_t_array_ref, scm_i_t_array_set.
(scm_t_array_handle): Copy vref and vset from impl to handle.
(scm_array_handle_ref, scm_array_handle_set):
* libguile/array-map.c (racp, ramap, rafe, rafill, array_index_map_1):
* libguile/array-handle.c (scm_array_get_handle): Adapt.
Diffstat (limited to 'libguile/array-handle.h')
-rw-r--r-- | libguile/array-handle.h | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/libguile/array-handle.h b/libguile/array-handle.h index fa2449dea..457f7592d 100644 --- a/libguile/array-handle.h +++ b/libguile/array-handle.h @@ -4,7 +4,7 @@ #define SCM_ARRAY_HANDLE_H /* Copyright (C) 1995, 1996, 1997, 1999, 2000, 2001, 2004, 2006, - * 2008, 2009, 2011, 2013 Free Software Foundation, Inc. + * 2008, 2009, 2011, 2013, 2014 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -32,15 +32,15 @@ struct scm_t_array_handle; -typedef SCM (*scm_i_t_array_ref) (struct scm_t_array_handle *, size_t); -typedef void (*scm_i_t_array_set) (struct scm_t_array_handle *, size_t, SCM); +typedef SCM (*scm_t_array_ref) (struct scm_t_array_handle *, size_t); +typedef void (*scm_t_array_set) (struct scm_t_array_handle *, size_t, SCM); typedef struct { scm_t_bits tag; scm_t_bits mask; - scm_i_t_array_ref vref; - scm_i_t_array_set vset; + scm_t_array_ref vref; + scm_t_array_set vset; void (*get_handle)(SCM, struct scm_t_array_handle*); } scm_t_array_implementation; @@ -107,6 +107,8 @@ typedef struct scm_t_array_handle { scm_t_array_element_type element_type; const void *elements; void *writable_elements; + scm_t_array_ref vref; + scm_t_array_set vset; } scm_t_array_handle; #define scm_array_handle_rank(h) ((h)->ndims) @@ -135,7 +137,7 @@ scm_array_handle_ref (scm_t_array_handle *h, ssize_t p) /* catch overflow */ scm_out_of_range (NULL, scm_from_ssize_t (p)); /* perhaps should catch overflow here too */ - return h->impl->vref (h, h->base + p); + return h->vref (h, h->base + p); } SCM_INLINE_IMPLEMENTATION void @@ -145,7 +147,7 @@ scm_array_handle_set (scm_t_array_handle *h, ssize_t p, SCM v) /* catch overflow */ scm_out_of_range (NULL, scm_from_ssize_t (p)); /* perhaps should catch overflow here too */ - h->impl->vset (h, h->base + p, v); + h->vset (h, h->base + p, v); } #endif |