Mercurial > hg > xemacs-beta

comparison src/symbols.c @ 4971:bcdf496e49d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
put back patch to get more informative staticpro debugging -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-02-04 Ben Wing <ben@xemacs.org> * symbols.c (defsymbol_massage_name_1): * symbols.c (defsymbol_nodump): * symbols.c (defsymbol): * symbols.c (defkeyword): * symeval.h (DEFVAR_SYMVAL_FWD_OBJECT): Put this back again: Make the various calls to staticpro() instead call staticpro_1(), passing in the name of the C var being staticpro'ed, so that it shows up in staticpro_names. Otherwise staticpro_names just has 1000+ copies of the word `location'.
author Ben Wing <ben@xemacs.org>
date Thu, 04 Feb 2010 05:55:25 -0600
parents cbe181529c34
children 4234fd5a7b17
comparison
equal deleted inserted replaced
4970:5c89ceb69819 4971:bcdf496e49d0
3619 for (i = 0; i < len; i++) 3619 for (i = 0; i < len; i++)
3620 if (temp[i] == '_') 3620 if (temp[i] == '_')
3621 temp[i] = '-'; 3621 temp[i] = '-';
3622 *location = Fintern (make_string ((const Ibyte *) temp, len), Qnil); 3622 *location = Fintern (make_string ((const Ibyte *) temp, len), Qnil);
3623 if (dump_p) 3623 if (dump_p)
3624 staticpro (location); 3624 staticpro_1 (location, name);
3625 else 3625 else
3626 staticpro_nodump (location); 3626 staticpro_nodump_1 (location, name);
3627 } 3627 }
3628 3628
3629 void 3629 void
3630 defsymbol_massage_name_nodump (Lisp_Object *location, const Ascbyte *name) 3630 defsymbol_massage_name_nodump (Lisp_Object *location, const Ascbyte *name)
3631 { 3631 {
3655 defsymbol_nodump (Lisp_Object *location, const Ascbyte *name) 3655 defsymbol_nodump (Lisp_Object *location, const Ascbyte *name)
3656 { 3656 {
3657 *location = Fintern (make_string_nocopy ((const Ibyte *) name, 3657 *location = Fintern (make_string_nocopy ((const Ibyte *) name,
3658 strlen (name)), 3658 strlen (name)),
3659 Qnil); 3659 Qnil);
3660 staticpro_nodump (location); 3660 staticpro_nodump_1 (location, name);
3661 } 3661 }
3662 3662
3663 void 3663 void
3664 defsymbol (Lisp_Object *location, const Ascbyte *name) 3664 defsymbol (Lisp_Object *location, const Ascbyte *name)
3665 { 3665 {
3666 *location = Fintern (make_string_nocopy ((const Ibyte *) name, 3666 *location = Fintern (make_string_nocopy ((const Ibyte *) name,
3667 strlen (name)), 3667 strlen (name)),
3668 Qnil); 3668 Qnil);
3669 staticpro (location); 3669 staticpro_1 (location, name);
3670 } 3670 }
3671 3671
3672 void 3672 void
3673 defkeyword (Lisp_Object *location, const Ascbyte *name) 3673 defkeyword (Lisp_Object *location, const Ascbyte *name)
3674 { 3674 {