URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [tags/] [gnu-src/] [newlib-1.18.0/] [newlib-1.18.0-or32-1.0rc1/] [newlib/] [libc/] [stdlib/] [__adjust.c] - Rev 345
Compare with Previous | Blame | View Log
/* * return (*acc) scaled by 10**dexp. */ #include <_ansi.h> #include <reent.h> #include "std.h" #define abs(x) (((x) < 0) ? -(x) : (x)) double _DEFUN (__adjust, (ptr, acc, dexp, sign), struct _reent *ptr _AND double *acc _AND int dexp _AND int sign) /* *acc the 64 bit accumulator */ /* dexp decimal exponent */ /* sign sign flag */ { double r; if (dexp > MAXE) { ptr->_errno = ERANGE; return (sign) ? -HUGE_VAL : HUGE_VAL; } else if (dexp < MINE) { ptr->_errno = ERANGE; return 0.0; } r = *acc; if (sign) r = -r; if (dexp == 0) return r; if (dexp < 0) return r / __exp10 (abs (dexp)); else return r * __exp10 (dexp); }