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

Remove REGISTER define. (#184)

Browse Source 
This was used to indicate that the value was allowed to live
in a register. Compilers are much better now and can handle
this themselves.

This helps get rid of more platform-specific ifdef-ery.
This commit is contained in:
Bruce Mitchener
2021-01-06 01:26:22 +07:00
committed by GitHub
parent 5b54a8c4eb
commit cb815c34a1
4 changed files with 19 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
src/fp.c
View File

@@ -48,10 +48,10 @@
/************************************************************************/
LispPTR N_OP_fplus2(LispPTR parg1, LispPTR parg2) {
REGISTER float arg1;
REGISTER float arg2;
REGISTER float result;
register DLword *wordp;
float arg1;
float arg2;
float result;
DLword *wordp;
N_MakeFloat(parg1, arg1, parg2);
N_MakeFloat(parg2, arg2, parg2);
@@ -75,9 +75,9 @@ LispPTR N_OP_fplus2(LispPTR parg1, LispPTR parg2) {
/************************************************************************/
LispPTR N_OP_fdifference(LispPTR parg1, LispPTR parg2) {
REGISTER float arg1, arg2;
REGISTER float result;
register DLword *wordp;
float arg1, arg2;
float result;
DLword *wordp;
N_MakeFloat(parg1, arg1, parg2);
N_MakeFloat(parg2, arg2, parg2);
@@ -101,9 +101,9 @@ LispPTR N_OP_fdifference(LispPTR parg1, LispPTR parg2) {
/************************************************************************/
LispPTR N_OP_ftimes2(LispPTR parg1, LispPTR parg2) {
REGISTER float arg1, arg2;
REGISTER float result;
register DLword *wordp;
float arg1, arg2;
float result;
DLword *wordp;
N_MakeFloat(parg1, arg1, parg2);
N_MakeFloat(parg2, arg2, parg2);
@@ -127,9 +127,9 @@ LispPTR N_OP_ftimes2(LispPTR parg1, LispPTR parg2) {
/************************************************************************/
LispPTR N_OP_fquotient(LispPTR parg1, LispPTR parg2) {
REGISTER float arg1, arg2;
REGISTER float result;
register DLword *wordp;
float arg1, arg2;
float result;
DLword *wordp;
N_MakeFloat(parg1, arg1, parg2);
N_MakeFloat(parg2, arg2, parg2);
@@ -154,7 +154,7 @@ LispPTR N_OP_fquotient(LispPTR parg1, LispPTR parg2) {
/************************************************************************/
LispPTR N_OP_fgreaterp(LispPTR parg1, LispPTR parg2) {
REGISTER float arg1, arg2;
float arg1, arg2;
N_MakeFloat(parg1, arg1, parg2);
N_MakeFloat(parg2, arg2, parg2);