# HG changeset patch
# User james
# Date 1073166882 0
# Node ID 21549d437f090861513e3a5c784a80277af8ae12
# Parent  a186edab3fc8ceb5fe4619c4945fa6f905c5f317
[xemacs-hg @ 2004-01-03 21:54:41 by james]
GCPROd variables cannot be declared REGISTER.  Thanks to James McPherson.

diff -r a186edab3fc8 -r 21549d437f09 src/ChangeLog
--- 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.
diff -r a186edab3fc8 -r 21549d437f09 src/doc.c
--- 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
diff -r a186edab3fc8 -r 21549d437f09 src/eval.c
--- 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));
diff -r a186edab3fc8 -r 21549d437f09 src/fns.c
--- 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);
diff -r a186edab3fc8 -r 21549d437f09 src/lread.c
--- 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;