mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-17 17:20:29 +02:00
* variable.c, threads.c, struct.c, stackchk.c, smob.c, root.c,
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:
parent
f27d205727
commit
0345e278f4
17 changed files with 26 additions and 27 deletions
|
@ -62,12 +62,12 @@ void
|
|||
scm_stack_report ()
|
||||
{
|
||||
SCM_STACKITEM stack;
|
||||
scm_intprint (scm_stack_size (SCM_BASE (scm_rootcont)) * sizeof (SCM_STACKITEM),
|
||||
scm_uintprint (scm_stack_size (SCM_BASE (scm_rootcont)) * sizeof (SCM_STACKITEM),
|
||||
16, scm_cur_errp);
|
||||
scm_puts (" of stack: 0x", scm_cur_errp);
|
||||
scm_intprint ((long) SCM_BASE (scm_rootcont), 16, scm_cur_errp);
|
||||
scm_uintprint ((scm_t_bits) SCM_BASE (scm_rootcont), 16, scm_cur_errp);
|
||||
scm_puts (" - 0x", scm_cur_errp);
|
||||
scm_intprint ((long) &stack, 16, scm_cur_errp);
|
||||
scm_uintprint ((scm_t_bits) &stack, 16, scm_cur_errp);
|
||||
scm_puts ("\n", scm_cur_errp);
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue