diff options
author | Andy Wingo <wingo@pobox.com> | 2022-01-04 09:16:27 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2022-01-13 09:37:16 +0100 |
commit | 35861b28bb19f6f13f2d12d71922f1f364a9abb8 (patch) | |
tree | 5a0202f70a58679eaa71967c3c630473970a3547 /libguile/integers.h | |
parent | 3ad3ac740fc004ec24b4ddefa0425e32d8590d98 (diff) | |
download | guile-35861b28bb19f6f13f2d12d71922f1f364a9abb8.tar.gz |
Implement scm_ash with new integer library
* libguile/integers.c (scm_integer_lsh_iu, scm_integer_lsh_zu)
(scm_integer_floor_rsh_iu, scm_integer_floor_rsh_zu)
(scm_integer_round_rsh_iu, scm_integer_round_rsh_zu): New internal
functions.
* libguile/integers.h: Declare the new internal functions.
* libguile/numbers.c (scm_ash): Use new internal functions.
Diffstat (limited to 'libguile/integers.h')
-rw-r--r-- | libguile/integers.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/libguile/integers.h b/libguile/integers.h index 74624f143..dea4c2235 100644 --- a/libguile/integers.h +++ b/libguile/integers.h @@ -156,6 +156,13 @@ SCM_INTERNAL SCM scm_integer_lognot_z (SCM n); SCM_INTERNAL SCM scm_integer_modulo_expt_nnn (SCM n, SCM k, SCM m); +SCM_INTERNAL SCM scm_integer_lsh_iu (scm_t_inum n, unsigned long count); +SCM_INTERNAL SCM scm_integer_lsh_zu (SCM n, unsigned long count); +SCM_INTERNAL SCM scm_integer_floor_rsh_iu (scm_t_inum n, unsigned long count); +SCM_INTERNAL SCM scm_integer_floor_rsh_zu (SCM n, unsigned long count); +SCM_INTERNAL SCM scm_integer_round_rsh_iu (scm_t_inum n, unsigned long count); +SCM_INTERNAL SCM scm_integer_round_rsh_zu (SCM n, unsigned long count); + #endif /* SCM_INTEGERS_H */ |