1 // SPDX-License-Identifier: GPL-2.0
2 /*---------------------------------------------------------------------------+
5  |  The error handling functions for wm-FPU-emu                              |
9  |                  E-mail   billm@jacobi.maths.monash.edu.au                |
12  +---------------------------------------------------------------------------*/
14 /*---------------------------------------------------------------------------+
19  +---------------------------------------------------------------------------*/
191 			printk("st(%d)  %c .%04lx %04lx %04lx %04lx e%+-6d ", i,  in FPU_printall()
192 			       getsign(r) ? '-' : '+',  in FPU_printall()
193 			       (long)(r->sigh >> 16),  in FPU_printall()
194 			       (long)(r->sigh & 0xFFFF),  in FPU_printall()
195 			       (long)(r->sigl >> 16),  in FPU_printall()
196 			       (long)(r->sigl & 0xFFFF),  in FPU_printall()
197 			       exponent(r) - EXP_BIAS + 1);  in FPU_printall()
313 		int_type = n - EX_INTERNAL;  in FPU_exception()
322 		/* Set summary bits iff exception isn't masked */  in FPU_exception()
327 				/* This bit distinguishes over- from underflow for a stack fault,  in FPU_exception()
328 				   and roundup from round-down for precision loss. */  in FPU_exception()
359 		 * The 80486 generates an interrupt on the next non-control FPU  in FPU_exception()
378 	isNaN = (exponent(a) == EXP_OVER) && (a->sigh & 0x80000000);  in real_1op_NaN()
382 	signalling = isNaN && !(a->sigh & 0x40000000);  in real_1op_NaN()
385 		if (!isNaN) {	/* pseudo-NaN, or other unsupported? */  in real_1op_NaN()
387 				/* Masked response */  in real_1op_NaN()
398 		/* The masked response */  in real_1op_NaN()
399 		if (!(a->sigh & 0x80000000)) {	/* pseudo-NaN ? */  in real_1op_NaN()
403 		a->sigh |= 0x40000000;  in real_1op_NaN()
430 			    && (a->sigh & 0x80000000)))  in real_2op_NaN()
432 		&& !((exponent(b) == EXP_OVER) && (b->sigh & 0x80000000)));  in real_2op_NaN()
435 			/* Masked response */  in real_2op_NaN()
446 			signalling = !(a->sigh & b->sigh & 0x40000000);  in real_2op_NaN()
456 			signalling = !(a->sigh & 0x40000000);  in real_2op_NaN()
463 		signalling = !(b->sigh & 0x40000000);  in real_2op_NaN()
478 		if (!(x->sigh & 0x80000000))	/* pseudo-NaN ? */  in real_2op_NaN()
487 		dest->sigh |= 0x40000000;  in real_2op_NaN()
503 		/* The masked response */  in arith_invalid()
518 		/* The masked response */  in FPU_divide_by_zero()
535 		partial_status |= flags;	/* The masked response */  in set_precision_flag()
547 		partial_status |= (SW_Precision | SW_C1);	/* The masked response */  in set_precision_flag_up()
555 	if (control_word & CW_Precision) {	/* The masked response */  in set_precision_flag_down()
564 	if (control_word & CW_Denormal) {	/* The masked response */  in denormal_operand()
578 		/* The masked response */  in arith_overflow()
584 		addexponent(dest, (-3 * (1 << 13)));  in arith_overflow()
589 		/* The overflow exception is masked. */  in arith_overflow()
606 		/* The masked response */  in arith_underflow()
607 		if (exponent16(dest) <= EXP_UNDER - 63) {  in arith_underflow()
621 		/* The underflow exception is masked. */  in arith_underflow()
634 		/* The masked response */  in FPU_stack_overflow()
635 		top--;  in FPU_stack_overflow()
649 		/* The masked response */  in FPU_stack_underflow()
663 		/* The masked response */  in FPU_stack_underflow_i()
677 		/* The masked response */  in FPU_stack_underflow_pop()