-#include "libm.h"
+#include <math.h>
+#include <stdint.h>
float scalbnf(float x, int n)
{
- float scale;
+ union {float f; uint32_t i;} u;
+ float_t y = x;
if (n > 127) {
- x *= 0x1p127f;
+ y *= 0x1p127f;
n -= 127;
if (n > 127) {
- x *= 0x1p127f;
+ y *= 0x1p127f;
n -= 127;
- if (n > 127) {
- STRICT_ASSIGN(float, x, x * 0x1p127f);
- return x;
- }
+ if (n > 127)
+ n = 127;
}
} else if (n < -126) {
- x *= 0x1p-126f;
- n += 126;
+ y *= 0x1p-126f * 0x1p24f;
+ n += 126 - 24;
if (n < -126) {
- x *= 0x1p-126f;
- n += 126;
- if (n < -126) {
- STRICT_ASSIGN(float, x, x * 0x1p-126f);
- return x;
- }
+ y *= 0x1p-126f * 0x1p24f;
+ n += 126 - 24;
+ if (n < -126)
+ n = -126;
}
}
- SET_FLOAT_WORD(scale, (uint32_t)(0x7f+n)<<23);
- STRICT_ASSIGN(float, x, x * scale);
+ u.i = (uint32_t)(0x7f+n)<<23;
+ x = y * u.f;
return x;
}