mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Avoid scm_i_mkbig outside numbers.c.

Browse source 
* libguile/random.c (scm_c_random_bignum):
* libguile/socket.c (scm_from_ipv6): Avoid scm_i_mkbig.
* libguile/numbers.h:
* libguile/numbers.c (scm_i_mkbig): Remove.
This commit is contained in:
Andy Wingo 2022-01-07 11:45:38 +01:00
parent 0c502a4d3c
commit bdddef3cfd
4 changed files with 21 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/socket.c
View file

@ -1,4 +1,4 @@
/* Copyright 1996-1998,2000-2007,2009,2011-2015,2018,2021
/* Copyright 1996-1998,2000-2007,2009,2011-2015,2018,2021,2022
Free Software Foundation, Inc.
This file is part of Guile.
@ -213,15 +213,18 @@ SCM_DEFINE (scm_inet_makeaddr, "inet-makeaddr", 2, 0, 0,
static SCM
scm_from_ipv6 (const uint8_t *src)
{
SCM result = scm_i_mkbig ();
mpz_import (SCM_I_BIG_MPZ (result),
mpz_t z;
mpz_init (z);
mpz_import (z,
1, /* chunk */
1, /* big-endian chunk ordering */
16, /* chunks are 16 bytes long */
1, /* big-endian byte ordering */
0, /* "nails" -- leading unused bits per chunk */
src);
return scm_i_normbig (result);
SCM ret = scm_from_mpz (z);
mpz_clear (z);
return ret;
}
/* convert a host ordered SCM integer to a 128 bit IPv6 address in