URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [newlib-1.18.0/] [newlib-1.18.0-or32-1.0rc2/] [newlib/] [libc/] [stdlib/] [__adjust.c] - Diff between revs 207 and 520

Rev 207	Rev 520
`/*`	`/*`
`* return (acc) scaled by 10*dexp.`	`* return (acc) scaled by 10*dexp.`
`*/`	`*/`

`#include <_ansi.h>`	`#include <_ansi.h>`
`#include <reent.h>`	`#include <reent.h>`
`#include "std.h"`	`#include "std.h"`

`#define abs(x) (((x) < 0) ? -(x) : (x))`	`#define abs(x) (((x) < 0) ? -(x) : (x))`

`double`	`double`
`_DEFUN (__adjust, (ptr, acc, dexp, sign),`	`_DEFUN (__adjust, (ptr, acc, dexp, sign),`
`struct _reent *ptr _AND`	`struct _reent *ptr _AND`
`double *acc _AND`	`double *acc _AND`
`int dexp _AND`	`int dexp _AND`
`int sign)`	`int sign)`
`/* acc the 64 bit accumulator /`	`/* acc the 64 bit accumulator /`
`/* dexp decimal exponent */`	`/* dexp decimal exponent */`
`/* sign sign flag */`	`/* sign sign flag */`
`{`	`{`
`double r;`	`double r;`

`if (dexp > MAXE)`	`if (dexp > MAXE)`
`{`	`{`
`ptr->_errno = ERANGE;`	`ptr->_errno = ERANGE;`
`return (sign) ? -HUGE_VAL : HUGE_VAL;`	`return (sign) ? -HUGE_VAL : HUGE_VAL;`
`}`	`}`
`else if (dexp < MINE)`	`else if (dexp < MINE)`
`{`	`{`
`ptr->_errno = ERANGE;`	`ptr->_errno = ERANGE;`
`return 0.0;`	`return 0.0;`
`}`	`}`

`r = *acc;`	`r = *acc;`
`if (sign)`	`if (sign)`
`r = -r;`	`r = -r;`
`if (dexp == 0)`	`if (dexp == 0)`
`return r;`	`return r;`

`if (dexp < 0)`	`if (dexp < 0)`
`return r / __exp10 (abs (dexp));`	`return r / __exp10 (abs (dexp));`
`else`	`else`
`return r * __exp10 (dexp);`	`return r * __exp10 (dexp);`
`}`	`}`