Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2a1c1d71
Commit
2a1c1d71
authored
Sep 11, 2003
by
Stefan Monnier
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(mark_byte_stack, unmark_byte_stack): Ignore the markbit.
parent
9f7b135d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
25 deletions
+4
-25
src/bytecode.c
src/bytecode.c
+4
-25
No files found.
src/bytecode.c
View file @
2a1c1d71
...
...
@@ -286,27 +286,13 @@ mark_byte_stack ()
The culprit is found in the frame of Fbyte_code where the
address of its local variable `stack' is equal to the
recorded value of `stack' here. */
if
(
!
stack
->
top
)
abort
();
eassert
(
stack
->
top
);
for
(
obj
=
stack
->
bottom
;
obj
<=
stack
->
top
;
++
obj
)
if
(
!
XMARKBIT
(
*
obj
))
{
mark_object
(
*
obj
);
XMARK
(
*
obj
);
}
if
(
!
XMARKBIT
(
stack
->
byte_string
))
{
mark_object
(
stack
->
byte_string
);
XMARK
(
stack
->
byte_string
);
}
mark_object
(
*
obj
);
if
(
!
XMARKBIT
(
stack
->
constants
))
{
mark_object
(
stack
->
constants
);
XMARK
(
stack
->
constants
);
}
mark_object
(
stack
->
byte_string
);
mark_object
(
stack
->
constants
);
}
}
...
...
@@ -318,16 +304,9 @@ void
unmark_byte_stack
()
{
struct
byte_stack
*
stack
;
Lisp_Object
*
obj
;
for
(
stack
=
byte_stack_list
;
stack
;
stack
=
stack
->
next
)
{
for
(
obj
=
stack
->
bottom
;
obj
<=
stack
->
top
;
++
obj
)
XUNMARK
(
*
obj
);
XUNMARK
(
stack
->
byte_string
);
XUNMARK
(
stack
->
constants
);
if
(
stack
->
byte_string_start
!=
SDATA
(
stack
->
byte_string
))
{
int
offset
=
stack
->
pc
-
stack
->
byte_string_start
;
...
...
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