Mercurial > hg > xemacs-beta

comparison src/symbols.c @ 4924:ba353d7b0ce8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
temporarily back out part of patch to avoid compile probs -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-02-03 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): Temporarily back out staticpro-related changes in symbols.c and symeval.h to fix compile problems, will put back when `latest-fix' workspace gets merged in.
author Ben Wing <ben@xemacs.org>
date Wed, 03 Feb 2010 09:30:49 -0600
parents 17362f371cc2
children cbe181529c34
comparison
equal deleted inserted replaced
4923:8ee3c10d1ed5 4924:ba353d7b0ce8
3560 for (i = 0; i < len; i++) 3560 for (i = 0; i < len; i++)
3561 if (temp[i] == '_') 3561 if (temp[i] == '_')
3562 temp[i] = '-'; 3562 temp[i] = '-';
3563 *location = Fintern (make_string ((const Ibyte *) temp, len), Qnil); 3563 *location = Fintern (make_string ((const Ibyte *) temp, len), Qnil);
3564 if (dump_p) 3564 if (dump_p)
3565 staticpro_1 (location, name); 3565 staticpro (location);
3566 else 3566 else
3567 staticpro_nodump_1 (location, name); 3567 staticpro_nodump (location);
3568 } 3568 }
3569 3569
3570 void 3570 void
3571 defsymbol_massage_name_nodump (Lisp_Object *location, const char *name) 3571 defsymbol_massage_name_nodump (Lisp_Object *location, const char *name)
3572 { 3572 {
3596 defsymbol_nodump (Lisp_Object *location, const char *name) 3596 defsymbol_nodump (Lisp_Object *location, const char *name)
3597 { 3597 {
3598 *location = Fintern (make_string_nocopy ((const Ibyte *) name, 3598 *location = Fintern (make_string_nocopy ((const Ibyte *) name,
3599 strlen (name)), 3599 strlen (name)),
3600 Qnil); 3600 Qnil);
3601 staticpro_nodump_1 (location, name); 3601 staticpro_nodump (location);
3602 } 3602 }
3603 3603
3604 void 3604 void
3605 defsymbol (Lisp_Object *location, const char *name) 3605 defsymbol (Lisp_Object *location, const char *name)
3606 { 3606 {
3607 *location = Fintern (make_string_nocopy ((const Ibyte *) name, 3607 *location = Fintern (make_string_nocopy ((const Ibyte *) name,
3608 strlen (name)), 3608 strlen (name)),
3609 Qnil); 3609 Qnil);
3610 staticpro_1 (location, name); 3610 staticpro (location);
3611 } 3611 }
3612 3612
3613 void 3613 void
3614 defkeyword (Lisp_Object *location, const char *name) 3614 defkeyword (Lisp_Object *location, const char *name)
3615 { 3615 {