Oops -- unpack float/double didn't do the right thing if e==0.
diff --git a/Modules/structmodule.c b/Modules/structmodule.c
index 23b820b..ef13912 100644
--- a/Modules/structmodule.c
+++ b/Modules/structmodule.c
@@ -402,8 +402,13 @@
x = (double)f / 8388608.0;
/* XXX This sadly ignores Inf/NaN issues */
- if (e != 0)
- x = ldexp(1.0 + x, e - 127);
+ if (e == 0)
+ e = -126;
+ else {
+ x += 1.0;
+ e -= 127;
+ }
+ x = ldexp(x, e);
if (s)
x = -x;
@@ -459,8 +464,13 @@
x /= 268435456.0; /* 2**28 */
/* XXX This sadly ignores Inf/NaN */
- if (e != 0)
- x = ldexp(1.0 + x, e - 1023);
+ if (e == 0)
+ e = -1022;
+ else {
+ x += 1.0;
+ e -= 1023;
+ }
+ x = ldexp(x, e);
if (s)
x = -x;