primitiveDivFloatArray(void)
{
sqInt arg;
float *argPtr;
sqInt i;
sqInt length;
sqInt rcvr;
float *rcvrPtr;
arg = stackValue(0);
rcvr = stackValue(1);
if (!((isWords(arg))
&& ((isWords(rcvr))
&& (((length = stSizeOf(arg))) == (stSizeOf(rcvr)))))) {
return primitiveFail();
}
rcvrPtr = ((float *) (firstIndexableField(rcvr)));
/* Check if any of the argument's values is zero */
argPtr = ((float *) (firstIndexableField(arg)));
for (i = 0; i < length; i += 1) {
if ((intAtPointer(((char*) (argPtr + i)))) == 0) {
return primitiveFail();
}
}
for (i = 0; i < length; i += 1) {
rcvrPtr[i] = ((((double) (rcvrPtr[i]))) / (((double) (argPtr[i]))));
}
pop(1);
return 0;
}
primitiveDivFloatArray(void)
{
// FloatArrayPlugin>>#primitiveDivFloatArray
sqInt arg;
float *argPtr;
sqInt i;
sqInt length;
sqInt rcvr;
float *rcvrPtr;
arg = stackObjectValue(0);
rcvr = stackObjectValue(1);
if (failed()) {
return null;
}
success(isWords(arg));
success(isWords(rcvr));
if (failed()) {
return null;
}
length = stSizeOf(arg);
success(length == (stSizeOf(rcvr)));
if (failed()) {
return null;
}
rcvrPtr = ((float *) (firstIndexableField(rcvr)));
/* Check if any of the argument's values is zero */
argPtr = ((float *) (firstIndexableField(arg)));
for (i = 0; i <= (length - 1); i += 1) {
if ((intAtPointer(((char*) (argPtr + i)))) == 0) {
return primitiveFail();
}
}
for (i = 0; i <= (length - 1); i += 1) {
rcvrPtr[i] = ((((double) (rcvrPtr[i]))) / (((double) (argPtr[i]))));
}
pop(1);
}
