mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 15:40:38 +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); ? SCM_INUM0 : SCM_I_MAKINUM (-1);
else if (scm_is_true (scm_zero_p (n))) else if (scm_is_true (scm_zero_p (n)))
return SCM_INUM0; 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 /* We exclude MIN to ensure that 'bits_to_shift' can be
negated without overflowing, if INT32_MIN happens to be LONG_MIN */ negated without overflowing, if INT32_MIN happens to be LONG_MIN */
long bits_to_shift = scm_to_long (count); 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); return floor_right_shift_exact_integer (n, -bits_to_shift);
else else
return n; return n;
} else }
else
scm_num_overflow ("ash"); scm_num_overflow ("ash");
} }
#undef FUNC_NAME #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 /* If N is zero, or the right shift count exceeds the integer
length, the result is zero. */ length, the result is zero. */
return SCM_INUM0; 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 /* We exclude MIN to ensure that 'bits_to_shift' can be
negated without overflowing, if INT32_MIN happens to be LONG_MIN */ negated without overflowing, if INT32_MIN happens to be LONG_MIN */
long bits_to_shift = scm_to_long (count); 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); return round_right_shift_exact_integer (n, -bits_to_shift);
else else
return n; return n;
} else }
else
scm_num_overflow ("round-ash"); scm_num_overflow ("round-ash");
} }
#undef FUNC_NAME #undef FUNC_NAME