small fixes in perl modules

[libucw.git] / lib / conf-dump.c

diff --git a/lib/conf-dump.c b/lib/conf-dump.c
index 073bf129e4cd5096a2a11ca6c1a3dc609a993015..f4af30ac626514b0e883403b80274005807c866e 100644 (file)
--- a/lib/conf-dump.c
+++ b/lib/conf-dump.c
@@ -27,7 +27,7 @@ dump_basic(struct fastbuf *fb, void *ptr, enum cf_type type, union cf_union *u)
 {
   switch (type) {
     case CT_INT:       bprintf(fb, "%d ", *(uns*)ptr); break;
-    case CT_U64:       bprintf(fb, "%llu ", *(u64*)ptr); break;
+    case CT_U64:       bprintf(fb, "%llu ", (long long) *(u64*)ptr); break;
     case CT_DOUBLE:    bprintf(fb, "%lg ", *(double*)ptr); break;
     case CT_IP:                bprintf(fb, "%08x ", *(uns*)ptr); break;
     case CT_STRING:
@@ -53,7 +53,7 @@ static byte *class_names[] = { "end", "static", "dynamic", "parser", "section",
 static void
 dump_item(struct fastbuf *fb, struct cf_item *item, int level, void *ptr)
 {
-  ptr += (addr_int_t) item->ptr;
+  ptr += (uintptr_t) item->ptr;
   enum cf_type type = item->type;
   uns size = cf_type_size(item->type, item->u.utype);
   int i;