Mercurial > hg > xemacs-beta
diff src/opaque.c @ 173:8eaf7971accc r20-3b13
Import from CVS: tag r20-3b13
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:49:09 +0200 |
| parents | 376386a54a3c |
| children | 3d6bfa290dbd |
line wrap: on
line diff
--- a/src/opaque.c Mon Aug 13 09:47:55 2007 +0200 +++ b/src/opaque.c Mon Aug 13 09:49:09 2007 +0200 @@ -76,7 +76,7 @@ assert (!INTP (XOPAQUE (obj)->size_or_chain)); #endif if (INTP (XOPAQUE (obj)->size_or_chain) && XOPAQUE_MARKFUN (obj)) - return (XOPAQUE_MARKFUN (obj)) (obj, markobj); + return XOPAQUE_MARKFUN (obj) (obj, markobj); else return XOPAQUE (obj)->size_or_chain; } @@ -87,12 +87,11 @@ { char buf[200]; if (INTP (XOPAQUE (obj)->size_or_chain)) - sprintf (buf, "#<INTERNAL EMACS BUG (opaque, size=%d) 0x%x>", - (EMACS_INT) XOPAQUE_SIZE (obj), - (EMACS_INT) XPNTR (obj)); + sprintf (buf, "#<INTERNAL EMACS BUG (opaque, size=%ld) 0x%p>", + (long) XOPAQUE_SIZE (obj), (void *) XPNTR (obj)); else - sprintf (buf, "#<INTERNAL EMACS BUG (opaque, freed) 0x%x>", - (EMACS_INT) XPNTR (obj)); + sprintf (buf, "#<INTERNAL EMACS BUG (opaque, freed) 0x%p>", + (void *) XPNTR (obj)); write_c_string (buf, printcharfun); }