projects
/
libfirm
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
put node descriptions into the spec file
[libfirm]
/
ir
/
tv
/
tv.c
diff --git
a/ir/tv/tv.c
b/ir/tv/tv.c
index
dbdf9b6
..
17a79d0
100644
(file)
--- a/
ir/tv/tv.c
+++ b/
ir/tv/tv.c
@@
-480,7
+480,7
@@
long get_tarval_long(ir_tarval* tv)
return sc_val_to_long(tv->value);
}
return sc_val_to_long(tv->value);
}
-ir_tarval *new_tarval_from_double(long double d, ir_mode *mode)
+ir_tarval *new_tarval_from_
long_
double(long double d, ir_mode *mode)
{
const ieee_descriptor_t *desc;
{
const ieee_descriptor_t *desc;
@@
-490,6
+490,11
@@
ir_tarval *new_tarval_from_double(long double d, ir_mode *mode)
return get_tarval(fc_get_buffer(), fc_get_buffer_length(), mode);
}
return get_tarval(fc_get_buffer(), fc_get_buffer_length(), mode);
}
+ir_tarval *new_tarval_from_double(double d, ir_mode *mode)
+{
+ return new_tarval_from_long_double(d, mode);
+}
+
/* returns non-zero if can be converted to double */
int tarval_is_double(ir_tarval *tv)
{
/* returns non-zero if can be converted to double */
int tarval_is_double(ir_tarval *tv)
{
@@
-498,13
+503,18
@@
int tarval_is_double(ir_tarval *tv)
return (get_mode_sort(tv->mode) == irms_float_number);
}
return (get_mode_sort(tv->mode) == irms_float_number);
}
-long double get_tarval_double(ir_tarval *tv)
+long double get_tarval_
long_
double(ir_tarval *tv)
{
assert(tarval_is_double(tv));
return fc_val_to_ieee754((const fp_value*) tv->value);
}
{
assert(tarval_is_double(tv));
return fc_val_to_ieee754((const fp_value*) tv->value);
}
+double get_tarval_double(ir_tarval *tv)
+{
+ return get_tarval_long_double(tv);
+}
+
/*
* Access routines for tarval fields ========================================
/*
* Access routines for tarval fields ========================================