github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-17 16:44:00 +00:00
Code Issues Projects Releases Wiki Activity

REGISTER is for floats. (#148)

Browse Source 
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.
This commit is contained in:
Bruce Mitchener 2020-12-31 07:16:03 +07:00 committed by GitHub
parent 7f7952cbad
commit 3b1bdd225f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lsthandl.c
View File

@ -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);

2
src/vars3.c
View File

@ -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); }

2
src/z2.c
View File

@ -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) {