Mercurial > hg > xemacs-beta

comparison src/opaque.c @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 557eaa0339bf
children c5d627a313b1
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
89 static void 89 static void
90 print_opaque (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 90 print_opaque (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
91 { 91 {
92 char buf[200]; 92 char buf[200];
93 if (INTP (XOPAQUE (obj)->size_or_chain)) 93 if (INTP (XOPAQUE (obj)->size_or_chain))
94 sprintf (buf, "#<INTERNAL EMACS BUG (opaque, size=%ld) 0x%p>", 94 sprintf (buf, "#<INTERNAL EMACS BUG (opaque, size=%ld) 0x%lx>",
95 (long) XOPAQUE_SIZE (obj), (void *) XPNTR (obj)); 95 (long) XOPAQUE_SIZE (obj), (unsigned long) XPNTR (obj));
96 else 96 else
97 sprintf (buf, "#<INTERNAL EMACS BUG (opaque, freed) 0x%p>", 97 sprintf (buf, "#<INTERNAL EMACS BUG (opaque, freed) 0x%lx>",
98 (void *) XPNTR (obj)); 98 (unsigned long) XPNTR (obj));
99 write_c_string (buf, printcharfun); 99 write_c_string (buf, printcharfun);
100 } 100 }
101 101
102 static unsigned int 102 static unsigned int
103 sizeof_opaque (CONST void *header) 103 sizeof_opaque (CONST void *header)