diff options
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | bignum.c | 4 |
2 files changed, 6 insertions, 2 deletions
@@ -1,3 +1,7 @@ +Tue Jul 9 00:46:22 2013 Tanaka Akira <akr@fsij.org> + + * bignum.c (biglsh_bang): Fix bignum digits under-run. + Mon Jul 8 23:36:45 2013 Nobuyoshi Nakada <nobu@ruby-lang.org> * ext/dl/win32/lib/win32/registry.rb (Error, API): use WCHAR @@ -4425,11 +4425,11 @@ biglsh_bang(BDIGIT *xds, long xn, unsigned long shift) zds = xds + xn - 1; xn -= s1 + 1; num = BIGLO(xds[xn]<<s2); - do { + while (0 < xn) { *zds-- = num | xds[--xn]>>s3; num = BIGLO(xds[xn]<<s2); } - while (xn > 0); + assert(xds <= zds); *zds = num; for (i = s1; i > 0; --i) *zds-- = 0; |