mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

Use SCM_EQ_P to compare scheme objects, use SCM_CELL_WORD_1 for raw data.

Browse source
This commit is contained in:
Dirk Herrmann 2000-03-31 13:34:30 +00:00
parent 74a16888eb
commit 7fa93bf859
3 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2000-03-31 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gdbint.c (gdb_maybe_valid_type_p), guardians.c (TCONC_EMPTYP,
scm_guardian_zombify): Use SCM_EQ_P to compare SCM values.
* guardians.c (GUARDIAN): Use SCM_CELL_WORD_1 for raw data.
2000-03-31 Dirk Herrmann <D.Herrmann@tu-bs.de>
* ports.h (scm_port): Change type of stream member to scm_bits_t.

2
libguile/gdbint.c
View file

@ -169,7 +169,7 @@ int
gdb_maybe_valid_type_p (SCM value)
{
if (SCM_IMP (value) || scm_cellp (value))
return scm_tag (value) != SCM_MAKINUM (-1);
return (! SCM_EQ_P (scm_tag (value), SCM_MAKINUM (-1)));
return 0;
}

6
libguile/guardians.c
View file

@ -87,7 +87,7 @@ do { \
(tc).head = SCM_CDR ((tc).head); \
} while (0)
#define TCONC_EMPTYP(tc) ((tc).head == (tc).tail)
#define TCONC_EMPTYP(tc) (SCM_EQ_P ((tc).head, (tc).tail))
typedef struct tconc_t
{
@ -102,7 +102,7 @@ typedef struct guardian_t
struct guardian_t *next;
} guardian_t;
#define GUARDIAN(x) ((guardian_t *) SCM_CDR (x))
#define GUARDIAN(x) ((guardian_t *) SCM_CELL_WORD_1 (x))
#define GUARDIAN_LIVE(x) (GUARDIAN (x)->live)
#define GUARDIAN_ZOMBIES(x) (GUARDIAN (x)->zombies)
#define GUARDIAN_NEXT(x) (GUARDIAN (x)->next)
@ -205,7 +205,7 @@ scm_guardian_zombify ()
SCM *prev_ptr = &g->live.head;
SCM pair = g->live.head;
while (pair != tconc_tail)
while (! SCM_EQ_P (pair, tconc_tail))
{
SCM next_pair = SCM_CDR (pair);