aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
authorKarl Heuer1995-03-15 01:57:05 +0000
committerKarl Heuer1995-03-15 01:57:05 +0000
commitb875d3f7a4f501f5cfcb096b3ec970c07732b7ac (patch)
tree2b7cef76cecd76695dca05823e9a8962801af935 /src/alloc.c
parentb4f0ee5d2931ba92faa3392bd91afd59de766d68 (diff)
downloademacs-b875d3f7a4f501f5cfcb096b3ec970c07732b7ac.tar.gz
emacs-b875d3f7a4f501f5cfcb096b3ec970c07732b7ac.zip
(mark_kboards): Renamed from mark_perdisplays.
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c22
1 files changed, 11 insertions, 11 deletions
diff --git a/src/alloc.c b/src/alloc.c
index 3045e9cea53..e7416bf7f31 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -154,7 +154,7 @@ int stack_copy_size;
154/* Non-zero means ignore malloc warnings. Set during initialization. */ 154/* Non-zero means ignore malloc warnings. Set during initialization. */
155int ignore_warnings; 155int ignore_warnings;
156 156
157static void mark_object (), mark_buffer (), mark_perdisplays (); 157static void mark_object (), mark_buffer (), mark_kboards ();
158static void clear_marks (), gc_sweep (); 158static void clear_marks (), gc_sweep ();
159static void compact_strings (); 159static void compact_strings ();
160 160
@@ -1446,7 +1446,7 @@ Garbage collection happens automatically if you cons more than\n\
1446 XMARK (backlist->args[i]); 1446 XMARK (backlist->args[i]);
1447 } 1447 }
1448 } 1448 }
1449 mark_perdisplays (); 1449 mark_kboards ();
1450 1450
1451 gc_sweep (); 1451 gc_sweep ();
1452 1452
@@ -1763,7 +1763,7 @@ mark_object (objptr)
1763 case Lisp_Misc_Boolfwd: 1763 case Lisp_Misc_Boolfwd:
1764 case Lisp_Misc_Objfwd: 1764 case Lisp_Misc_Objfwd:
1765 case Lisp_Misc_Buffer_Objfwd: 1765 case Lisp_Misc_Buffer_Objfwd:
1766 case Lisp_Misc_Display_Objfwd: 1766 case Lisp_Misc_Kboard_Objfwd:
1767 /* Don't bother with Lisp_Buffer_Objfwd, 1767 /* Don't bother with Lisp_Buffer_Objfwd,
1768 since all markable slots in current buffer marked anyway. */ 1768 since all markable slots in current buffer marked anyway. */
1769 /* Don't need to do Lisp_Objfwd, since the places they point 1769 /* Don't need to do Lisp_Objfwd, since the places they point
@@ -1868,18 +1868,18 @@ mark_buffer (buf)
1868} 1868}
1869 1869
1870 1870
1871/* Mark the pointers in the perdisplay objects. */ 1871/* Mark the pointers in the kboard objects. */
1872 1872
1873static void 1873static void
1874mark_perdisplays () 1874mark_kboards ()
1875{ 1875{
1876 PERDISPLAY *perd; 1876 KBOARD *kb;
1877 for (perd = all_perdisplays; perd; perd = perd->next_perdisplay) 1877 for (kb = all_kboards; kb; kb = kb->next_kboard)
1878 { 1878 {
1879 mark_object (&perd->prefix_factor); 1879 mark_object (&kb->prefix_factor);
1880 mark_object (&perd->prefix_value); 1880 mark_object (&kb->prefix_value);
1881 mark_object (&perd->kbd_queue); 1881 mark_object (&kb->kbd_queue);
1882 mark_object (&perd->Vlast_kbd_macro); 1882 mark_object (&kb->Vlast_kbd_macro);
1883 } 1883 }
1884} 1884}
1885 1885