From 3dccf4b1421804be3a30a664e5769f3d652a1c8d Mon Sep 17 00:00:00 2001
From: Bruce Mitchener <bruce.mitchener@gmail.com>
Date: Thu, 31 Dec 2020 07:04:08 +0700
Subject: [PATCH] REGISTER is for floats.

According to `inc/version.h`, `REGISTER` is for floats which may
or may not be able to be in registers due to the `FPTEST` macro
implementation. We shouldn't be using it here for non-float
data.
---
 src/lsthandl.c | 2 +-
 src/vars3.c    | 2 +-
 src/z2.c       | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/lsthandl.c b/src/lsthandl.c
index 6274784b..eeb61196 100644
--- a/src/lsthandl.c
+++ b/src/lsthandl.c
@@ -91,7 +91,7 @@ LispPTR fmemb(register LispPTR item, register LispPTR list) {
   }
 
 LispPTR N_OP_listget(register LispPTR plist, register LispPTR tos) {
-  REGISTER struct cadr_cell cadrobj;
+  struct cadr_cell cadrobj;
 
   while (plist != NIL_PTR) {
     S_N_CHECKANDCADR2(plist, cadrobj, tos, plist);
diff --git a/src/vars3.c b/src/vars3.c
index 6c68d681..f7326326 100644
--- a/src/vars3.c
+++ b/src/vars3.c
@@ -143,7 +143,7 @@ N_OP_assoc
 *******************************************/
 
 LispPTR N_OP_assoc(register LispPTR key, register LispPTR list) {
-  REGISTER struct cadr_cell cadr1;
+  struct cadr_cell cadr1;
   register LispPTR cdr; /* address of (cdr A-list); Lisp address */
 
   if (list == NIL_PTR) { return (NIL_PTR); }
diff --git a/src/z2.c b/src/z2.c
index 9353d7bb..ea419621 100644
--- a/src/z2.c
+++ b/src/z2.c
@@ -45,7 +45,7 @@
 
 /*   N_OP_classoc()  OP 33Q  */
 LispPTR N_OP_classoc(LispPTR key, LispPTR list) {
-  REGISTER struct cadr_cell cadr1;
+  struct cadr_cell cadr1;
   register LispPTR cdrcell; /* address of (cdr A-list); Lisp address */
 
   switch (key & SEGMASK) {