1*4882a593Smuzhiyun // SPDX-License-Identifier: GPL-2.0
2*4882a593Smuzhiyun /*---------------------------------------------------------------------------+
3*4882a593Smuzhiyun | reg_convert.c |
4*4882a593Smuzhiyun | |
5*4882a593Smuzhiyun | Convert register representation. |
6*4882a593Smuzhiyun | |
7*4882a593Smuzhiyun | Copyright (C) 1992,1993,1994,1996,1997 |
8*4882a593Smuzhiyun | W. Metzenthen, 22 Parker St, Ormond, Vic 3163, Australia |
9*4882a593Smuzhiyun | E-mail billm@suburbia.net |
10*4882a593Smuzhiyun | |
11*4882a593Smuzhiyun | |
12*4882a593Smuzhiyun +---------------------------------------------------------------------------*/
13*4882a593Smuzhiyun
14*4882a593Smuzhiyun #include "exception.h"
15*4882a593Smuzhiyun #include "fpu_emu.h"
16*4882a593Smuzhiyun
FPU_to_exp16(FPU_REG const * a,FPU_REG * x)17*4882a593Smuzhiyun int FPU_to_exp16(FPU_REG const *a, FPU_REG *x)
18*4882a593Smuzhiyun {
19*4882a593Smuzhiyun int sign = getsign(a);
20*4882a593Smuzhiyun
21*4882a593Smuzhiyun *(long long *)&(x->sigl) = *(const long long *)&(a->sigl);
22*4882a593Smuzhiyun
23*4882a593Smuzhiyun /* Set up the exponent as a 16 bit quantity. */
24*4882a593Smuzhiyun setexponent16(x, exponent(a));
25*4882a593Smuzhiyun
26*4882a593Smuzhiyun if (exponent16(x) == EXP_UNDER) {
27*4882a593Smuzhiyun /* The number is a de-normal or pseudodenormal. */
28*4882a593Smuzhiyun /* We only deal with the significand and exponent. */
29*4882a593Smuzhiyun
30*4882a593Smuzhiyun if (x->sigh & 0x80000000) {
31*4882a593Smuzhiyun /* Is a pseudodenormal. */
32*4882a593Smuzhiyun /* This is non-80486 behaviour because the number
33*4882a593Smuzhiyun loses its 'denormal' identity. */
34*4882a593Smuzhiyun addexponent(x, 1);
35*4882a593Smuzhiyun } else {
36*4882a593Smuzhiyun /* Is a denormal. */
37*4882a593Smuzhiyun addexponent(x, 1);
38*4882a593Smuzhiyun FPU_normalize_nuo(x);
39*4882a593Smuzhiyun }
40*4882a593Smuzhiyun }
41*4882a593Smuzhiyun
42*4882a593Smuzhiyun if (!(x->sigh & 0x80000000)) {
43*4882a593Smuzhiyun EXCEPTION(EX_INTERNAL | 0x180);
44*4882a593Smuzhiyun }
45*4882a593Smuzhiyun
46*4882a593Smuzhiyun return sign;
47*4882a593Smuzhiyun }
48