mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

Fix brace style for bf9d30f3c3

Browse source
This commit is contained in:
Daniel Llorens 2021-11-05 13:46:38 +01:00
parent c6b1171c6b
commit 24116be822
1 changed files with 26 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/numbers.c
View file

@ -5120,7 +5120,8 @@ SCM_DEFINE (scm_ash, "ash", 2, 0, 0,
? SCM_INUM0 : SCM_I_MAKINUM (-1);
else if (scm_is_true (scm_zero_p (n)))
return SCM_INUM0;
else if (scm_is_signed_integer (count, INT32_MIN + 1, INT32_MAX)) {
else if (scm_is_signed_integer (count, INT32_MIN + 1, INT32_MAX))
{
/* We exclude MIN to ensure that 'bits_to_shift' can be
negated without overflowing, if INT32_MIN happens to be LONG_MIN */
long bits_to_shift = scm_to_long (count);
@ -5130,7 +5131,8 @@ SCM_DEFINE (scm_ash, "ash", 2, 0, 0,
return floor_right_shift_exact_integer (n, -bits_to_shift);
else
return n;
} else
}
else
scm_num_overflow ("ash");
}
#undef FUNC_NAME
@ -5166,7 +5168,8 @@ SCM_DEFINE (scm_round_ash, "round-ash", 2, 0, 0,
/* If N is zero, or the right shift count exceeds the integer
length, the result is zero. */
return SCM_INUM0;
else if (scm_is_signed_integer (count, INT32_MIN + 1, INT32_MAX)) {
else if (scm_is_signed_integer (count, INT32_MIN + 1, INT32_MAX))
{
/* We exclude MIN to ensure that 'bits_to_shift' can be
negated without overflowing, if INT32_MIN happens to be LONG_MIN */
long bits_to_shift = scm_to_long (count);
@ -5176,7 +5179,8 @@ SCM_DEFINE (scm_round_ash, "round-ash", 2, 0, 0,
return round_right_shift_exact_integer (n, -bits_to_shift);
else
return n;
} else
}
else
scm_num_overflow ("round-ash");
}
#undef FUNC_NAME