EXPORT(sqInt) primitiveFractionalPart(void) { double rcvr; double result; double trunc; rcvr = interpreterProxy->stackFloatValue(0); if (interpreterProxy->failed()) { return null; } result = __ieee754_modf(rcvr, &trunc); if (isnan(result)) { return interpreterProxy->primitiveFail(); } interpreterProxy->pop((interpreterProxy->methodArgumentCount()) + 1); interpreterProxy->pushFloat(result); }
primitiveFractionalPart(void) { // FloatMathPlugin>>#primitiveFractionalPart double rcvr; double result; double trunc; rcvr = stackFloatValue(0); if (failed()) { return null; } result = __ieee754_modf(rcvr, &trunc); if (isnan(result)) { return primitiveFail(); } pop((methodArgumentCount()) + 1); pushFloat(result); }