Commit e83bd3df authored by Juan Jose Garcia Ripoll's avatar Juan Jose Garcia Ripoll
Browse files

Unboxed type SHORT-FLOAT removed from the core.

parent 0e3b1c38
......@@ -235,10 +235,6 @@ ecl_alloc_object(cl_type t)
return MAKE_FIXNUM(0); /* Immediate fixnum */
case t_character:
return CODE_CHAR('\0'); /* Immediate character */
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(0.0); /* Immediate float */
#endif
default:;
}
......
......@@ -495,9 +495,6 @@ ecl_alloc_object(cl_type t)
return MAKE_FIXNUM(0); /* Immediate fixnum */
case t_character:
return CODE_CHAR(' '); /* Immediate character */
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
#endif
#ifdef ECL_LONG_FLOAT
case t_longfloat:
#endif
......
......@@ -77,10 +77,6 @@ ecl_to_fixnum(cl_object x)
/* case t_character: return (cl_fixnum)CHAR_CODE(x); */
case t_ratio:
return (cl_fixnum)ecl_to_double(x);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return (cl_fixnum)ecl_short_float(x);
#endif
case t_singlefloat:
return (cl_fixnum)sf(x);
case t_doublefloat:
......@@ -103,10 +99,6 @@ ecl_to_unsigned_integer(cl_object x)
return fixnnint(x);
case t_ratio:
return (cl_index)ecl_to_double(x);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return (cl_index)ecl_short_float(x);
#endif
case t_singlefloat:
return (cl_index)sf(x);
case t_doublefloat:
......@@ -131,10 +123,6 @@ ecl_to_float(cl_object x)
case t_bignum:
case t_ratio:
return ecl_to_double(x);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return ecl_short_float(x);
#endif
case t_singlefloat:
return sf(x);
case t_doublefloat:
......
......@@ -1064,20 +1064,12 @@ fmt_exponential_float(format_stack fmt, bool colon, bool atsign)
} else if (y == @'single-float') {
t = t_singlefloat;
} else {
#ifdef ECL_SHORT_FLOAT
t = t_shortfloat;
#else
t = t_singlefloat;
#endif
}
if (type_of(x) == t)
exponentchar = 'E';
else if (type_of(x) == t_singlefloat)
exponentchar = 'F';
#ifdef ECL_SHORT_FLOAT
else if (type_of(x) == t_shortfloat)
exponentchar = 'S';
#endif
#ifdef ECL_LONG_FLOAT
else if (type_of(x) == t_longfloat)
exponentchar = 'L';
......
......@@ -153,9 +153,6 @@ BEGIN:
mark_next(x->ratio.den);
break;
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
#endif
case t_singlefloat:
case t_doublefloat:
#ifdef ECL_LONG_FLOAT
......
......@@ -54,12 +54,6 @@ _hash_eql(cl_hashkey h, cl_object x)
case t_ratio:
h = _hash_eql(h, x->ratio.num);
return _hash_eql(h, x->ratio.den);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat: {
float f = ecl_short_float(x);
return hash_string(h, (unsigned char*)&f, sizeof(f));
}
#endif
case t_singlefloat:
return hash_string(h, (unsigned char*)&sf(x), sizeof(sf(x)));
case t_doublefloat:
......@@ -127,12 +121,6 @@ _hash_equal(int depth, cl_hashkey h, cl_object x)
case t_random:
return _hash_equal(0, h, x->random.value);
#ifdef ECL_SIGNED_ZERO
# ifdef ECL_SHORT_FLOAT
case t_shortfloat: {
float f = ecl_short_float(x);
return hash_string(h, (unsigned char*)&f, sizeof(f));
}
# endif
case t_singlefloat: {
float f = sf(x);
if (f == 0.0) f = 0.0;
......@@ -198,16 +186,6 @@ _hash_equalp(int depth, cl_hashkey h, cl_object x)
return h;
case t_fixnum:
return hash_word(h, fix(x));
#ifdef HAVE_SHORT_FLOAT
case t_shortfloat: {
/* FIXME! We should be more precise here! */
return hash_word(h, (cl_index)sf(x));
union { float f; cl_index w; } x;
x.w = 0;
x.f = ecl_short_float(x);
return hash_word(h, x.w);
}
#endif
case t_singlefloat:
/* FIXME! We should be more precise here! */
return hash_word(h, (cl_index)sf(x));
......
......@@ -281,9 +281,6 @@ cl_class_of(cl_object x)
index = ECL_BUILTIN_INTEGER; break;
case t_ratio:
index = ECL_BUILTIN_RATIO; break;
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
#endif
case t_singlefloat:
case t_doublefloat:
#ifdef ECL_LONG_FLOAT
......
......@@ -161,9 +161,6 @@ static const char *feature_names[] = {
#ifdef ECL_LONG_FLOAT
"LONG-FLOAT",
#endif
#ifdef ECL_SHORT_FLOAT
"SHORT-FLOAT",
#endif
#ifdef ECL_RELATIVE_PACKAGE_NAMES
"RELATIVE-PACKAGE-NAMES",
#endif
......
......@@ -46,10 +46,6 @@ ecl_times(cl_object x, cl_object y)
case t_ratio:
z = ecl_times(x, y->ratio.num);
return ecl_make_ratio(z, y->ratio.den);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(fix(x) * ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(fix(x) * sf(y));
case t_doublefloat:
......@@ -72,10 +68,6 @@ ecl_times(cl_object x, cl_object y)
case t_ratio:
z = ecl_times(x, y->ratio.num);
return ecl_make_ratio(z, y->ratio.den);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(ecl_to_double(x) * ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(ecl_to_double(x) * sf(y));
case t_doublefloat:
......@@ -99,10 +91,6 @@ ecl_times(cl_object x, cl_object y)
z = ecl_times(x->ratio.num,y->ratio.num);
z1 = ecl_times(x->ratio.den,y->ratio.den);
return ecl_make_ratio(z, z1);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(ecl_to_double(x) * ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(ecl_to_double(x) * sf(y));
case t_doublefloat:
......@@ -116,32 +104,6 @@ ecl_times(cl_object x, cl_object y)
default:
FEwrong_type_nth_arg(@[*], 2, y, @[number]);
}
#ifdef ECL_SHORT_FLOAT
case t_shortfloat: {
float fx = ecl_short_float(x);
switch (type_of(y)) {
case t_fixnum:
return make_shortfloat(fx * fix(y));
case t_bignum:
case t_ratio:
return make_shortfloat(fx * ecl_to_double(y));
case t_shortfloat:
return make_shortfloat(fx * ecl_short_float(y));
case t_singlefloat:
return make_shortfloat(fx * sf(y));
case t_doublefloat:
return ecl_make_doublefloat(fx * sf(x));
#ifdef ECL_LONG_FLOAT
case t_longfloat:
return ecl_make_longfloat(fx * ecl_long_float(y));
#endif
case t_complex:
goto COMPLEX;
default:
FEwrong_type_nth_arg(@[*], 2, y, @[number]);
}
}
#endif
case t_singlefloat: {
float fx = sf(x);
switch (type_of(y)) {
......@@ -150,10 +112,6 @@ ecl_times(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
return ecl_make_singlefloat(fx * ecl_to_double(y));
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return ecl_make_singlefloat(fx * ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(fx * sf(y));
case t_doublefloat:
......@@ -175,10 +133,6 @@ ecl_times(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
return ecl_make_doublefloat(df(x) * ecl_to_double(y));
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return ecl_make_doublefloat(df(x) * ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_doublefloat(df(x) * sf(y));
case t_doublefloat:
......@@ -205,10 +159,6 @@ ecl_times(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
return ecl_make_longfloat(lx * ecl_to_double(y));
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return ecl_make_longfloat(lx * ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_longfloat(lx * sf(y));
case t_doublefloat:
......@@ -269,10 +219,6 @@ ecl_plus(cl_object x, cl_object y)
z = ecl_times(x, y->ratio.den);
z = ecl_plus(z, y->ratio.num);
return ecl_make_ratio(z, y->ratio.den);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(fix(x) + ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(fix(x) + sf(y));
case t_doublefloat:
......@@ -298,10 +244,6 @@ ecl_plus(cl_object x, cl_object y)
z = ecl_times(x, y->ratio.den);
z = ecl_plus(z, y->ratio.num);
return ecl_make_ratio(z, y->ratio.den);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(ecl_to_double(x) + ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(ecl_to_double(x) + sf(y));
case t_doublefloat:
......@@ -328,10 +270,6 @@ ecl_plus(cl_object x, cl_object y)
z = ecl_plus(z1, z);
z1 = ecl_times(x->ratio.den,y->ratio.den);
return ecl_make_ratio(z, z1);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(ecl_to_double(x) + ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(ecl_to_double(x) + sf(y));
case t_doublefloat:
......@@ -345,30 +283,6 @@ ecl_plus(cl_object x, cl_object y)
default:
FEwrong_type_nth_arg(@[+], 2, y, @[number]);
}
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
switch (type_of(y)) {
case t_fixnum:
return make_shortfloat(ecl_short_float(x) + fix(y));
case t_bignum:
case t_ratio:
return make_shortfloat(ecl_short_float(x) + ecl_to_double(y));
case t_shortfloat:
return make_shortfloat(ecl_short_float(x) + ecl_short_float(y));
case t_singlefloat:
return make_shortfloat(ecl_short_float(x) + sf(y));
case t_doublefloat:
return ecl_make_doublefloat(ecl_short_float(x) + df(y));
#ifdef ECL_LONG_FLOAT
case t_longfloat:
return ecl_make_longfloat(ecl_short_float(x) + ecl_long_float(y));
#endif
case t_complex:
goto COMPLEX;
default:
FEwrong_type_nth_arg(@[+], 2, y, @[number]);
}
#endif
case t_singlefloat:
switch (type_of(y)) {
case t_fixnum:
......@@ -376,10 +290,6 @@ ecl_plus(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
return ecl_make_singlefloat(sf(x) + ecl_to_double(y));
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(sf(x) + ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(sf(x) + sf(y));
case t_doublefloat:
......@@ -400,10 +310,6 @@ ecl_plus(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
return ecl_make_doublefloat(df(x) + ecl_to_double(y));
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return ecl_make_doublefloat(df(x) + ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_doublefloat(df(x) + sf(y));
case t_doublefloat:
......@@ -425,10 +331,6 @@ ecl_plus(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
return ecl_make_longfloat(ecl_long_float(x) + ecl_to_double(y));
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return ecl_make_longfloat(ecl_long_float(x) + ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_longfloat(ecl_long_float(x) + sf(y));
case t_doublefloat:
......@@ -484,10 +386,6 @@ ecl_minus(cl_object x, cl_object y)
z = ecl_times(x, y->ratio.den);
z = ecl_minus(z, y->ratio.num);
return ecl_make_ratio(z, y->ratio.den);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(fix(x) - ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(fix(x) - sf(y));
case t_doublefloat:
......@@ -511,10 +409,6 @@ ecl_minus(cl_object x, cl_object y)
z = ecl_times(x, y->ratio.den);
z = ecl_minus(z, y->ratio.num);
return ecl_make_ratio(z, y->ratio.den);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(ecl_to_double(x) - ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(ecl_to_double(x) - sf(y));
case t_doublefloat:
......@@ -541,10 +435,6 @@ ecl_minus(cl_object x, cl_object y)
z = ecl_minus(z, z1);
z1 = ecl_times(x->ratio.den,y->ratio.den);
return ecl_make_ratio(z, z1);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(ecl_to_double(x) - ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(ecl_to_double(x) - sf(y));
case t_doublefloat:
......@@ -558,30 +448,6 @@ ecl_minus(cl_object x, cl_object y)
default:
FEwrong_type_nth_arg(@[-], 2, y, @[number]);
}
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
switch (type_of(y)) {
case t_fixnum:
return make_shortfloat(ecl_short_float(x) - fix(y));
case t_bignum:
case t_ratio:
return make_shortfloat(ecl_short_float(x) - ecl_to_double(y));
case t_shortfloat:
return make_shortfloat(ecl_short_float(x) - ecl_short_float(y));
case t_singlefloat:
return make_shortfloat(ecl_short_float(x) - sf(y));
case t_doublefloat:
return ecl_make_doublefloat(ecl_short_float(x) - df(y));
#ifdef ECL_LONG_FLOAT
case t_longfloat:
return ecl_make_longfloat(ecl_short_float(x) - ecl_long_float(y));
#endif
case t_complex:
goto COMPLEX;
default:
FEwrong_type_nth_arg(@[-], 2, y, @[number]);
}
#endif
case t_singlefloat:
switch (type_of(y)) {
case t_fixnum:
......@@ -589,10 +455,6 @@ ecl_minus(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
return ecl_make_singlefloat(sf(x) - ecl_to_double(y));
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(sf(x) - ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(sf(x) - sf(y));
case t_doublefloat:
......@@ -613,10 +475,6 @@ ecl_minus(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
return ecl_make_doublefloat(df(x) - ecl_to_double(y));
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return ecl_make_doublefloat(df(x) - ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_doublefloat(df(x) - sf(y));
case t_doublefloat:
......@@ -638,10 +496,6 @@ ecl_minus(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
return ecl_make_longfloat(ecl_long_float(x) - ecl_to_double(y));
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return ecl_make_longfloat(ecl_long_float(x) - ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_longfloat(ecl_long_float(x) - sf(y));
case t_doublefloat:
......@@ -709,10 +563,6 @@ ecl_negate(cl_object x)
z->ratio.num = z1;
z->ratio.den = x->ratio.den;
return z;
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(-ecl_shortfloat(x));
#endif
case t_singlefloat:
z = ecl_alloc_object(t_singlefloat);
sf(z) = -sf(x);
......@@ -768,10 +618,6 @@ ecl_divide(cl_object x, cl_object y)
case t_ratio:
z = ecl_times(x, y->ratio.den);
return ecl_make_ratio(z, y->ratio.num);
#ifdef ECL_SHORT_FLAOT
case t_shortfloat:
return make_shortfloat(ecl_to_double(x) / ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(ecl_to_double(x) / sf(y));
case t_doublefloat:
......@@ -797,10 +643,6 @@ ecl_divide(cl_object x, cl_object y)
z = ecl_times(x->ratio.num,y->ratio.den);
z1 = ecl_times(x->ratio.den,y->ratio.num);
return ecl_make_ratio(z, z1);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(ecl_to_double(x) / ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(ecl_to_double(x) / sf(y));
case t_doublefloat:
......@@ -814,30 +656,6 @@ ecl_divide(cl_object x, cl_object y)
default:
FEwrong_type_nth_arg(@[/], 2, y, @[number]);
}
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
switch (type_of(y)) {
case t_fixnum:
return make_shortfloat(ecl_short_float(x) / fix(y));
case t_bignum:
case t_ratio:
return make_shortfloat(ecl_short_float(x) / ecl_to_double(y));
case t_shortfloat:
return make_shortfloat(ecl_short_float(x) / ecl_short_float(y));
case t_singlefloat:
return make_shortfloat(ecl_short_float(x) / sf(y));
case t_doublefloat:
return ecl_make_doublefloat(ecl_short_float(x) / df(y));
#ifdef ECL_LONG_FLOAT
case t_longfloat:
return ecl_make_longfloat(ecl_short_float(x) / ecl_long_float(y));
#endif
case t_complex:
goto COMPLEX;
default:
FEwrong_type_nth_arg(@[/], 2, y, @[number]);
}
#endif
case t_singlefloat:
switch (type_of(y)) {
case t_fixnum:
......@@ -845,10 +663,6 @@ ecl_divide(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
return ecl_make_singlefloat(sf(x) / ecl_to_double(y));
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(sf(x) / ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_singlefloat(sf(x) / sf(y));
case t_doublefloat:
......@@ -869,10 +683,6 @@ ecl_divide(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
return ecl_make_doublefloat(df(x) / ecl_to_double(y));
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return ecl_make_doublefloat(df(x) / ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_doublefloat(df(x) / sf(y));
case t_doublefloat:
......@@ -894,10 +704,6 @@ ecl_divide(cl_object x, cl_object y)
case t_bignum:
case t_ratio:
return ecl_make_longfloat(ecl_long_float(x) / ecl_to_double(y));
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return ecl_make_longfloat(ecl_long_float(x) / ecl_short_float(y));
#endif
case t_singlefloat:
return ecl_make_longfloat(ecl_long_float(x) / sf(y));
case t_doublefloat:
......@@ -1037,10 +843,6 @@ ecl_one_plus(cl_object x)
z = ecl_plus(x->ratio.num, x->ratio.den);
return ecl_make_ratio(z, x->ratio.den);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(1.0 + ecl_short_float(x));
#endif
case t_singlefloat:
z = ecl_alloc_object(t_singlefloat);
sf(z) = sf(x) + 1.0;
......@@ -1091,11 +893,6 @@ ecl_one_minus(cl_object x)
z = ecl_minus(x->ratio.num, x->ratio.den);
return ecl_make_ratio(z, x->ratio.den);
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return make_shortfloat(ecl_short_float(x) - 1.0);
#endif
case t_singlefloat:
z = ecl_alloc_object(t_singlefloat);
sf(z) = sf(x) - 1.0;
......
......@@ -63,9 +63,6 @@ number_remainder(cl_object x, cl_object y, cl_object q)
ty = t_singlefloat;
}
switch (tx = type_of(x)) {
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
#endif
case t_singlefloat:
case t_doublefloat:
#ifdef ECL_LONG_FLOAT
......@@ -77,10 +74,6 @@ number_remainder(cl_object x, cl_object y, cl_object q)
case t_bignum:
case t_ratio:
switch (ty) {
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
x = make_shortfloat(ecl_to_double(x)); break;
#endif
case t_singlefloat:
x = ecl_make_singlefloat(ecl_to_double(x)); break;
case t_doublefloat:
......@@ -147,15 +140,6 @@ ecl_floor1(cl_object x)
v0 = ecl_floor2(x->ratio.num, x->ratio.den);
v1 = ecl_make_ratio(VALUES(1), x->ratio.den);
break;
#ifdef ECL_SHORT_FLOAT
case t_shortfloat: {
float d = ecl_short_float(x);
float y = floorf(d);
v0 = float_to_integer(y);
v1 = make_shortfloat(d - y);
break;
}
#endif
case t_singlefloat: {
float d = sf(x);
float y = floorf(d);
......@@ -225,16 +209,6 @@ ecl_floor2(cl_object x, cl_object y)
v0 = ecl_floor2(ecl_times(x, y->ratio.den), y->ratio.num);
v1 = ecl_make_ratio(VALUES(1), y->ratio.den);
break;
#ifdef ECL_SHORT_FLOAT
case t_shortfloat: { /* FIX / SF */
float n = ecl_short_float(y);
float p = fix(x) / n;
float q = floorf(p);
v0 = float_to_integer(q);
v1 = make_shortfloat((p - q)*n);
break;
}
#endif
case t_singlefloat: { /* FIX / SF */
float n = sf(y);
float p = fix(x) / n;
......@@ -281,16 +255,6 @@ ecl_floor2(cl_object x, cl_object y)
v0 = ecl_floor2(ecl_times(x, y->ratio.den), y->ratio.num);
v1 = ecl_make_ratio(VALUES(1), y->ratio.den);
break;
#ifdef ECL_SHORT_FLOAT
case t_shortfloat: { /* BIG / SF */
float n = ecl_short_float(y);
float p = _ecl_big_to_double(x) / n;
float q = floorf(p);
v0 = float_to_integer(q);
v1 = make_shortfloat((p - q)*n);
break;
}
#endif
case t_singlefloat: { /* BIG / SF */
float n = sf(y);
float p = _ecl_big_to_double(x) / n;
......@@ -333,16 +297,6 @@ ecl_floor2(cl_object x, cl_object y)
v1 = ecl_divide(VALUES(1), x->ratio.den);
}
break;
#ifdef ECL_SHORT_FLOAT
case t_shortfloat: { /* SF / ANY */