^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 1) // SPDX-License-Identifier: GPL-2.0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 2) /*---------------------------------------------------------------------------+
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 3) | reg_compare.c |
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 4) | |
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 5) | Compare two floating point registers |
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 6) | |
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 7) | Copyright (C) 1992,1993,1994,1997 |
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 8) | W. Metzenthen, 22 Parker St, Ormond, Vic 3163, Australia |
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 9) | E-mail billm@suburbia.net |
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 10) | |
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 11) | |
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 12) +---------------------------------------------------------------------------*/
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 13)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 14) /*---------------------------------------------------------------------------+
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 15) | compare() is the core FPU_REG comparison function |
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 16) +---------------------------------------------------------------------------*/
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 17)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 18) #include "fpu_system.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 19) #include "exception.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 20) #include "fpu_emu.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 21) #include "control_w.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 22) #include "status_w.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 23)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 24) static int compare(FPU_REG const *b, int tagb)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 25) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 26) int diff, exp0, expb;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 27) u_char st0_tag;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 28) FPU_REG *st0_ptr;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 29) FPU_REG x, y;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 30) u_char st0_sign, signb = getsign(b);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 31)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 32) st0_ptr = &st(0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 33) st0_tag = FPU_gettag0();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 34) st0_sign = getsign(st0_ptr);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 35)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 36) if (tagb == TAG_Special)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 37) tagb = FPU_Special(b);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 38) if (st0_tag == TAG_Special)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 39) st0_tag = FPU_Special(st0_ptr);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 40)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 41) if (((st0_tag != TAG_Valid) && (st0_tag != TW_Denormal))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 42) || ((tagb != TAG_Valid) && (tagb != TW_Denormal))) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 43) if (st0_tag == TAG_Zero) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 44) if (tagb == TAG_Zero)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 45) return COMP_A_eq_B;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 46) if (tagb == TAG_Valid)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 47) return ((signb ==
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 48) SIGN_POS) ? COMP_A_lt_B : COMP_A_gt_B);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 49) if (tagb == TW_Denormal)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 50) return ((signb ==
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 51) SIGN_POS) ? COMP_A_lt_B : COMP_A_gt_B)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 52) | COMP_Denormal;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 53) } else if (tagb == TAG_Zero) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 54) if (st0_tag == TAG_Valid)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 55) return ((st0_sign ==
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 56) SIGN_POS) ? COMP_A_gt_B : COMP_A_lt_B);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 57) if (st0_tag == TW_Denormal)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 58) return ((st0_sign ==
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 59) SIGN_POS) ? COMP_A_gt_B : COMP_A_lt_B)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 60) | COMP_Denormal;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 61) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 62)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 63) if (st0_tag == TW_Infinity) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 64) if ((tagb == TAG_Valid) || (tagb == TAG_Zero))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 65) return ((st0_sign ==
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 66) SIGN_POS) ? COMP_A_gt_B : COMP_A_lt_B);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 67) else if (tagb == TW_Denormal)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 68) return ((st0_sign ==
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 69) SIGN_POS) ? COMP_A_gt_B : COMP_A_lt_B)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 70) | COMP_Denormal;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 71) else if (tagb == TW_Infinity) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 72) /* The 80486 book says that infinities can be equal! */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 73) return (st0_sign == signb) ? COMP_A_eq_B :
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 74) ((st0_sign ==
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 75) SIGN_POS) ? COMP_A_gt_B : COMP_A_lt_B);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 76) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 77) /* Fall through to the NaN code */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 78) } else if (tagb == TW_Infinity) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 79) if ((st0_tag == TAG_Valid) || (st0_tag == TAG_Zero))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 80) return ((signb ==
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 81) SIGN_POS) ? COMP_A_lt_B : COMP_A_gt_B);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 82) if (st0_tag == TW_Denormal)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 83) return ((signb ==
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 84) SIGN_POS) ? COMP_A_lt_B : COMP_A_gt_B)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 85) | COMP_Denormal;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 86) /* Fall through to the NaN code */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 87) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 88)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 89) /* The only possibility now should be that one of the arguments
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 90) is a NaN */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 91) if ((st0_tag == TW_NaN) || (tagb == TW_NaN)) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 92) int signalling = 0, unsupported = 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 93) if (st0_tag == TW_NaN) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 94) signalling =
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 95) (st0_ptr->sigh & 0xc0000000) == 0x80000000;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 96) unsupported = !((exponent(st0_ptr) == EXP_OVER)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 97) && (st0_ptr->
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 98) sigh & 0x80000000));
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 99) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 100) if (tagb == TW_NaN) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 101) signalling |=
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 102) (b->sigh & 0xc0000000) == 0x80000000;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 103) unsupported |= !((exponent(b) == EXP_OVER)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 104) && (b->sigh & 0x80000000));
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 105) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 106) if (signalling || unsupported)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 107) return COMP_No_Comp | COMP_SNaN | COMP_NaN;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 108) else
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 109) /* Neither is a signaling NaN */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 110) return COMP_No_Comp | COMP_NaN;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 111) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 112)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 113) EXCEPTION(EX_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 114) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 115)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 116) if (st0_sign != signb) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 117) return ((st0_sign == SIGN_POS) ? COMP_A_gt_B : COMP_A_lt_B)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 118) | (((st0_tag == TW_Denormal) || (tagb == TW_Denormal)) ?
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 119) COMP_Denormal : 0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 120) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 121)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 122) if ((st0_tag == TW_Denormal) || (tagb == TW_Denormal)) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 123) FPU_to_exp16(st0_ptr, &x);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 124) FPU_to_exp16(b, &y);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 125) st0_ptr = &x;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 126) b = &y;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 127) exp0 = exponent16(st0_ptr);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 128) expb = exponent16(b);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 129) } else {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 130) exp0 = exponent(st0_ptr);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 131) expb = exponent(b);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 132) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 133)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 134) #ifdef PARANOID
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 135) if (!(st0_ptr->sigh & 0x80000000))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 136) EXCEPTION(EX_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 137) if (!(b->sigh & 0x80000000))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 138) EXCEPTION(EX_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 139) #endif /* PARANOID */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 140)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 141) diff = exp0 - expb;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 142) if (diff == 0) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 143) diff = st0_ptr->sigh - b->sigh; /* Works only if ms bits are
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 144) identical */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 145) if (diff == 0) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 146) diff = st0_ptr->sigl > b->sigl;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 147) if (diff == 0)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 148) diff = -(st0_ptr->sigl < b->sigl);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 149) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 150) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 151)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 152) if (diff > 0) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 153) return ((st0_sign == SIGN_POS) ? COMP_A_gt_B : COMP_A_lt_B)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 154) | (((st0_tag == TW_Denormal) || (tagb == TW_Denormal)) ?
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 155) COMP_Denormal : 0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 156) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 157) if (diff < 0) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 158) return ((st0_sign == SIGN_POS) ? COMP_A_lt_B : COMP_A_gt_B)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 159) | (((st0_tag == TW_Denormal) || (tagb == TW_Denormal)) ?
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 160) COMP_Denormal : 0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 161) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 162)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 163) return COMP_A_eq_B
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 164) | (((st0_tag == TW_Denormal) || (tagb == TW_Denormal)) ?
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 165) COMP_Denormal : 0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 166)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 167) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 168)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 169) /* This function requires that st(0) is not empty */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 170) int FPU_compare_st_data(FPU_REG const *loaded_data, u_char loaded_tag)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 171) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 172) int f, c;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 173)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 174) c = compare(loaded_data, loaded_tag);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 175)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 176) if (c & COMP_NaN) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 177) EXCEPTION(EX_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 178) f = SW_C3 | SW_C2 | SW_C0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 179) } else
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 180) switch (c & 7) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 181) case COMP_A_lt_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 182) f = SW_C0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 183) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 184) case COMP_A_eq_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 185) f = SW_C3;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 186) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 187) case COMP_A_gt_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 188) f = 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 189) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 190) case COMP_No_Comp:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 191) f = SW_C3 | SW_C2 | SW_C0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 192) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 193) default:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 194) #ifdef PARANOID
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 195) EXCEPTION(EX_INTERNAL | 0x121);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 196) #endif /* PARANOID */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 197) f = SW_C3 | SW_C2 | SW_C0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 198) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 199) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 200) setcc(f);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 201) if (c & COMP_Denormal) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 202) return denormal_operand() < 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 203) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 204) return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 205) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 206)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 207) static int compare_st_st(int nr)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 208) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 209) int f, c;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 210) FPU_REG *st_ptr;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 211)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 212) if (!NOT_EMPTY(0) || !NOT_EMPTY(nr)) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 213) setcc(SW_C3 | SW_C2 | SW_C0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 214) /* Stack fault */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 215) EXCEPTION(EX_StackUnder);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 216) return !(control_word & CW_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 217) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 218)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 219) st_ptr = &st(nr);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 220) c = compare(st_ptr, FPU_gettagi(nr));
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 221) if (c & COMP_NaN) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 222) setcc(SW_C3 | SW_C2 | SW_C0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 223) EXCEPTION(EX_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 224) return !(control_word & CW_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 225) } else
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 226) switch (c & 7) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 227) case COMP_A_lt_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 228) f = SW_C0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 229) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 230) case COMP_A_eq_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 231) f = SW_C3;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 232) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 233) case COMP_A_gt_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 234) f = 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 235) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 236) case COMP_No_Comp:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 237) f = SW_C3 | SW_C2 | SW_C0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 238) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 239) default:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 240) #ifdef PARANOID
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 241) EXCEPTION(EX_INTERNAL | 0x122);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 242) #endif /* PARANOID */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 243) f = SW_C3 | SW_C2 | SW_C0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 244) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 245) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 246) setcc(f);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 247) if (c & COMP_Denormal) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 248) return denormal_operand() < 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 249) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 250) return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 251) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 252)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 253) static int compare_i_st_st(int nr)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 254) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 255) int f, c;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 256) FPU_REG *st_ptr;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 257)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 258) if (!NOT_EMPTY(0) || !NOT_EMPTY(nr)) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 259) FPU_EFLAGS |= (X86_EFLAGS_ZF | X86_EFLAGS_PF | X86_EFLAGS_CF);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 260) /* Stack fault */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 261) EXCEPTION(EX_StackUnder);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 262) return !(control_word & CW_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 263) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 264)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 265) partial_status &= ~SW_C0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 266) st_ptr = &st(nr);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 267) c = compare(st_ptr, FPU_gettagi(nr));
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 268) if (c & COMP_NaN) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 269) FPU_EFLAGS |= (X86_EFLAGS_ZF | X86_EFLAGS_PF | X86_EFLAGS_CF);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 270) EXCEPTION(EX_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 271) return !(control_word & CW_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 272) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 273)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 274) switch (c & 7) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 275) case COMP_A_lt_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 276) f = X86_EFLAGS_CF;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 277) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 278) case COMP_A_eq_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 279) f = X86_EFLAGS_ZF;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 280) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 281) case COMP_A_gt_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 282) f = 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 283) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 284) case COMP_No_Comp:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 285) f = X86_EFLAGS_ZF | X86_EFLAGS_PF | X86_EFLAGS_CF;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 286) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 287) default:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 288) #ifdef PARANOID
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 289) EXCEPTION(EX_INTERNAL | 0x122);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 290) #endif /* PARANOID */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 291) f = 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 292) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 293) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 294) FPU_EFLAGS = (FPU_EFLAGS & ~(X86_EFLAGS_ZF | X86_EFLAGS_PF | X86_EFLAGS_CF)) | f;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 295) if (c & COMP_Denormal) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 296) return denormal_operand() < 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 297) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 298) return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 299) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 300)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 301) static int compare_u_st_st(int nr)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 302) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 303) int f = 0, c;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 304) FPU_REG *st_ptr;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 305)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 306) if (!NOT_EMPTY(0) || !NOT_EMPTY(nr)) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 307) setcc(SW_C3 | SW_C2 | SW_C0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 308) /* Stack fault */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 309) EXCEPTION(EX_StackUnder);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 310) return !(control_word & CW_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 311) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 312)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 313) st_ptr = &st(nr);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 314) c = compare(st_ptr, FPU_gettagi(nr));
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 315) if (c & COMP_NaN) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 316) setcc(SW_C3 | SW_C2 | SW_C0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 317) if (c & COMP_SNaN) { /* This is the only difference between
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 318) un-ordered and ordinary comparisons */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 319) EXCEPTION(EX_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 320) return !(control_word & CW_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 321) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 322) return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 323) } else
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 324) switch (c & 7) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 325) case COMP_A_lt_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 326) f = SW_C0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 327) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 328) case COMP_A_eq_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 329) f = SW_C3;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 330) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 331) case COMP_A_gt_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 332) f = 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 333) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 334) case COMP_No_Comp:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 335) f = SW_C3 | SW_C2 | SW_C0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 336) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 337) #ifdef PARANOID
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 338) default:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 339) EXCEPTION(EX_INTERNAL | 0x123);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 340) f = SW_C3 | SW_C2 | SW_C0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 341) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 342) #endif /* PARANOID */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 343) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 344) setcc(f);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 345) if (c & COMP_Denormal) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 346) return denormal_operand() < 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 347) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 348) return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 349) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 350)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 351) static int compare_ui_st_st(int nr)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 352) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 353) int f = 0, c;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 354) FPU_REG *st_ptr;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 355)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 356) if (!NOT_EMPTY(0) || !NOT_EMPTY(nr)) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 357) FPU_EFLAGS |= (X86_EFLAGS_ZF | X86_EFLAGS_PF | X86_EFLAGS_CF);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 358) /* Stack fault */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 359) EXCEPTION(EX_StackUnder);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 360) return !(control_word & CW_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 361) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 362)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 363) partial_status &= ~SW_C0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 364) st_ptr = &st(nr);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 365) c = compare(st_ptr, FPU_gettagi(nr));
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 366) if (c & COMP_NaN) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 367) FPU_EFLAGS |= (X86_EFLAGS_ZF | X86_EFLAGS_PF | X86_EFLAGS_CF);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 368) if (c & COMP_SNaN) { /* This is the only difference between
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 369) un-ordered and ordinary comparisons */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 370) EXCEPTION(EX_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 371) return !(control_word & CW_Invalid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 372) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 373) return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 374) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 375)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 376) switch (c & 7) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 377) case COMP_A_lt_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 378) f = X86_EFLAGS_CF;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 379) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 380) case COMP_A_eq_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 381) f = X86_EFLAGS_ZF;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 382) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 383) case COMP_A_gt_B:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 384) f = 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 385) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 386) case COMP_No_Comp:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 387) f = X86_EFLAGS_ZF | X86_EFLAGS_PF | X86_EFLAGS_CF;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 388) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 389) #ifdef PARANOID
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 390) default:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 391) EXCEPTION(EX_INTERNAL | 0x123);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 392) f = 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 393) break;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 394) #endif /* PARANOID */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 395) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 396) FPU_EFLAGS = (FPU_EFLAGS & ~(X86_EFLAGS_ZF | X86_EFLAGS_PF | X86_EFLAGS_CF)) | f;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 397) if (c & COMP_Denormal) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 398) return denormal_operand() < 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 399) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 400) return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 401) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 402)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 403) /*---------------------------------------------------------------------------*/
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 404)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 405) void fcom_st(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 406) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 407) /* fcom st(i) */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 408) compare_st_st(FPU_rm);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 409) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 410)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 411) void fcompst(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 412) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 413) /* fcomp st(i) */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 414) if (!compare_st_st(FPU_rm))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 415) FPU_pop();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 416) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 417)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 418) void fcompp(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 419) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 420) /* fcompp */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 421) if (FPU_rm != 1) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 422) FPU_illegal();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 423) return;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 424) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 425) if (!compare_st_st(1))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 426) poppop();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 427) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 428)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 429) void fucom_(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 430) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 431) /* fucom st(i) */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 432) compare_u_st_st(FPU_rm);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 433)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 434) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 435)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 436) void fucomp(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 437) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 438) /* fucomp st(i) */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 439) if (!compare_u_st_st(FPU_rm))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 440) FPU_pop();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 441) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 442)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 443) void fucompp(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 444) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 445) /* fucompp */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 446) if (FPU_rm == 1) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 447) if (!compare_u_st_st(1))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 448) poppop();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 449) } else
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 450) FPU_illegal();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 451) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 452)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 453) /* P6+ compare-to-EFLAGS ops */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 454)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 455) void fcomi_(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 456) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 457) /* fcomi st(i) */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 458) compare_i_st_st(FPU_rm);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 459) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 460)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 461) void fcomip(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 462) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 463) /* fcomip st(i) */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 464) if (!compare_i_st_st(FPU_rm))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 465) FPU_pop();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 466) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 467)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 468) void fucomi_(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 469) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 470) /* fucomi st(i) */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 471) compare_ui_st_st(FPU_rm);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 472) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 473)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 474) void fucomip(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 475) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 476) /* fucomip st(i) */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 477) if (!compare_ui_st_st(FPU_rm))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 478) FPU_pop();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 479) }
Orange Pi5 kernel
Deprecated Linux kernel 5.10.110 for OrangePi 5/5B/5+ boards
3 Commits
0 Branches
0 Tags