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

Remove I386 version of N_MakeFloat. (#204)

Browse Source 
This used to differ, but the differences were dead code and
removed. We have no need for this extra bit of baggage.
This commit is contained in:
Bruce Mitchener 2021-01-11 08:24:07 +07:00 committed by GitHub
parent 2b5f8eae1c
commit 0058cacc12
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
inc/my.h
View File

@ -36,7 +36,6 @@
/* from SMALLP or FIXP, if necessary. */
/* */
/************************************************************************/
#ifndef I386
#define N_MakeFloat(arg, dest, tos){ \
switch (SEGMASK & (LispPTR)arg) { \
case S_POSITIVE: \
@ -57,28 +56,6 @@
} \
} \
}
#else
#define N_MakeFloat(arg, dest, tos){ \
switch (SEGMASK & (int)arg) { \
case S_POSITIVE: \
dest = (float)(0xFFFF & (int)arg); \
break; \
case S_NEGATIVE: \
dest = (float)((int)(0xFFFF0000 | (int)arg)); \
break; \
default: \
switch (GetTypeNumber(arg)) { \
case TYPE_FLOATP: \
dest = *((float *)Addr68k_from_LADDR(arg)); \
break; \
case TYPE_FIXP: \
dest = (float)(*((int *)Addr68k_from_LADDR(arg))); \
break; \
default: ERROR_EXIT(tos); \
} \
} \
}
#endif /* I386 */