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

(thread_print): Cast a pointer to size_t when printing

Browse source 
with scm_uintprint.
This commit is contained in:
Marius Vollmer 2004-11-02 22:45:36 +00:00
parent 72d05aa477
commit a95ba079dc
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/threads.c
View file

@ -164,7 +164,7 @@ thread_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
scm_thread *t = SCM_THREAD_DATA (exp);
scm_puts ("#<thread ", port);
scm_uintprint (t->thread, 10, port);
scm_uintprint ((size_t)t->thread, 10, port);
scm_puts (" (", port);
scm_uintprint ((scm_t_bits)t, 16, port);
scm_puts (")>", port);