X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Ftv%2Ftv.c;h=17a79d0408964ed9b6f59b413804d61ca1201f44;hb=b50ba7aa16edbf7d978c182d90b2e5f08c6f6a56;hp=dbdf9b6e0defa0acad5eb8ac52bbf8ed4c14da37;hpb=ce6161a7e42a48f7422b7babcc64d8ace18e2687;p=libfirm

diff --git a/ir/tv/tv.c b/ir/tv/tv.c
index dbdf9b6e0..17a79d040 100644
--- 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);
 }
 
-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;
 
@@ -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);
 }
 
+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)
 {
@@ -498,13 +503,18 @@ int tarval_is_double(ir_tarval *tv)
 	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);
 }
 
+double get_tarval_double(ir_tarval *tv)
+{
+	return get_tarval_long_double(tv);
+}
+
 
 /*
  * Access routines for tarval fields ========================================