Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 245:51092a27c943 r20-5b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b21
author cvs
date Mon, 13 Aug 2007 10:17:54 +0200
parents f220cc83d72e
children e70b3a057e12
comparison
equal deleted inserted replaced
244:78d4f1140794 245:51092a27c943
1192 } 1192 }
1193 1193
1194 static unsigned int 1194 static unsigned int
1195 size_vector (CONST void *lheader) 1195 size_vector (CONST void *lheader)
1196 { 1196 {
1197 struct Lisp_Vector *p = lheader; 1197 CONST struct Lisp_Vector *p = lheader;
1198 /* 1198 /*
1199 * -1 because struct Lisp_Vector includes 1 slot 1199 * -1 because struct Lisp_Vector includes 1 slot
1200 */ 1200 */
1201 return sizeof (struct Lisp_Vector) + 1201 return sizeof (struct Lisp_Vector) +
1202 ((p->size - 1) * sizeof (Lisp_Object)) ; 1202 ((p->size - 1) * sizeof (Lisp_Object)) ;
1781 #endif 1781 #endif
1782 p->name = XSTRING (str); 1782 p->name = XSTRING (str);
1783 p->plist = Qnil; 1783 p->plist = Qnil;
1784 p->value = Qunbound; 1784 p->value = Qunbound;
1785 p->function = Qunbound; 1785 p->function = Qunbound;
1786 p->obarray = Qnil;
1786 symbol_next (p) = 0; 1787 symbol_next (p) = 0;
1787 XSETSYMBOL (val, p); 1788 XSETSYMBOL (val, p);
1788 return val; 1789 return val;
1789 } 1790 }
1790 1791