primitiveSubScalar(void)
{
// FloatArrayPlugin>>#primitiveSubScalar
sqInt i;
sqInt length;
sqInt rcvr;
float *rcvrPtr;
double value;
value = stackFloatValue(0);
rcvr = stackObjectValue(1);
if (failed()) {
return null;
}
success(isWords(rcvr));
if (failed()) {
return null;
}
length = stSizeOf(rcvr);
rcvrPtr = ((float *) (firstIndexableField(rcvr)));
for (i = 0; i <= (length - 1); i += 1) {
rcvrPtr[i] = ((((double) (rcvrPtr[i]))) - value);
}
pop(1);
}
primitiveDivScalar(void)
{
sqInt i;
double inverse;
sqInt length;
sqInt rcvr;
float *rcvrPtr;
double value;
value = stackFloatValue(0);
if (failed()) {
return null;
}
rcvr = stackValue(1);
if (!(isWords(rcvr))) {
return primitiveFail();
}
length = stSizeOf(rcvr);
rcvrPtr = ((float *) (firstIndexableField(rcvr)));
inverse = 1.0 / value;
for (i = 0; i < length; i += 1) {
rcvrPtr[i] = ((((double) (rcvrPtr[i]))) * inverse);
}
pop(1);
return 0;
}
primitiveRaisedToPower(void)
{
// FloatMathPlugin>>#primitiveRaisedToPower
double arg;
double rcvr;
double result;
arg = stackFloatValue(0);
rcvr = stackFloatValue(1);
if (failed()) {
return null;
}
result = __ieee754_pow(rcvr, arg);
if (isnan(result)) {
return primitiveFail();
}
pop((methodArgumentCount()) + 1);
pushFloat(result);
}
primitiveSoundSetLeftVolume(void)
{
// SoundPlugin>>#primitiveSoundSetLeftVolume
double aLeftVolume;
double aRightVolume;
aLeftVolume = stackFloatValue(1);
aRightVolume = stackFloatValue(0);
if (failed()) {
return null;
}
if (!(failed())) {
snd_SetVolume(aLeftVolume,aRightVolume);
}
if (failed()) {
return null;
}
pop(2);
return null;
}
primitiveTanH(void)
{
// FloatMathPlugin>>#primitiveTanH
double rcvr;
double result;
rcvr = stackFloatValue(0);
if (failed()) {
return null;
}
result = __ieee754_tanh(rcvr);
if (isnan(result)) {
return primitiveFail();
}
pop((methodArgumentCount()) + 1);
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);
}
primitiveTimesTwoPower(void)
{
// FloatMathPlugin>>#primitiveTimesTwoPower
sqInt arg;
double rcvr;
double result;
arg = stackIntegerValue(0);
rcvr = stackFloatValue(1);
if (failed()) {
return null;
}
result = __ieee754_ldexp(rcvr, arg);
if (isnan(result)) {
return primitiveFail();
}
pop((methodArgumentCount()) + 1);
pushFloat(result);
}
