Mercurial > hg > xemacs-beta
changeset 1849:21549d437f09
[xemacs-hg @ 2004-01-03 21:54:41 by james]
GCPROd variables cannot be declared REGISTER. Thanks to James McPherson.
| author | james |
|---|---|
| date | Sat, 03 Jan 2004 21:54:42 +0000 |
| parents | a186edab3fc8 |
| children | 38f35d20ac8c |
| files | src/ChangeLog src/doc.c src/eval.c src/fns.c src/lread.c |
| diffstat | 5 files changed, 15 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Fri Jan 02 22:50:24 2004 +0000 +++ b/src/ChangeLog Sat Jan 03 21:54:42 2004 +0000 @@ -1,3 +1,12 @@ +2004-01-03 James C. McPherson <james.mcpherson@optusnet.com.au> + + * doc.c (Fdocumentation_property): GCPROd variables cannot be + declared register. + * eval.c (Fprog1): Ditto. + * eval.c (Fprog2): Ditto. + * fns.c (Fnreverse): Ditto. + * lread.c (readevalloop): Ditto. + 2003-11-29 Jerry James <james@xemacs.org> * emodules.c (emodules_load): Remove dll_error parameter.
--- a/src/doc.c Fri Jan 02 22:50:24 2004 +0000 +++ b/src/doc.c Sat Jan 03 21:54:42 2004 +0000 @@ -390,7 +390,7 @@ (symbol, prop, raw)) { /* This function can GC */ - REGISTER Lisp_Object doc = Qnil; + Lisp_Object doc = Qnil; #ifdef I18N3 REGISTER Lisp_Object domain; #endif
--- a/src/eval.c Fri Jan 02 22:50:24 2004 +0000 +++ b/src/eval.c Sat Jan 03 21:54:42 2004 +0000 @@ -969,7 +969,7 @@ (args)) { /* This function can GC */ - REGISTER Lisp_Object val; + Lisp_Object val; struct gcpro gcpro1; val = Feval (XCAR (args)); @@ -994,7 +994,7 @@ (args)) { /* This function can GC */ - REGISTER Lisp_Object val; + Lisp_Object val; struct gcpro gcpro1; Feval (XCAR (args));
--- a/src/fns.c Fri Jan 02 22:50:24 2004 +0000 +++ b/src/fns.c Sat Jan 03 21:54:42 2004 +0000 @@ -1779,8 +1779,8 @@ (list)) { struct gcpro gcpro1, gcpro2; - REGISTER Lisp_Object prev = Qnil; - REGISTER Lisp_Object tail = list; + Lisp_Object prev = Qnil; + Lisp_Object tail = list; /* We gcpro our args; see `nconc' */ GCPRO2 (prev, tail);
--- a/src/lread.c Fri Jan 02 22:50:24 2004 +0000 +++ b/src/lread.c Sat Jan 03 21:54:42 2004 +0000 @@ -1364,7 +1364,7 @@ { /* This function can GC */ REGISTER Ichar c; - REGISTER Lisp_Object val = Qnil; + Lisp_Object val = Qnil; int speccount = specpdl_depth (); struct gcpro gcpro1, gcpro2; struct buffer *b = 0;