diff src/vdb.c @ 4123:5333f383efbd

[xemacs-hg @ 2007-08-17 08:04:25 by crestani] 2007-08-15 Marcus Crestani <crestani@xemacs.org> * input-method-xlib.c (EmacsFreeXIMStyles): * lisp.h: * process-unix.c (connect_to_file_descriptor): * process-unix.c (create_bidirectional_pipe): * process-unix.c (unix_create_process): * process-unix.c (unix_open_network_stream): * process-unix.c (unix_open_multicast_group): Convert pointers to EMACS_INTs instead of ints. * vdb.c (Ftest_vdb): Print adresses as pointers.
author crestani
date Fri, 17 Aug 2007 08:04:28 +0000
parents 229bd619740a
children f395ee7ad844
line wrap: on
line diff
--- a/src/vdb.c	Fri Aug 17 08:01:23 2007 +0000
+++ b/src/vdb.c	Fri Aug 17 08:04:28 2007 +0000
@@ -90,9 +90,8 @@
      protection of PROT_READ|PROT_WRITE. */
   p = (Rawbyte *) mc_alloc (mc_get_page_size());
   set_lheader_implementation ((struct lrecord_header *) p, &lrecord_cons);
-  fprintf (stderr, "Allocate p: [%x ... %x], length %d\n", 
-	   (int) p, (int) (p + mc_get_page_size ()), 
-	   (int) mc_get_page_size ());
+  fprintf (stderr, "Allocate p: [%p ... %p], length %d\n", 
+	   p, p + mc_get_page_size (), (int) mc_get_page_size ());
 
   /* Test read. */
   fprintf (stderr, "Attempt to read p[666]... ");
@@ -126,11 +125,11 @@
   vdb_unprotect (p, mc_get_page_size ());
   for (count = Dynarr_length (page_fault_table); count; count--)
     if (Dynarr_at (page_fault_table, count - 1) == &p[666])
-      fprintf (stderr, "VALID page fault at %x\n",
-	       (int) Dynarr_at (page_fault_table, count - 1));
+      fprintf (stderr, "VALID page fault at %p\n",
+	       Dynarr_at (page_fault_table, count - 1));
     else
-      fprintf (stderr, "WRONG page fault at %x\n",
-	       (int) Dynarr_at (page_fault_table, count - 1));
+      fprintf (stderr, "WRONG page fault at %p\n",
+	       Dynarr_at (page_fault_table, count - 1));
   Dynarr_free (page_fault_table);
   return Qnil;
 }