[delphi->cpp] 80-битный extended

#if __BYTE_ORDER == __LITTLE_ENDIAN

#define MAN1OFFSET  0
#define MAN2OFFSET  4
#define EXP_OFFSET  6
#define lecpy       memcpy

#elif __BYTE_ORDER == __BIG_ENDIAN

#define MAN1OFFSET  4
#define MAN2OFFSET  0
#define EXP_OFFSET  0

static inline void *lecpy(char *dst, const char *src, size_t size) {
        dst += size;
        while (size--)
                *--dst = *src++;
        return dst;
}

#endif /* __BYTE_ORDER */


void fp80le_to_fp64(void *f64, const void *f80) {
        uint32_t man1, man2;
        uint16_t exp;

        lecpy((char *) &man1, (const char *) f80, 4);
        lecpy((char *) &man2, (const char *) f80 + 4, 4);
        lecpy((char *) &exp, (const char *) f80 + 8, 2);

        man1 >>= 11;
        man1 |= (man2 & 0x7ff) << 21;
        man2 >>= 11;
        man2 &= 0x000fffff;
        man2 |= (uint32_t) (exp & 0x8000) << 16;
        exp &= 0x7fff;
        exp = (uint16_t)(exp - 0x3c00);
        man2 |= (uint32_t) (exp & 0x7ff) << 20;

        memcpy((char *) f64 + MAN1OFFSET, &man1, 4);
        memcpy((char *) f64 + MAN2OFFSET, &man2, 4);
}

void fp64_to_fp80le(void *f80, const void *f64) {
        uint32_t man1, man2;
        uint16_t exp;

        memcpy(&man1, (const char *) f64 + MAN1OFFSET, 4);
        memcpy(&man2, (const char *) f64 + MAN2OFFSET, 4);
        memcpy(&exp,  (const char *) f64 + EXP_OFFSET, 2);

        man2 = ((man2 << 11) & 0x7ffff800)
             | ((man1 >> 21) & 0x000007ff);
        if (man1 || man2)
                man2 |= 0x80000000;

        man1 <<= 11;
        if (man1 & 0x800)
                man1 |= 0x7ff;

        exp = (uint16_t)(((((exp >> 4) & 0x7ff) + 0x3c00) & 0x7fff) | (exp & 0x8000));

        lecpy((char *) f80, (const char *) &man1, 4);
        lecpy((char *) f80 + 4, (const char *) &man2, 4);
        lecpy((char *) f80 + 8, (const char *) &exp, 2);
}

double etodf(void *ext) {
   double result;
   __asm {
      finit
      fld tbyte ptr ext
      fstp qword ptr result
    }
   return result;
}