inline-3.hs

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· HS 代码 · 共 8 行

extern double rint(double);
extern double fmod (double, double);
static inline unsigned foo(double d) {
    double a;
    a = rint(d);
    return (unsigned)(fmod(a, (double)0xFFFFFFFF) + ((d - a) * 0xFFFFFFFF));
}