Skip to content

Commit 3b1bdd2

Browse files
REGISTER is for floats. (#148)
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.
1 parent 7f7952c commit 3b1bdd2

File tree

3 files changed

+3
-3
lines changed

3 files changed

+3
-3
lines changed

src/lsthandl.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -91,7 +91,7 @@ LispPTR fmemb(register LispPTR item, register LispPTR list) {
9191
}
9292

9393
LispPTR N_OP_listget(register LispPTR plist, register LispPTR tos) {
94-
REGISTER struct cadr_cell cadrobj;
94+
struct cadr_cell cadrobj;
9595

9696
while (plist != NIL_PTR) {
9797
S_N_CHECKANDCADR2(plist, cadrobj, tos, plist);

src/vars3.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -143,7 +143,7 @@ N_OP_assoc
143143
*******************************************/
144144

145145
LispPTR N_OP_assoc(register LispPTR key, register LispPTR list) {
146-
REGISTER struct cadr_cell cadr1;
146+
struct cadr_cell cadr1;
147147
register LispPTR cdr; /* address of (cdr A-list); Lisp address */
148148

149149
if (list == NIL_PTR) { return (NIL_PTR); }

src/z2.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -45,7 +45,7 @@
4545

4646
/* N_OP_classoc() OP 33Q */
4747
LispPTR N_OP_classoc(LispPTR key, LispPTR list) {
48-
REGISTER struct cadr_cell cadr1;
48+
struct cadr_cell cadr1;
4949
register LispPTR cdrcell; /* address of (cdr A-list); Lisp address */
5050

5151
switch (key & SEGMASK) {

0 commit comments

Comments
 (0)