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

Wholesale removal of deprecated register attribute from all source files

Browse Source
This commit is contained in:
Nick Briggs
2022-08-15 15:04:07 -07:00
parent 5c0349cc69
commit 873d4927ce
107 changed files with 777 additions and 777 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/eqf.c
View File

@@ -79,8 +79,8 @@ BIGNUM (integer that can't be represented bigger than 32 bits)
/* */
/************************************************************************/
LispPTR N_OP_clequal(register int arg1, register int arg2) {
register int type;
LispPTR N_OP_clequal(int arg1, int arg2) {
int type;
if (arg2 == arg1) return (ATOM_T);
IF_IMMEDIATE(arg1, return (NIL), return (NIL));
@@ -128,8 +128,8 @@ LispPTR N_OP_clequal(register int arg1, register int arg2) {
/* */
/************************************************************************/
LispPTR N_OP_eqlop(register int arg1, register int arg2) {
register int type;
LispPTR N_OP_eqlop(int arg1, int arg2) {
int type;
if (arg2 == arg1) return (ATOM_T);
IF_IMMEDIATE(arg1, return (NIL), return (NIL));
@@ -169,8 +169,8 @@ LispPTR N_OP_eqlop(register int arg1, register int arg2) {
/* */
/************************************************************************/
LispPTR N_OP_equal(register int arg1, register int arg2) {
register int type, type2;
LispPTR N_OP_equal(int arg1, int arg2) {
int type, type2;
if (arg2 == arg1) return (ATOM_T);
@@ -211,7 +211,7 @@ arg2_small:
}
if ((type == TYPE_FLOATP) || (type2 == TYPE_FLOATP)) {
register float f1, f2;
float f1, f2;
N_MakeFloat(arg1, f1, arg2);
N_MakeFloat(arg2, f2, arg2);
if ((f1 + 0.0f) == (f2 + 0.0f))
@@ -232,11 +232,11 @@ arg2_small:
/* */
/************************************************************************/
LispPTR N_OP_eqq(register int arg1, register int arg2) /* CL:= opcode 0377 */
LispPTR N_OP_eqq(int arg1, int arg2) /* CL:= opcode 0377 */
{
register int type1, type2;
register float f1, f2;
int type1, type2;
float f1, f2;
if (!((type1 = GetTypeEntry(arg1)) & TT_NUMBERP)) ERROR_EXIT(arg2);
if (arg2 == arg1) return (ATOM_T);