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

(scm_cell): use SCM_GC_CELL_WORD for checking tag.

Browse source
This commit is contained in:
Han-Wen Nienhuys 2004-04-06 21:49:43 +00:00
parent 84fad13058
commit 6b69393dcc
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ChangeLog
View file

@ -1,5 +1,7 @@
2004-04-06 Han-Wen Nienhuys <hanwen@xs4all.nl>
* inline.h (scm_cell): use SCM_GC_CELL_WORD for checking tag.
* chars.h (scm_init_chars): change scm_{upcase,downcase} to
scm_c_{up,down}case.
(SCM_MAKE_CHAR): add (unsigned char) cast. This prevents havoc

2
libguile/inline.h
View file

@ -98,7 +98,7 @@ scm_cell (scm_t_bits car, scm_t_bits cdr)
fprintf(stderr, "scm_cell tried to allocate a marked cell.\n");
abort();
}
else if (SCM_GC_CELL_TYPE(z) != scm_tc_free_cell)
else if (SCM_GC_CELL_WORD(z, 0) != scm_tc_free_cell)
{
fprintf(stderr, "cell from freelist is not a free cell.\n");
abort();