Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
084b1a0c
Commit
084b1a0c
authored
Feb 03, 1995
by
Karl Heuer
Browse files
(mark_perdisplays): New function.
(Fgarbage_collect): Call it.
parent
a2d3b8ba
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
1 deletion
+17
-1
src/alloc.c
src/alloc.c
+17
-1
No files found.
src/alloc.c
View file @
084b1a0c
...
...
@@ -130,7 +130,7 @@ int stack_copy_size;
/* Non-zero means ignore malloc warnings. Set during initialization. */
int
ignore_warnings
;
static
void
mark_object
(),
mark_buffer
();
static
void
mark_object
(),
mark_buffer
(),
mark_perdisplays
();
static
void
clear_marks
(),
gc_sweep
();
static
void
compact_strings
();
...
...
@@ -1358,6 +1358,7 @@ Garbage collection happens automatically if you cons more than\n\
XMARK
(
backlist
->
args
[
i
]);
}
}
mark_perdisplays
();
gc_sweep
();
...
...
@@ -1777,6 +1778,21 @@ mark_buffer (buf)
mark_buffer
(
base_buffer
);
}
}
/* Mark the pointers in the perdisplay objects. */
static
void
mark_perdisplays
()
{
PERDISPLAY
*
perd
;
for
(
perd
=
all_perdisplays
;
perd
;
perd
=
perd
->
next_perdisplay
)
{
mark_object
(
&
perd
->
Vprefix_arg
);
mark_object
(
&
perd
->
Vcurrent_prefix_arg
);
mark_object
(
&
perd
->
kbd_buffer_frame_or_window
);
}
}
/* Sweep: find all structures not marked, and free them. */
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment