comparison src/extents.c @ 211:78478c60bfcd r20-4b4

Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents e45d5e7c476e
children d44af0c54775
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
3004 if (NILP (v)) continue; 3004 if (NILP (v)) continue;
3005 print_internal (XCAR (tail), printcharfun, escapeflag); 3005 print_internal (XCAR (tail), printcharfun, escapeflag);
3006 write_c_string (" ", printcharfun); 3006 write_c_string (" ", printcharfun);
3007 } 3007 }
3008 3008
3009 sprintf (buf, "0x%p", ext); 3009 sprintf (buf, "0x%lx", (unsigned long int) ext);
3010 write_c_string (buf, printcharfun); 3010 write_c_string (buf, printcharfun);
3011 } 3011 }
3012 3012
3013 static void 3013 static void
3014 print_extent (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 3014 print_extent (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)