summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/continuations.c2
-rw-r--r--libguile/coop-pthreads.c2
-rw-r--r--libguile/filesys.c2
-rw-r--r--libguile/fports.c2
-rw-r--r--libguile/guardians.c2
-rw-r--r--libguile/hashtab.c5
-rw-r--r--libguile/hooks.c2
-rw-r--r--libguile/mallocs.c2
-rw-r--r--libguile/ports.c2
-rw-r--r--libguile/print.c8
-rw-r--r--libguile/root.c2
-rw-r--r--libguile/smob.c4
-rw-r--r--libguile/stackchk.c6
-rw-r--r--libguile/struct.c4
-rw-r--r--libguile/threads.c4
-rw-r--r--libguile/throw.c2
-rw-r--r--libguile/variable.c2
17 files changed, 26 insertions, 27 deletions
diff --git a/libguile/continuations.c b/libguile/continuations.c
index c63866292..e5c8c0210 100644
--- a/libguile/continuations.c
+++ b/libguile/continuations.c
@@ -83,7 +83,7 @@ continuation_print (SCM obj, SCM port, scm_print_state *state SCM_UNUSED)
scm_puts ("#<continuation ", port);
scm_intprint (continuation->num_stack_items, 10, port);
scm_puts (" @ ", port);
- scm_intprint (SCM_CELL_WORD_1 (obj), 16, port);
+ scm_uintprint (SCM_CELL_WORD_1 (obj), 16, port);
scm_putc ('>', port);
return 1;
}
diff --git a/libguile/coop-pthreads.c b/libguile/coop-pthreads.c
index f99417002..844db7403 100644
--- a/libguile/coop-pthreads.c
+++ b/libguile/coop-pthreads.c
@@ -142,7 +142,7 @@ thread_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
scm_copt_thread *t = SCM_THREAD_DATA (exp);
scm_puts ("#<thread ", port);
- scm_intprint ((unsigned long)t, 16, port);
+ scm_uintprint ((scm_t_bits)t, 16, port);
if (t->pthread != -1)
{
scm_putc (' ', port);
diff --git a/libguile/filesys.c b/libguile/filesys.c
index f2f35aa1d..9e01901f5 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -922,7 +922,7 @@ scm_dir_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
if (!SCM_DIR_OPEN_P (exp))
scm_puts ("closed: ", port);
scm_puts ("directory stream ", port);
- scm_intprint (SCM_CELL_WORD_1 (exp), 16, port);
+ scm_uintprint (SCM_CELL_WORD_1 (exp), 16, port);
scm_putc ('>', port);
return 1;
}
diff --git a/libguile/fports.c b/libguile/fports.c
index 35789ff6e..9d8d1f48a 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -519,7 +519,7 @@ fport_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
scm_puts (SCM_PTOBNAME (SCM_PTOBNUM (exp)), port);
scm_putc (' ', port);
- scm_intprint ((scm_t_bits) SCM_PTAB_ENTRY (exp), 16, port);
+ scm_uintprint ((scm_t_bits) SCM_PTAB_ENTRY (exp), 16, port);
}
scm_putc ('>', port);
return 1;
diff --git a/libguile/guardians.c b/libguile/guardians.c
index f36a98866..e3977e901 100644
--- a/libguile/guardians.c
+++ b/libguile/guardians.c
@@ -172,7 +172,7 @@ guardian_print (SCM guardian, SCM port, scm_print_state *pstate SCM_UNUSED)
scm_puts ("sharing", port);
scm_puts (" guardian 0x", port);
- scm_intprint ((long) g, 16, port);
+ scm_uintprint ((scm_t_bits) g, 16, port);
if (! DESTROYED_P (g))
{
diff --git a/libguile/hashtab.c b/libguile/hashtab.c
index f74526d5a..a2d4c3336 100644
--- a/libguile/hashtab.c
+++ b/libguile/hashtab.c
@@ -193,10 +193,9 @@ hashtable_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
else if (SCM_HASHTABLE_DOUBLY_WEAK_P (exp))
scm_puts ("doubly-weak-", port);
scm_puts ("hash-table ", port);
- scm_intprint ((unsigned long) t->n_items, 10, port);
+ scm_uintprint (t->n_items, 10, port);
scm_putc ('/', port);
- scm_intprint ((unsigned long) SCM_VECTOR_LENGTH (SCM_HASHTABLE_VECTOR (exp)),
- 10, port);
+ scm_uintprint (SCM_VECTOR_LENGTH (SCM_HASHTABLE_VECTOR (exp)), 10, port);
scm_puts (">", port);
return 1;
}
diff --git a/libguile/hooks.c b/libguile/hooks.c
index 0e7749e7e..af317d9f3 100644
--- a/libguile/hooks.c
+++ b/libguile/hooks.c
@@ -130,7 +130,7 @@ hook_print (SCM hook, SCM port, scm_print_state *pstate)
scm_puts ("#<hook ", port);
scm_intprint (SCM_HOOK_ARITY (hook), 10, port);
scm_putc (' ', port);
- scm_intprint (SCM_UNPACK (hook), 16, port);
+ scm_uintprint (SCM_UNPACK (hook), 16, port);
ls = SCM_HOOK_PROCEDURES (hook);
while (SCM_NIMP (ls))
{
diff --git a/libguile/mallocs.c b/libguile/mallocs.c
index c1fe4c9f4..da36c39dc 100644
--- a/libguile/mallocs.c
+++ b/libguile/mallocs.c
@@ -54,7 +54,7 @@ static int
malloc_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
scm_puts("#<malloc ", port);
- scm_intprint (SCM_SMOB_DATA (exp), 16, port);
+ scm_uintprint (SCM_SMOB_DATA (exp), 16, port);
scm_putc('>', port);
return 1;
}
diff --git a/libguile/ports.c b/libguile/ports.c
index 4ad51bc06..d628f47bc 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -1604,7 +1604,7 @@ scm_port_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
scm_print_port_mode (exp, port);
scm_puts (type, port);
scm_putc (' ', port);
- scm_intprint (SCM_CELL_WORD_1 (exp), 16, port);
+ scm_uintprint (SCM_CELL_WORD_1 (exp), 16, port);
scm_putc ('>', port);
return 1;
}
diff --git a/libguile/print.c b/libguile/print.c
index 1d1332613..7cd7307d3 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -553,7 +553,7 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
scm_i_symbol_length (exp),
port);
scm_putc (' ', port);
- scm_intprint ((long)exp, 16, port);
+ scm_uintprint (SCM_UNPACK (exp), 16, port);
scm_putc ('>', port);
}
break;
@@ -765,13 +765,13 @@ scm_ipruk (char *hdr, SCM ptr, SCM port)
if (scm_in_heap_p (ptr))
{
scm_puts (" (0x", port);
- scm_intprint (SCM_CELL_WORD_0 (ptr), 16, port);
+ scm_uintprint (SCM_CELL_WORD_0 (ptr), 16, port);
scm_puts (" . 0x", port);
- scm_intprint (SCM_CELL_WORD_1 (ptr), 16, port);
+ scm_uintprint (SCM_CELL_WORD_1 (ptr), 16, port);
scm_puts (") @", port);
}
scm_puts (" 0x", port);
- scm_intprint (SCM_UNPACK (ptr), 16, port);
+ scm_uintprint (SCM_UNPACK (ptr), 16, port);
scm_putc ('>', port);
}
diff --git a/libguile/root.c b/libguile/root.c
index 1a609956d..dfe0ae313 100644
--- a/libguile/root.c
+++ b/libguile/root.c
@@ -62,7 +62,7 @@ static int
root_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
scm_puts ("#<root ", port);
- scm_intprint(SCM_SEQ (SCM_ROOT_STATE (exp) -> rootcont), 16, port);
+ scm_uintprint(SCM_SEQ (SCM_ROOT_STATE (exp) -> rootcont), 16, port);
scm_putc('>', port);
return 1;
}
diff --git a/libguile/smob.c b/libguile/smob.c
index e447737bf..0778491f5 100644
--- a/libguile/smob.c
+++ b/libguile/smob.c
@@ -119,9 +119,9 @@ scm_smob_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
scm_puts (SCM_SMOBNAME (n) ? SCM_SMOBNAME (n) : "smob", port);
scm_putc (' ', port);
if (scm_smobs[n].size)
- scm_intprint (SCM_CELL_WORD_1 (exp), 16, port);
+ scm_uintprint (SCM_CELL_WORD_1 (exp), 16, port);
else
- scm_intprint (SCM_UNPACK (exp), 16, port);
+ scm_uintprint (SCM_UNPACK (exp), 16, port);
scm_putc ('>', port);
return 1;
}
diff --git a/libguile/stackchk.c b/libguile/stackchk.c
index 27da77ded..eaedd1c26 100644
--- a/libguile/stackchk.c
+++ b/libguile/stackchk.c
@@ -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);
}
diff --git a/libguile/struct.c b/libguile/struct.c
index 16bea0157..44bdd5131 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -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);
}
}
diff --git a/libguile/threads.c b/libguile/threads.c
index 297fce5cc..e6d23dcb8 100644
--- a/libguile/threads.c
+++ b/libguile/threads.c
@@ -164,9 +164,9 @@ thread_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
scm_thread *t = SCM_THREAD_DATA (exp);
scm_puts ("#<thread ", port);
- scm_intprint ((unsigned long)t->thread, 10, port);
+ scm_uintprint (t->thread, 10, port);
scm_puts (" (", port);
- scm_intprint ((unsigned long)t, 16, port);
+ scm_uintprint ((scm_t_bits)t, 16, port);
scm_puts (")>", port);
return 1;
}
diff --git a/libguile/throw.c b/libguile/throw.c
index 2ff8140f8..b5bbbaefe 100644
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -59,7 +59,7 @@ jmpbuffer_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
scm_puts ("#<jmpbuffer ", port);
scm_puts (JBACTIVE(exp) ? "(active) " : "(inactive) ", port);
- scm_intprint((long) JBJMPBUF (exp), 16, port);
+ scm_uintprint((scm_t_bits) JBJMPBUF (exp), 16, port);
scm_putc ('>', port);
return 1 ;
}
diff --git a/libguile/variable.c b/libguile/variable.c
index c63d1dbf4..18da68334 100644
--- a/libguile/variable.c
+++ b/libguile/variable.c
@@ -33,7 +33,7 @@ void
scm_i_variable_print (SCM exp, SCM port, scm_print_state *pstate)
{
scm_puts ("#<variable ", port);
- scm_intprint (SCM_UNPACK (exp), 16, port);
+ scm_uintprint (SCM_UNPACK (exp), 16, port);
scm_puts (" value: ", port);
scm_iprin1 (SCM_VARIABLE_REF (exp), port, pstate);
scm_putc('>', port);