* @brief tarval floating point calculations
* @date 2003
* @author Mathias Heil
- * @version $Id$
*/
#include "config.h"
/* our floating point value */
struct fp_value {
- ieee_descriptor_t desc;
+ float_descriptor_t desc;
unsigned char clss;
char sign;
char value[1]; /* exp[value_size] + mant[value_size] */
}
#if 0
-static void _power_of_ten(int exp, ieee_descriptor_t *desc, char *result)
+static void _power_of_ten(int exp, float_descriptor_t *desc, char *result)
{
char *build;
char *temp;
temp = (char*) alloca(value_size);
- if (a != result)
+ if (a != result) {
result->desc = a->desc;
+ result->clss = a->clss;
+ }
exp_bias = (1 << (a->desc.exponent_size - 1)) - 1;
exp_val = sc_val_to_long(_exp(a)) - exp_bias;
}
void *fc_val_from_str(const char *str, size_t len,
- const ieee_descriptor_t *desc, void *result)
+ const float_descriptor_t *desc, void *result)
{
char *buffer;
/* XXX excuse of an implementation to make things work */
long double val;
fp_value *tmp = (fp_value*) alloca(calc_buffer_size);
- ieee_descriptor_t tmp_desc;
+ float_descriptor_t tmp_desc;
buffer = (char*) alloca(len+1);
memcpy(buffer, str, len);
return fc_cast(tmp, desc, (fp_value*) result);
}
-fp_value *fc_val_from_ieee754(long double l, const ieee_descriptor_t *desc,
+fp_value *fc_val_from_ieee754(long double l, const float_descriptor_t *desc,
fp_value *result)
{
char *temp;
uint32_t mantissa1;
value_t buildval;
- ieee_descriptor_t desc;
+ float_descriptor_t desc;
unsigned mantissa_size;
size_t long_double_size = sizeof(long double);
return buildval.d;
}
-fp_value *fc_cast(const fp_value *value, const ieee_descriptor_t *desc,
+fp_value *fc_cast(const fp_value *value, const float_descriptor_t *desc,
fp_value *result)
{
char *temp;
return result;
}
-fp_value *fc_get_max(const ieee_descriptor_t *desc, fp_value *result)
+fp_value *fc_get_max(const float_descriptor_t *desc, fp_value *result)
{
if (result == NULL) result = calc_buffer;
return result;
}
-fp_value *fc_get_min(const ieee_descriptor_t *desc, fp_value *result)
+fp_value *fc_get_min(const float_descriptor_t *desc, fp_value *result)
{
if (result == NULL) result = calc_buffer;
return result;
}
-fp_value *fc_get_snan(const ieee_descriptor_t *desc, fp_value *result)
+fp_value *fc_get_snan(const float_descriptor_t *desc, fp_value *result)
{
if (result == NULL) result = calc_buffer;
return result;
}
-fp_value *fc_get_qnan(const ieee_descriptor_t *desc, fp_value *result)
+fp_value *fc_get_qnan(const float_descriptor_t *desc, fp_value *result)
{
if (result == NULL) result = calc_buffer;
return result;
}
-fp_value *fc_get_plusinf(const ieee_descriptor_t *desc, fp_value *result)
+fp_value *fc_get_plusinf(const float_descriptor_t *desc, fp_value *result)
{
char *mant;
return result;
}
-fp_value *fc_get_minusinf(const ieee_descriptor_t *desc, fp_value *result)
+fp_value *fc_get_minusinf(const float_descriptor_t *desc, fp_value *result)
{
if (result == NULL) result = calc_buffer;
}
/* Return non-zero if a given value can be converted lossless into another precision */
-int fc_can_lossless_conv_to(const fp_value *value, const ieee_descriptor_t *desc)
+int fc_can_lossless_conv_to(const fp_value *value, const float_descriptor_t *desc)
{
int v;
int exp_bias;
fp_value *fc_rnd(const fp_value *a, fp_value *result)
{
- if (result == NULL) result = calc_buffer;
-
- (void) a;
+ (void)a;
+ (void)result;
TRACEPRINTF(("%s ", fc_print(a, buffer, sizeof(buffer), FC_PACKED)));
TRACEPRINTF(("rounded to integer "));
- panic("fc_rnd() not yet implemented");
+ panic("not yet implemented");
}
/*