Commit f4a3a8c9 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(a_write): Verify that *annot is a cons.

parent 7d637a0d
...@@ -3296,7 +3296,7 @@ a_write (desc, addr, len, pos, annot) ...@@ -3296,7 +3296,7 @@ a_write (desc, addr, len, pos, annot)
int nextpos; int nextpos;
int lastpos = pos + len; int lastpos = pos + len;
while (1) while (CONSP (*annot))
{ {
tem = Fcar_safe (Fcar (*annot)); tem = Fcar_safe (Fcar (*annot));
if (INTEGERP (tem) && XINT (tem) >= pos && XFASTINT (tem) <= lastpos) if (INTEGERP (tem) && XINT (tem) >= pos && XFASTINT (tem) <= lastpos)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment