fix: did not work for 4-byte floats

This commit is contained in:
ceriel 1989-11-09 17:01:29 +00:00
parent 013a6f9cd6
commit 95fc55f840

View file

@ -61,9 +61,9 @@ zero: zrf_ext(to);
#endif #endif
#else #else
#if FL_MSW_AT_LOW_ADDRESS #if FL_MSW_AT_LOW_ADDRESS
to->exp = uget2(cpt1+4); to->exp = uget2(cpt1+(size == sizeof(DOUBLE) ? 4 : 0));
#else #else
to->exp = uget2(cpt1+6); to->exp = uget2(cpt1+(size == sizeof(DOUBLE) ? 6 : 2));
#endif #endif
#endif #endif
to->sign = (to->exp & 0x8000); /* set sign bit */ to->sign = (to->exp & 0x8000); /* set sign bit */