summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/unif.h22
1 files changed, 6 insertions, 16 deletions
diff --git a/libguile/unif.h b/libguile/unif.h
index 7f122e909..125a57e4d 100644
--- a/libguile/unif.h
+++ b/libguile/unif.h
@@ -33,15 +33,12 @@
/** Arrays */
-/*
- an array SCM is a non-immediate pointing to a heap cell where:
-
- CAR: bits 0-15 hold the smob type id: scm_tc16_array
- bit 16 is the SCM_ARRAY_FLAG_CONTIGUOUS flag
- bits 17-31 hold the dimension (0 -- 32767)
- CDR: pointer to a malloced block containing an scm_t_array structure
- followed by an scm_t_array_dim structure for each dimension.
-*/
+typedef struct scm_t_array_dim
+{
+ ssize_t lbnd;
+ ssize_t ubnd;
+ ssize_t inc;
+} scm_t_array_dim;
typedef struct scm_t_array
{
@@ -49,13 +46,6 @@ typedef struct scm_t_array
unsigned long base;
} scm_t_array;
-typedef struct scm_t_array_dim
-{
- long lbnd;
- long ubnd;
- long inc;
-} scm_t_array_dim;
-
SCM_API scm_t_bits scm_tc16_array;
SCM_API scm_t_bits scm_tc16_enclosed_array;