summaryrefslogtreecommitdiff
path: root/ext/bigdecimal/bigdecimal.c
diff options
context:
space:
mode:
Diffstat (limited to 'ext/bigdecimal/bigdecimal.c')
-rw-r--r--ext/bigdecimal/bigdecimal.c30
1 files changed, 15 insertions, 15 deletions
diff --git a/ext/bigdecimal/bigdecimal.c b/ext/bigdecimal/bigdecimal.c
index 1eef609..266983c 100644
--- a/ext/bigdecimal/bigdecimal.c
+++ b/ext/bigdecimal/bigdecimal.c
@@ -4196,14 +4196,14 @@ VpAddAbs(Real *a, Real *b, Real *c)
/* Just assign the last few digits of b to c because a has no */
/* corresponding digits to be added. */
- while (b_pos + word_shift > a_pos) {
- --c_pos;
- if (b_pos > 0) {
- c->frac[c_pos] = b->frac[--b_pos];
+ if (b_pos > 0) {
+ while (b_pos > 0 && b_pos + word_shift > a_pos) {
+ c->frac[--c_pos] = b->frac[--b_pos];
}
- else {
- --word_shift;
- c->frac[c_pos] = 0;
+ }
+ if (b_pos == 0 && word_shift > a_pos) {
+ while (word_shift-- > a_pos) {
+ c->frac[--c_pos] = 0;
}
}
@@ -4299,16 +4299,16 @@ VpSubAbs(Real *a, Real *b, Real *c)
/* each of the last few digits of the b because the a has no */
/* corresponding digits to be subtracted. */
if (b_pos + word_shift > a_pos) {
- while (b_pos + word_shift > a_pos) {
- --c_pos;
- if (b_pos > 0) {
- c->frac[c_pos] = BASE - b->frac[--b_pos] - borrow;
- }
- else {
+ while (b_pos > 0 && b_pos + word_shift > a_pos) {
+ c->frac[--c_pos] = BASE - b->frac[--b_pos] - borrow;
+ borrow = 1;
+ }
+ if (b_pos == 0) {
+ while (word_shift > a_pos) {
--word_shift;
- c->frac[c_pos] = BASE - borrow;
+ c->frac[--c_pos] = BASE - borrow;
+ borrow = 1;
}
- borrow = 1;
}
}
/* Just assign the last few digits of a to c because b has no */