Mercurial > emacs
comparison src/alloc.c @ 1957:54c8c66cd9ac
(mark_interval): Add ignored arg.
(mark_interval_tree): Pass new arg to traverse_intervals.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 25 Feb 1993 20:24:25 +0000 |
| parents | def7b9c64935 |
| children | 73ce9dd21093 |
comparison
equal
deleted
inserted
replaced
| 1956:02bb7721b67c | 1957:54c8c66cd9ac |
|---|---|
| 246 static int total_free_intervals, total_intervals; | 246 static int total_free_intervals, total_intervals; |
| 247 | 247 |
| 248 /* Mark the pointers of one interval. */ | 248 /* Mark the pointers of one interval. */ |
| 249 | 249 |
| 250 static void | 250 static void |
| 251 mark_interval (i) | 251 mark_interval (i, dummy) |
| 252 register INTERVAL i; | 252 register INTERVAL i; |
| 253 Lisp_Object dummy; | |
| 253 { | 254 { |
| 254 if (XMARKBIT (i->plist)) | 255 if (XMARKBIT (i->plist)) |
| 255 abort (); | 256 abort (); |
| 256 mark_object (&i->plist); | 257 mark_object (&i->plist); |
| 257 XMARK (i->plist); | 258 XMARK (i->plist); |
| 262 register INTERVAL tree; | 263 register INTERVAL tree; |
| 263 { | 264 { |
| 264 if (XMARKBIT (tree->plist)) | 265 if (XMARKBIT (tree->plist)) |
| 265 return; | 266 return; |
| 266 | 267 |
| 267 traverse_intervals (tree, 1, 0, mark_interval); | 268 traverse_intervals (tree, 1, 0, mark_interval, Qnil); |
| 268 } | 269 } |
| 269 | 270 |
| 270 #define MARK_INTERVAL_TREE(i) \ | 271 #define MARK_INTERVAL_TREE(i) \ |
| 271 { if (!NULL_INTERVAL_P (i)) mark_interval_tree (i); } | 272 { if (!NULL_INTERVAL_P (i)) mark_interval_tree (i); } |
| 272 | 273 |