Archipelago » qemu

    STATUS(float_exception_flags) = val;

}

void set_floatx80_rounding_precision(int val STATUS_PARAM)

{

    STATUS(floatx80_rounding_precision) = val;

}

/*----------------------------------------------------------------------------

| Returns the fraction bits of the half-precision floating-point value `a'.

}

/*----------------------------------------------------------------------------

| Returns the fraction bits of the extended double-precision floating-point

| value `a'.

}

/*----------------------------------------------------------------------------

| Returns the least-significant 64 fraction bits of the quadruple-precision

| floating-point value `a'.

}

/*----------------------------------------------------------------------------

| Returns the result of converting the 32-bit two's complement integer `a'

| to the single-precision floating-point format.  The conversion is performed

}

/*----------------------------------------------------------------------------

| Returns the result of converting the 32-bit two's complement integer `a'

| to the extended double-precision floating-point format.  The conversion

}

/*----------------------------------------------------------------------------

| Returns the result of converting the 32-bit two's complement integer `a' to

| the quadruple-precision floating-point format.  The conversion is performed

}

/*----------------------------------------------------------------------------

| Returns the result of converting the 64-bit two's complement integer `a'

| to the single-precision floating-point format.  The conversion is performed

}

/*----------------------------------------------------------------------------

| Returns the result of converting the 64-bit two's complement integer `a'

| to the extended double-precision floating-point format.  The conversion

}

/*----------------------------------------------------------------------------

| Returns the result of converting the 64-bit two's complement integer `a' to

| the quadruple-precision floating-point format.  The conversion is performed

}

/*----------------------------------------------------------------------------

| Returns the result of converting the single-precision floating-point value

| `a' to the 32-bit two's complement integer format.  The conversion is

}

/*----------------------------------------------------------------------------

| Returns the result of converting the single-precision floating-point value

| `a' to the extended double-precision floating-point format.  The conversion

}

/*----------------------------------------------------------------------------

| Returns the result of converting the single-precision floating-point value

| `a' to the double-precision floating-point format.  The conversion is

}

/*----------------------------------------------------------------------------

| Rounds the single-precision floating-point value `a' to an integer, and

| returns the result as a single-precision floating-point value.  The

    return packFloat16(aSign, aExp + 14, aSig >> 13);

}

/*----------------------------------------------------------------------------

| Returns the result of converting the double-precision floating-point value

| `a' to the extended double-precision floating-point format.  The conversion

}

/*----------------------------------------------------------------------------

| Returns the result of converting the double-precision floating-point value

| `a' to the quadruple-precision floating-point format.  The conversion is

}

/*----------------------------------------------------------------------------

| Rounds the double-precision floating-point value `a' to an integer, and

| returns the result as a double-precision floating-point value.  The

    return 0;

}

/*----------------------------------------------------------------------------

| Returns the result of converting the extended double-precision floating-

| point value `a' to the 32-bit two's complement integer format.  The

}

/*----------------------------------------------------------------------------

| Returns the result of converting the extended double-precision floating-

| point value `a' to the quadruple-precision floating-point format.  The

}

/*----------------------------------------------------------------------------

| Rounds the extended double-precision floating-point value `a' to an integer,

| and returns the result as an extended quadruple-precision floating-point

    return 0;

}

/*----------------------------------------------------------------------------

| Returns the result of converting the quadruple-precision floating-point

| value `a' to the 32-bit two's complement integer format.  The conversion

}

/*----------------------------------------------------------------------------

| Returns the result of converting the quadruple-precision floating-point

| value `a' to the extended double-precision floating-point format.  The

}

/*----------------------------------------------------------------------------

| Rounds the quadruple-precision floating-point value `a' to an integer, and

| returns the result as a quadruple-precision floating-point value.  The

    return 0;

}

/* misc functions */

float32 uint32_to_float32( unsigned int a STATUS_PARAM )

{

    return normalizeRoundAndPackFloat64( aSign, aExp, aSig STATUS_VAR );

}

floatx80 floatx80_scalbn( floatx80 a, int n STATUS_PARAM )

{

    flag aSign;

    return normalizeRoundAndPackFloatx80( STATUS(floatx80_rounding_precision),

                                          aSign, aExp, aSig, 0 STATUS_VAR );

}

float128 float128_scalbn( float128 a, int n STATUS_PARAM )

{

    flag aSign;

                                          STATUS_VAR );

}