Commit FPU bugfixes from Scott Duplichan
This commit is contained in:
parent
40bd4f138b
commit
90f4e87d32
@ -1,6 +1,6 @@
|
||||
/*---------------------------------------------------------------------------+
|
||||
| reg_ld_str.c |
|
||||
| $Id: reg_ld_str.c,v 1.8 2003-04-12 21:02:07 sshwarts Exp $
|
||||
| $Id: reg_ld_str.c,v 1.9 2003-04-19 15:48:30 sshwarts Exp $
|
||||
| |
|
||||
| All of the functions which transfer data between user memory and FPU_REGs.|
|
||||
| |
|
||||
@ -1171,7 +1171,7 @@ FPU_round_to_int(FPU_REG *r, u_char tag)
|
||||
very_big = !(~(r->sigh) | ~(r->sigl)); /* test for 0xfff...fff */
|
||||
#define half_or_more (eax & 0x80000000)
|
||||
#define frac_part (eax)
|
||||
#define more_than_half ((eax & 0x80000001) == 0x80000001)
|
||||
#define more_than_half (eax > 0x80000000)
|
||||
switch (control_word & CW_RC)
|
||||
{
|
||||
case RC_RND:
|
||||
|
@ -1,6 +1,6 @@
|
||||
/*---------------------------------------------------------------------------+
|
||||
| reg_norm.c |
|
||||
| $Id: reg_norm.c,v 1.2 2001-10-06 03:53:46 bdenney Exp $
|
||||
| $Id: reg_norm.c,v 1.3 2003-04-19 15:48:30 sshwarts Exp $
|
||||
| |
|
||||
| Copyright (C) 1992,1993,1994,1995,1997,1999 |
|
||||
| W. Metzenthen, 22 Parker St, Ormond, Vic 3163, |
|
||||
@ -26,7 +26,7 @@ int FPU_normalize_nuo(FPU_REG *x, int bias)
|
||||
{
|
||||
if ( x->sigl == 0 )
|
||||
{
|
||||
x->exp = EXP_UNDER;
|
||||
x->exp = 0;
|
||||
return TAG_Zero;
|
||||
}
|
||||
x->sigh = x->sigl;
|
||||
|
Loading…
Reference in New Issue
Block a user