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);
}