mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

* variable.c, threads.c, struct.c, stackchk.c, smob.c, root.c,

Browse source 
print.c, ports.c, mallocs.c, hooks.c, hashtab.c, fports.c,
guardians.c, filesys.c, coop-pthreads.c, continuations.c: Use
scm_uintprint to print unsigned integers, raw heap words, and
adresses, using a cast to scm_t_bits to turn pointers into
integers.
This commit is contained in:
Marius Vollmer 2004-10-22 15:13:12 +00:00
parent f27d205727
commit 0345e278f4
17 changed files with 26 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/struct.c
View file

@ -777,9 +777,9 @@ scm_print_struct (SCM exp, SCM port, scm_print_state *pstate)
else
scm_puts ("struct", port);
scm_putc (' ', port);
scm_intprint (SCM_UNPACK (vtable), 16, port);
scm_uintprint (SCM_UNPACK (vtable), 16, port);
scm_putc (':', port);
scm_intprint (SCM_UNPACK (exp), 16, port);
scm_uintprint (SCM_UNPACK (exp), 16, port);
scm_putc ('>', port);
}
}