Changeset 12924
- Timestamp:
- Oct 8, 2009, 5:41:11 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/watchpoints/lisp-kernel/x86-gc.c
r12815 r12924 2813 2813 */ 2814 2814 2815 static inline void2815 static inline int 2816 2816 wp_maybe_update(LispObj *p, LispObj old, LispObj new) 2817 2817 { 2818 2818 if (*p == old) { 2819 2819 *p = new; 2820 } 2820 return true; 2821 } 2822 return false; 2821 2823 } 2822 2824 … … 2848 2850 } else if (nodeheader_tag_p(tag_n)) { 2849 2851 nwords = header_element_count(node); 2850 2851 2852 nwords += 1 - (nwords & 1); 2852 2853 … … 2859 2860 nwords -= skip; 2860 2861 while(skip--) { 2861 if (*p == old) *p = new;2862 wp_maybe_update(p, old, new); 2862 2863 p++; 2863 2864 } … … 2868 2869 nwords >>= 1; 2869 2870 while(nwords--) { 2870 if (*p == old && hashp) { 2871 *p = new; 2871 if (wp_maybe_update(p, old, new) && hashp) { 2872 2872 hashp->flags |= nhash_key_moved_mask; 2873 2873 hashp = NULL; 2874 2874 } 2875 2875 p++; 2876 if (*p == old) *p = new;2876 wp_maybe_update(p, old, new); 2877 2877 p++; 2878 2878 }
Note: See TracChangeset
for help on using the changeset viewer.