Mercurial > hg > xemacs-beta

comparison src/print.c @ 3092:141c2920ea48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-11-25 01:41:31 by crestani] Incremental Garbage Collector
author crestani
date Fri, 25 Nov 2005 01:42:08 +0000
parents d9ca850d40de
children d674024a8674
comparison
equal deleted inserted replaced
3091:c22d8984148c 3092:141c2920ea48
1731 break; 1731 break;
1732 } 1732 }
1733 1733
1734 if (STRINGP (obj)) 1734 if (STRINGP (obj))
1735 { 1735 {
1736 #ifdef NEW_GC
1737 if (!debug_can_access_memory (XSTRING_DATA (obj),
1738 XSTRING_LENGTH (obj)))
1739 {
1740 write_fmt_string
1741 (printcharfun,
1742 "#<EMACS BUG: %p (BAD STRING DATA %p)>",
1743 lheader, XSTRING_DATA (obj));
1744 break;
1745 }
1746 #else /* not NEW_GC */
1736 Lisp_String *l = (Lisp_String *) lheader; 1747 Lisp_String *l = (Lisp_String *) lheader;
1737 if (!debug_can_access_memory (l->data_, l->size_)) 1748 if (!debug_can_access_memory (l->data_, l->size_))
1738 { 1749 {
1739 write_fmt_string 1750 write_fmt_string
1740 (printcharfun, 1751 (printcharfun,
1741 "#<EMACS BUG: %p (BAD STRING DATA %p)>", 1752 "#<EMACS BUG: %p (BAD STRING DATA %p)>",
1742 lheader, l->data_); 1753 lheader, l->data_);
1743 break; 1754 break;
1744 } 1755 }
1756 #endif /* not NEW_GC */
1745 } 1757 }
1746 } 1758 }
1747 1759
1748 if (LHEADER_IMPLEMENTATION (lheader)->printer) 1760 if (LHEADER_IMPLEMENTATION (lheader)->printer)
1749 ((LHEADER_IMPLEMENTATION (lheader)->printer) 1761 ((LHEADER_IMPLEMENTATION (lheader)->printer)
2217 (EMACS_INT) ((struct lrecord_header *) header)->uid); 2229 (EMACS_INT) ((struct lrecord_header *) header)->uid);
2218 #else /* not MC_ALLOC */ 2230 #else /* not MC_ALLOC */
2219 debug_out ("#<%s addr=0x%lx uid=0x%lx>", 2231 debug_out ("#<%s addr=0x%lx uid=0x%lx>",
2220 LHEADER_IMPLEMENTATION (header)->name, 2232 LHEADER_IMPLEMENTATION (header)->name,
2221 (EMACS_INT) header, 2233 (EMACS_INT) header,
2222 LHEADER_IMPLEMENTATION (header)->basic_p ? 2234 (EMACS_INT) (LHEADER_IMPLEMENTATION (header)->basic_p ?
2223 ((struct lrecord_header *) header)->uid : 2235 ((struct lrecord_header *) header)->uid :
2224 ((struct old_lcrecord_header *) header)->uid); 2236 ((struct old_lcrecord_header *) header)->uid));
2225 #endif /* not MC_ALLOC */ 2237 #endif /* not MC_ALLOC */
2226 } 2238 }
2227 2239
2228 inhibit_non_essential_conversion_operations = 0; 2240 inhibit_non_essential_conversion_operations = 0;
2229 } 2241 }