mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Fix some SCM/scm_bits_t mismatches.

Browse source
This commit is contained in:
Dirk Herrmann 2000-04-12 09:58:43 +00:00
parent d8c40b9f49
commit 12a8b76952
3 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2000-04-12 Dirk Herrmann <D.Herrmann@tu-bs.de>
* ports.c (scm_port_print): The port data is read as raw data.
* ports.h (SCM_TC2PTOBNUM, SCM_PTOBNUM): Fix SCM/scm_bits_t
mismatch.
2000-04-11 Dirk Herrmann <D.Herrmann@tu-bs.de> 2000-04-11 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.c (SCM_CEVAL), objects.c (scm_mcache_lookup_cmethod, * eval.c (SCM_CEVAL), objects.c (scm_mcache_lookup_cmethod,

2
libguile/ports.c
View file

@ -1285,7 +1285,7 @@ scm_port_print (SCM exp, SCM port, scm_print_state *pstate)
scm_print_port_mode (exp, port); scm_print_port_mode (exp, port);
scm_puts (type, port); scm_puts (type, port);
scm_putc (' ', port); scm_putc (' ', port);
scm_intprint ((int) SCM_CDR (exp), 16, port); scm_intprint (SCM_CELL_WORD_1 (exp), 16, port);
scm_putc ('>', port); scm_putc ('>', port);
return 1; return 1;
} }

4
libguile/ports.h
View file

@ -199,8 +199,8 @@ typedef struct scm_ptob_descriptor
} scm_ptob_descriptor; } scm_ptob_descriptor;
#define SCM_TC2PTOBNUM(x) (0x0ff & (SCM_UNPACK(x) >> 8)) #define SCM_TC2PTOBNUM(x) (0x0ff & ((x) >> 8))
#define SCM_PTOBNUM(x) (SCM_TC2PTOBNUM (SCM_CAR (x))) #define SCM_PTOBNUM(x) (SCM_TC2PTOBNUM (SCM_CELL_TYPE (x)))
/* SCM_PTOBNAME can be 0 if name is missing */ /* SCM_PTOBNAME can be 0 if name is missing */
#define SCM_PTOBNAME(ptobnum) scm_ptobs[ptobnum].name #define SCM_PTOBNAME(ptobnum) scm_ptobs[ptobnum].name