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

Remove I386-only, undefined macro usages: I386Round, I386Reset. (#185)

Browse Source 
These macros aren't actually defined anywhere in our code and
aren't used outside of the old support for the Sun I386 hardware.
This commit is contained in:
Bruce Mitchener
2021-01-06 01:26:42 +07:00
committed by GitHub
parent cb815c34a1
commit 12b431dbd0
3 changed files with 3 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/fp.c
View File

@@ -56,9 +56,6 @@ LispPTR N_OP_fplus2(LispPTR parg1, LispPTR parg2) {
N_MakeFloat(parg1, arg1, parg2);
N_MakeFloat(parg2, arg2, parg2);
FPCLEAR;
#ifdef I386
I386Round;
#endif
result = arg1 + arg2;
if (FPTEST(result)) ERROR_EXIT(parg2);
wordp = createcell68k(TYPE_FLOATP);
@@ -82,9 +79,6 @@ LispPTR N_OP_fdifference(LispPTR parg1, LispPTR parg2) {
N_MakeFloat(parg1, arg1, parg2);
N_MakeFloat(parg2, arg2, parg2);
FPCLEAR;
#ifdef I386
I386Round;
#endif
result = arg1 - arg2;
if (FPTEST(result)) ERROR_EXIT(parg2);
wordp = createcell68k(TYPE_FLOATP);
@@ -108,9 +102,6 @@ LispPTR N_OP_ftimes2(LispPTR parg1, LispPTR parg2) {
N_MakeFloat(parg1, arg1, parg2);
N_MakeFloat(parg2, arg2, parg2);
FPCLEAR;
#ifdef I386
I386Round;
#endif
result = arg1 * arg2;
if (FPTEST(result)) ERROR_EXIT(parg2);
wordp = createcell68k(TYPE_FLOATP);
@@ -134,9 +125,6 @@ LispPTR N_OP_fquotient(LispPTR parg1, LispPTR parg2) {
N_MakeFloat(parg1, arg1, parg2);
N_MakeFloat(parg2, arg2, parg2);
FPCLEAR;
#ifdef I386
I386Round;
#endif
result = arg1 / arg2;
if (FPTEST(result)) ERROR_EXIT(parg2);

7
src/ubf1.c
View File

@@ -56,14 +56,7 @@ LispPTR N_OP_ubfloat1(int arg, int alpha) {
int val;
temp = *(float *)&arg;
if ((temp > ((float)0x7fffffff)) || (temp < ((float)0x80000000))) ERROR_EXIT(arg);
#ifdef I386
I386Reset;
#endif /* I386 */
val = (int)temp;
#ifdef I386
I386Round;
#endif
N_ARITH_SWITCH(val);
}
default: ERROR_EXIT(arg);