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

* Eliminate hard-coded value of scm_tc7_smob.

Browse source
This commit is contained in:
Dirk Herrmann 2000-12-04 16:31:03 +00:00
parent 79a3dafe67
commit 8c921d5c8d
2 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2000-12-04 Dirk Herrmann <D.Herrmann@tu-bs.de>
* tags.h (scm_tc_free_cell, scm_tc16_big, scm_tc16_real,
scm_tc16_complex): Eliminate hard-coded value of scm_tc7_smob.
2000-12-01 Dirk Herrmann <D.Herrmann@tu-bs.de>
* list.[ch] (scm_c_memq): Added as a fast C level alternative for

13
libguile/tags.h
View file

@ -395,16 +395,13 @@ typedef long scm_bits_t;
/* scm_tc_free_cell is also the 0th smob type. We place this
* in free cells to tell the conservative marker not to trace it.
*/
#define scm_tc_free_cell 0x007f
#define scm_tc_free_cell (scm_tc7_smob + 0 * 256L)
/* Smob type 1 (note the dependency on the predicate SCM_NUMP)
/* Smob type 1 to 3 (note the dependency on the predicate SCM_NUMP)
*/
#define scm_tc16_big 0x017f
/* Smob types 2 and 3:
*/
#define scm_tc16_real 0x027f
#define scm_tc16_complex 0x037f
#define scm_tc16_big (scm_tc7_smob + 1 * 256L)
#define scm_tc16_real (scm_tc7_smob + 2 * 256L)
#define scm_tc16_complex (scm_tc7_smob + 3 * 256L)
/* {Immediate Values}