mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-11 14:21:10 +02:00
(scm_t_array_dim): Changed type of members to ssize_t, to
fit the docs.
This commit is contained in:
parent
6419ad789a
commit
4cf8074fd1
1 changed files with 6 additions and 16 deletions
|
@ -33,15 +33,12 @@
|
||||||
|
|
||||||
/** Arrays */
|
/** Arrays */
|
||||||
|
|
||||||
/*
|
typedef struct scm_t_array_dim
|
||||||
an array SCM is a non-immediate pointing to a heap cell where:
|
{
|
||||||
|
ssize_t lbnd;
|
||||||
CAR: bits 0-15 hold the smob type id: scm_tc16_array
|
ssize_t ubnd;
|
||||||
bit 16 is the SCM_ARRAY_FLAG_CONTIGUOUS flag
|
ssize_t inc;
|
||||||
bits 17-31 hold the dimension (0 -- 32767)
|
} scm_t_array_dim;
|
||||||
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
|
typedef struct scm_t_array
|
||||||
{
|
{
|
||||||
|
@ -49,13 +46,6 @@ typedef struct scm_t_array
|
||||||
unsigned long base;
|
unsigned long base;
|
||||||
} scm_t_array;
|
} 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_array;
|
||||||
SCM_API scm_t_bits scm_tc16_enclosed_array;
|
SCM_API scm_t_bits scm_tc16_enclosed_array;
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue