comparison src/alloc.c @ 4212:a696547fb51e

(compact_strings): Add USE_TEXT_PROPERTIES conditional.
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Jul 1993 22:29:26 +0000
parents 0b32ee899a3a
children 15b073a6c860
comparison
equal deleted inserted replaced
4211:b2e422a86641 4212:a696547fb51e
2080 XSET (*objptr, Lisp_String, newaddr); 2080 XSET (*objptr, Lisp_String, newaddr);
2081 } 2081 }
2082 /* Store the actual size in the size field. */ 2082 /* Store the actual size in the size field. */
2083 newaddr->size = size; 2083 newaddr->size = size;
2084 2084
2085 #ifdef USE_TEXT_PROPERTIES
2085 /* Now that the string has been relocated, rebalance its 2086 /* Now that the string has been relocated, rebalance its
2086 interval tree, and update the tree's parent pointer. */ 2087 interval tree, and update the tree's parent pointer. */
2087 if (! NULL_INTERVAL_P (newaddr->intervals)) 2088 if (! NULL_INTERVAL_P (newaddr->intervals))
2088 { 2089 {
2089 UNMARK_BALANCE_INTERVALS (newaddr->intervals); 2090 UNMARK_BALANCE_INTERVALS (newaddr->intervals);
2090 XSET (* (Lisp_Object *) &newaddr->intervals->parent, 2091 XSET (* (Lisp_Object *) &newaddr->intervals->parent,
2091 Lisp_String, 2092 Lisp_String,
2092 newaddr); 2093 newaddr);
2093 } 2094 }
2095 #endif /* USE_TEXT_PROPERTIES */
2094 } 2096 }
2095 pos += STRING_FULLSIZE (size); 2097 pos += STRING_FULLSIZE (size);
2096 } 2098 }
2097 } 2099 }
2098 2100