1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00

* util.c (ruby_strtod): Float("1e") should fail. [ruby-core:7330]

* pack.c (EXTEND32): unpack("l") did not work where sizeof(long) != 4.
  [ruby-talk:180024]

* pack.c (pack_unpack): fixed integer overflow on template "w".
  [ruby-talk:180126]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9947 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
ocean 2006-02-17 02:21:39 +00:00
parent dd0fa838d9
commit d0a3c64fb4
5 changed files with 26 additions and 6 deletions

View file

@ -1,3 +1,13 @@
Fri Feb 17 11:20:53 2006 Hirokazu Yamamoto <ocean@m2.ccsnet.ne.jp>
* util.c (ruby_strtod): Float("1e") should fail. [ruby-core:7330]
* pack.c (EXTEND32): unpack("l") did not work where sizeof(long) != 4.
[ruby-talk:180024]
* pack.c (pack_unpack): fixed integer overflow on template "w".
[ruby-talk:180126]
Fri Feb 17 09:39:29 2006 Yukihiro Matsumoto <matz@ruby-lang.org>
* eval.c (rb_thread_wait_for): sleep should always sleep for

6
pack.c
View file

@ -345,11 +345,11 @@ num2i32(VALUE x)
return 0; /* not reached */
}
#if SIZEOF_LONG == SIZE32 || SIZEOF_INT == SIZE32
#if SIZEOF_LONG == SIZE32
# define EXTEND32(x)
#else
/* invariant in modulo 1<<31 */
# define EXTEND32(x) do {if (!natint) {(x) = (I32)(((1<<31)-1-(x))^~(~0<<31));}} while(0)
# define EXTEND32(x) do { if (!natint) {(x) = (((1L<<31)-1-(x))^~(~0L<<31));}} while(0)
#endif
#if SIZEOF_SHORT == SIZE16
# define EXTEND16(x)
@ -1937,7 +1937,7 @@ pack_unpack(VALUE str, VALUE fmt)
case 'w':
{
unsigned long ul = 0;
unsigned long ulmask = 0xfeL << ((sizeof(unsigned long) - 1) * 8);
unsigned long ulmask = 0xfeUL << ((sizeof(unsigned long) - 1) * 8);
while (len > 0 && s < send) {
ul <<= 7;

View file

@ -84,6 +84,7 @@ class TestFloat < Test::Unit::TestCase
assert_raise(ArgumentError){Float("+.")}
assert_raise(ArgumentError){Float("-")}
assert_raise(ArgumentError){Float("-.")}
assert_raise(ArgumentError){Float("1e")}
# add expected behaviour here.
end
end

View file

@ -15,6 +15,9 @@ class TestPack < Test::Unit::TestCase
$x = [-1073741825]
assert_equal($x, $x.pack("q").unpack("q"))
$x = [-1]
assert_equal($x, $x.pack("l").unpack("l"))
end
def test_pack_N

8
util.c
View file

@ -848,10 +848,16 @@ ruby_strtod(
}
expSign = FALSE;
}
while (ISDIGIT(*p)) {
if (ISDIGIT(*p)) {
do {
exp = exp * 10 + (*p - '0');
p += 1;
}
while (ISDIGIT(*p));
}
else {
p = pExp;
}
}
if (expSign) {
exp = fracExp - exp;