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

* Use scm_tc3_* codes instead of hardcoded values.

Browse source
This commit is contained in:
Dirk Herrmann 2000-12-05 14:07:03 +00:00
parent 01449aa511
commit e34f941a3a
2 changed files with 25 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2000-12-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
* print.c (scm_iprin1): Use scm_tc3_* codes instead of hardcoded
values. Added comment about tc3 codes that may appear in
immediates. Got rid of one goto command.
2000-12-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
* dynl.c (sysdep_dynl_link): Improved error reporting.

31
libguile/print.c
View file

@ -312,16 +312,24 @@ scm_iprin1 (SCM exp, SCM port, scm_print_state *pstate)
taloop:
switch (SCM_ITAG3 (exp))
{
case 2:
case 6:
case scm_tc3_closure:
case scm_tc3_tc7_1:
case scm_tc3_tc7_2:
/* These tc3 tags should never occur in an immediate value. They are
* only used in cell types of non-immediates, i. e. the value returned
* by SCM_CELL_TYPE (exp) can use these tags.
*/
scm_ipruk ("immediate", exp, port);
break;
case scm_tc3_int_1:
case scm_tc3_int_2:
scm_intprint (SCM_INUM (exp), 10, port);
break;
case 4:
case scm_tc3_imm24:
if (SCM_CHARP (exp))
{
register long i;
long i = SCM_CHAR (exp);
i = SCM_CHAR (exp);
if (SCM_WRITINGP (pstate))
{
scm_puts ("#\\", port);
@ -350,18 +358,17 @@ taloop:
scm_intprint (SCM_IDIST (exp), 10, port);
}
else
goto idef;
{
/* unknown immediate value */
scm_ipruk ("immediate", exp, port);
}
break;
case 1:
case scm_tc3_cons_gloc:
/* gloc */
scm_puts ("#@", port);
exp = SCM_GLOC_SYM (exp);
goto taloop;
default:
idef:
scm_ipruk ("immediate", exp, port);
break;
case 0:
case scm_tc3_cons:
switch (SCM_TYP7 (exp))
{
case scm_tcs_cons_gloc: