URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [20110913-1.c] - Rev 801
Go to most recent revision | Compare with Previous | Blame | View Log
struct ieee754_double { double d; }; extern const float __exp_deltatable[178]; float __ieee754_expf (float x) { static const float himark = 88.72283935546875; static const float lomark = -103.972084045410; if (__builtin_isless(x, himark) && __builtin_isgreater(x, lomark)) { int tval; double x22, t, result, dx; float delta; struct ieee754_double ex2_u; dx -= t; tval = (int) (t * 512.0); if (t >= 0) delta = - __exp_deltatable[tval]; else delta = __exp_deltatable[-tval]; x22 = (0.5000000496709180453 * dx + 1.0000001192102037084) * dx + delta; result = x22 * ex2_u.d + ex2_u.d; return (float) result; } return x; }
Go to most recent revision | Compare with Previous | Blame | View Log