summaryrefslogtreecommitdiff
path: root/pack.c
diff options
context:
space:
mode:
authorko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2007-11-13 16:00:53 +0000
committerko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2007-11-13 16:00:53 +0000
commit25c0cb981af8fda9860ec6e365b9ea7a9e3f498f (patch)
treeb9b571a43d86bda67a18a05d95f0a437b5500b3b /pack.c
parentc4af7f51b7c703cfdf4a84f633af6b892b5d14a8 (diff)
* include/ruby/ruby.h: introduce 2 macros:
RFLOAT_VALUE(v), DOUBLE2NUM(dbl). Rename RFloat#value -> RFloat#double_value. Do not touch RFloat#double_value directly. * bignum.c, insns.def, marshal.c, math.c, numeric.c, object.c, pack.c, parse.y, process.c, random.c, sprintf.c, string.c, time.c: apply above changes. * ext/dl/mkcallback.rb, ext/json/ext/generator/generator.c: ditto. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@13913 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'pack.c')
-rw-r--r--pack.c24
1 files changed, 12 insertions, 12 deletions
diff --git a/pack.c b/pack.c
index ff0cdae971..4cab476bd2 100644
--- a/pack.c
+++ b/pack.c
@@ -768,7 +768,7 @@ pack_pack(VALUE ary, VALUE fmt)
float f;
from = NEXTFROM;
- f = RFLOAT(rb_Float(from))->value;
+ f = RFLOAT_VALUE(rb_Float(from));
rb_str_buf_cat(res, (char*)&f, sizeof(float));
}
break;
@@ -779,7 +779,7 @@ pack_pack(VALUE ary, VALUE fmt)
FLOAT_CONVWITH(ftmp);
from = NEXTFROM;
- f = RFLOAT(rb_Float(from))->value;
+ f = RFLOAT_VALUE(rb_Float(from));
f = HTOVF(f,ftmp);
rb_str_buf_cat(res, (char*)&f, sizeof(float));
}
@@ -791,7 +791,7 @@ pack_pack(VALUE ary, VALUE fmt)
DOUBLE_CONVWITH(dtmp);
from = NEXTFROM;
- d = RFLOAT(rb_Float(from))->value;
+ d = RFLOAT_VALUE(rb_Float(from));
d = HTOVD(d,dtmp);
rb_str_buf_cat(res, (char*)&d, sizeof(double));
}
@@ -803,7 +803,7 @@ pack_pack(VALUE ary, VALUE fmt)
double d;
from = NEXTFROM;
- d = RFLOAT(rb_Float(from))->value;
+ d = RFLOAT_VALUE(rb_Float(from));
rb_str_buf_cat(res, (char*)&d, sizeof(double));
}
break;
@@ -814,7 +814,7 @@ pack_pack(VALUE ary, VALUE fmt)
FLOAT_CONVWITH(ftmp);
from = NEXTFROM;
- f = RFLOAT(rb_Float(from))->value;
+ f = RFLOAT_VALUE(rb_Float(from));
f = HTONF(f,ftmp);
rb_str_buf_cat(res, (char*)&f, sizeof(float));
}
@@ -826,7 +826,7 @@ pack_pack(VALUE ary, VALUE fmt)
DOUBLE_CONVWITH(dtmp);
from = NEXTFROM;
- d = RFLOAT(rb_Float(from))->value;
+ d = RFLOAT_VALUE(rb_Float(from));
d = HTOND(d,dtmp);
rb_str_buf_cat(res, (char*)&d, sizeof(double));
}
@@ -1634,7 +1634,7 @@ pack_unpack(VALUE str, VALUE fmt)
float tmp;
memcpy(&tmp, s, sizeof(float));
s += sizeof(float);
- UNPACK_PUSH(rb_float_new((double)tmp));
+ UNPACK_PUSH(DOUBLE2NUM((double)tmp));
}
PACK_ITEM_ADJUST();
break;
@@ -1648,7 +1648,7 @@ pack_unpack(VALUE str, VALUE fmt)
memcpy(&tmp, s, sizeof(float));
s += sizeof(float);
tmp = VTOHF(tmp,ftmp);
- UNPACK_PUSH(rb_float_new((double)tmp));
+ UNPACK_PUSH(DOUBLE2NUM((double)tmp));
}
PACK_ITEM_ADJUST();
break;
@@ -1662,7 +1662,7 @@ pack_unpack(VALUE str, VALUE fmt)
memcpy(&tmp, s, sizeof(double));
s += sizeof(double);
tmp = VTOHD(tmp,dtmp);
- UNPACK_PUSH(rb_float_new(tmp));
+ UNPACK_PUSH(DOUBLE2NUM(tmp));
}
PACK_ITEM_ADJUST();
break;
@@ -1674,7 +1674,7 @@ pack_unpack(VALUE str, VALUE fmt)
double tmp;
memcpy(&tmp, s, sizeof(double));
s += sizeof(double);
- UNPACK_PUSH(rb_float_new(tmp));
+ UNPACK_PUSH(DOUBLE2NUM(tmp));
}
PACK_ITEM_ADJUST();
break;
@@ -1688,7 +1688,7 @@ pack_unpack(VALUE str, VALUE fmt)
memcpy(&tmp, s, sizeof(float));
s += sizeof(float);
tmp = NTOHF(tmp,ftmp);
- UNPACK_PUSH(rb_float_new((double)tmp));
+ UNPACK_PUSH(DOUBLE2NUM((double)tmp));
}
PACK_ITEM_ADJUST();
break;
@@ -1702,7 +1702,7 @@ pack_unpack(VALUE str, VALUE fmt)
memcpy(&tmp, s, sizeof(double));
s += sizeof(double);
tmp = NTOHD(tmp,dtmp);
- UNPACK_PUSH(rb_float_new(tmp));
+ UNPACK_PUSH(DOUBLE2NUM(tmp));
}
PACK_ITEM_ADJUST();
break;