github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-09 09:41:38 +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

4
src/ubf1.c
View File

@@ -31,7 +31,7 @@ LispPTR N_OP_ubfloat1(int arg, int alpha) {
switch (alpha) {
case 0: /* box */
{
register DLword *wordp;
DLword *wordp;
wordp = createcell68k(TYPE_FLOATP);
*((int *)wordp) = arg;
return (LADDR_from_68k(wordp));
@@ -48,7 +48,7 @@ LispPTR N_OP_ubfloat1(int arg, int alpha) {
case 3: /* neg */ return (0x80000000 ^ arg);
case 4: /* ufix */
{
register float temp;
float temp;
int val;
temp = *(float *)&arg;
if ((temp > ((float)0x7fffffff)) || (temp < ((float)0x80000000))) ERROR_EXIT(arg);