summaryrefslogtreecommitdiffstats
path: root/drivers/FPU-emu/fpu_etc.c
diff options
context:
space:
mode:
Diffstat (limited to 'drivers/FPU-emu/fpu_etc.c')
-rw-r--r--drivers/FPU-emu/fpu_etc.c129
1 files changed, 0 insertions, 129 deletions
diff --git a/drivers/FPU-emu/fpu_etc.c b/drivers/FPU-emu/fpu_etc.c
deleted file mode 100644
index 20e3294ca..000000000
--- a/drivers/FPU-emu/fpu_etc.c
+++ /dev/null
@@ -1,129 +0,0 @@
-/*---------------------------------------------------------------------------+
- | fpu_etc.c |
- | |
- | Implement a few FPU instructions. |
- | |
- | Copyright (C) 1992,1993,1994 |
- | W. Metzenthen, 22 Parker St, Ormond, Vic 3163, |
- | Australia. E-mail billm@vaxc.cc.monash.edu.au |
- | |
- | |
- +---------------------------------------------------------------------------*/
-
-#include "fpu_system.h"
-#include "exception.h"
-#include "fpu_emu.h"
-#include "status_w.h"
-#include "reg_constant.h"
-
-
-static void fchs(FPU_REG *st0_ptr)
-{
- if ( st0_ptr->tag ^ TW_Empty )
- {
- st0_ptr->sign ^= SIGN_POS^SIGN_NEG;
- clear_C1();
- }
- else
- stack_underflow();
-}
-
-static void fabs(FPU_REG *st0_ptr)
-{
- if ( st0_ptr->tag ^ TW_Empty )
- {
- st0_ptr->sign = SIGN_POS;
- clear_C1();
- }
- else
- stack_underflow();
-}
-
-
-static void ftst_(FPU_REG *st0_ptr)
-{
- switch (st0_ptr->tag)
- {
- case TW_Zero:
- setcc(SW_C3);
- break;
- case TW_Valid:
- if (st0_ptr->sign == SIGN_POS)
- setcc(0);
- else
- setcc(SW_C0);
-
-#ifdef DENORM_OPERAND
- if ( (st0_ptr->exp <= EXP_UNDER) && (denormal_operand()) )
- {
-#ifdef PECULIAR_486
- /* This is weird! */
- if (st0_ptr->sign == SIGN_POS)
- setcc(SW_C3);
-#endif PECULIAR_486
- return;
- }
-#endif DENORM_OPERAND
-
- break;
- case TW_NaN:
- setcc(SW_C0|SW_C2|SW_C3); /* Operand is not comparable */
- EXCEPTION(EX_Invalid);
- break;
- case TW_Infinity:
- if (st0_ptr->sign == SIGN_POS)
- setcc(0);
- else
- setcc(SW_C0);
- break;
- case TW_Empty:
- setcc(SW_C0|SW_C2|SW_C3);
- EXCEPTION(EX_StackUnder);
- break;
- default:
- setcc(SW_C0|SW_C2|SW_C3); /* Operand is not comparable */
- EXCEPTION(EX_INTERNAL|0x14);
- break;
- }
-}
-
-static void fxam(FPU_REG *st0_ptr)
-{
- int c=0;
- switch (st0_ptr->tag)
- {
- case TW_Empty:
- c = SW_C3|SW_C0;
- break;
- case TW_Zero:
- c = SW_C3;
- break;
- case TW_Valid:
- /* This will need to be changed if TW_Denormal is ever used. */
- if ( st0_ptr->exp <= EXP_UNDER )
- c = SW_C2|SW_C3; /* Denormal */
- else
- c = SW_C2;
- break;
- case TW_NaN:
- c = SW_C0;
- break;
- case TW_Infinity:
- c = SW_C2|SW_C0;
- break;
- }
- if (st0_ptr->sign == SIGN_NEG)
- c |= SW_C1;
- setcc(c);
-}
-
-
-static FUNC_ST0 const fp_etc_table[] = {
- fchs, fabs, (FUNC_ST0)FPU_illegal, (FUNC_ST0)FPU_illegal,
- ftst_, fxam, (FUNC_ST0)FPU_illegal, (FUNC_ST0)FPU_illegal
-};
-
-void fp_etc()
-{
- (fp_etc_table[FPU_rm])(&st(0));
-}