diff options
author | simokawa <simokawa@FreeBSD.org> | 1999-06-14 11:42:30 +0000 |
---|---|---|
committer | simokawa <simokawa@FreeBSD.org> | 1999-06-14 11:42:30 +0000 |
commit | 178a87c91e6d04cfde3988fc1468e67f08e46e45 (patch) | |
tree | 658abb278e169f272e210e69927bc633844d63cc | |
parent | 3fc0f0acb60b3419a78051ae5be748cf29e9d43c (diff) | |
download | FreeBSD-src-178a87c91e6d04cfde3988fc1468e67f08e46e45.zip FreeBSD-src-178a87c91e6d04cfde3988fc1468e67f08e46e45.tar.gz |
Fix typo confusing `fa' and 'fb' registers.
Now, MATLAB works fine under OSF/1 emulation.
-rw-r--r-- | sys/alpha/alpha/ieee_float.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/sys/alpha/alpha/ieee_float.c b/sys/alpha/alpha/ieee_float.c index 1907fac..293c6ea 100644 --- a/sys/alpha/alpha/ieee_float.c +++ b/sys/alpha/alpha/ieee_float.c @@ -23,7 +23,7 @@ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * - * $Id: ieee_float.c,v 1.2 1999/04/23 19:53:37 dt Exp $ + * $Id: ieee_float.c,v 1.3 1999/05/10 16:02:11 peter Exp $ */ /* @@ -579,7 +579,7 @@ ieee_mul(fp_register_t fa, fp_register_t fb, } /* Handle INF and 0 */ - if ((isINF(fa) && isZERO(fb)) || (isINF(fa) && isZERO(fb))) { + if ((isINF(fa) && isZERO(fb)) || (isZERO(fa) && isINF(fb))) { /* INF * 0 = NaN */ *status |= FPCR_INV; return makeQNaN(); @@ -857,7 +857,7 @@ ieee_cmplt(fp_register_t fa, fp_register_t fb, u_int64_t *status) else if (fb.t.exponent > fa.t.exponent) /* fb has a larger exponent, return true */ result.q = IEEE_TRUE; - else if (fb.t.exponent == fb.t.exponent + else if (fa.t.exponent == fb.t.exponent && fa.t.fraction < fb.t.fraction) /* compare fractions */ result.q = IEEE_TRUE; @@ -902,7 +902,7 @@ ieee_cmple(fp_register_t fa, fp_register_t fb, u_int64_t *status) else if (fb.t.exponent > fa.t.exponent) /* fb has a larger exponent, return true */ result.q = IEEE_TRUE; - else if (fb.t.exponent == fb.t.exponent + else if (fa.t.exponent == fb.t.exponent && fa.t.fraction <= fb.t.fraction) /* compare fractions */ result.q = IEEE_TRUE; |