mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* stacks.c, stacks.h, struct.c, tags.h, unif.c (scm_bits_t):

Browse source 
Renamed from SCMWORD.
This commit is contained in:
Mikael Djurfeldt 2000-03-12 17:52:18 +00:00
parent 0bc908e7c4
commit 4d45e7b69a
5 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/struct.c
View file

@ -326,7 +326,7 @@ scm_alloc_struct (int n_words, int n_extra, char *who)
SCM *p = block + n_extra;
/* Adjust it even further so it's aligned on an eight-byte boundary. */
p = (SCM *) (((SCMWORD) SCM_BITS (p) + 7) & ~7);
p = (SCM *) (((scm_bits_t) SCM_BITS (p) + 7) & ~7);
/* Initialize a few fields as described above. */
p[scm_struct_i_free] = (SCM) scm_struct_free_standard;
@ -522,7 +522,7 @@ SCM_DEFINE (scm_struct_ref, "struct-ref", 2, 0, 0,
SCM * data;
SCM layout;
int p;
SCMWORD n_fields;
scm_bits_t n_fields;
unsigned char * fields_desc;
unsigned char field_type = 0;