- Timestamp:
- Jun 30, 2008, 3:07:25 PM (13 years ago)
- Location:
- release/1.2/source/lisp-kernel
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.2/source/lisp-kernel/image.c
r8616 r9851 337 337 area *a = active_dynamic_area; 338 338 LispObj 339 *start = (LispObj *)(a->low + (tenured_area->static_dnodes << dnode_shift)),339 *start = (LispObj *)(a->low), 340 340 *end = (LispObj *) (a->active), 341 341 x1; -
release/1.2/source/lisp-kernel/ppc-gc.c
r8493 r9851 1795 1795 header_tag = fulltag_of(header); 1796 1796 if (immheader_tag_p(header_tag)) { 1797 *ref = purify_object(obj, dest); 1797 if (header_subtag(header) != subtag_macptr) { 1798 *ref = purify_object(obj, dest); 1799 } 1798 1800 } 1799 1801 } -
release/1.2/source/lisp-kernel/x86-gc.c
r8547 r9851 1761 1761 header_tag = fulltag_of(header); 1762 1762 if (immheader_tag_p(header_tag)) { 1763 new = purify_object(obj, dest); 1764 *ref = new; 1765 changed = (new != obj); 1763 if (header_subtag(header) != subtag_macptr) { 1764 new = purify_object(obj, dest); 1765 *ref = new; 1766 changed = (new != obj); 1767 } 1766 1768 } 1767 1769 }
Note: See TracChangeset
for help on using the changeset viewer.