Mercurial > emacs

comparison src/alloc.c @ 3918:41c85710702d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mark_object): Add aborts in Lisp_Symbol case.
author Richard M. Stallman <rms@gnu.org>
date Tue, 29 Jun 1993 21:08:31 +0000
parents dbdcbcbe910a
children bdecedbd64db
comparison
equal deleted inserted replaced
3917:00ea0fc45685 3918:41c85710702d
1585 struct Lisp_Symbol *ptrx; 1585 struct Lisp_Symbol *ptrx;
1586 1586
1587 if (XMARKBIT (ptr->plist)) break; 1587 if (XMARKBIT (ptr->plist)) break;
1588 XMARK (ptr->plist); 1588 XMARK (ptr->plist);
1589 mark_object ((Lisp_Object *) &ptr->value); 1589 mark_object ((Lisp_Object *) &ptr->value);
1590 if ((unsigned int) ptr <= 4)
1591 abort ();
1590 mark_object (&ptr->function); 1592 mark_object (&ptr->function);
1593 if ((unsigned int) ptr <= 4)
1594 abort ();
1591 mark_object (&ptr->plist); 1595 mark_object (&ptr->plist);
1596 if ((unsigned int) ptr <= 4)
1597 abort ();
1592 XSETTYPE (*(Lisp_Object *) &ptr->name, Lisp_String); 1598 XSETTYPE (*(Lisp_Object *) &ptr->name, Lisp_String);
1593 mark_object (&ptr->name); 1599 mark_object (&ptr->name);
1600 if ((unsigned int) ptr <= 4)
1601 abort ();
1594 ptr = ptr->next; 1602 ptr = ptr->next;
1595 if (ptr) 1603 if (ptr)
1596 { 1604 {
1597 ptrx = ptr; /* Use of ptrx avoids compiler bug on Sun */ 1605 ptrx = ptr; /* Use of ptrx avoids compiler bug on Sun */
1598 XSETSYMBOL (obj, ptrx); 1606 XSETSYMBOL (obj, ptrx);