mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 15:10:34 +02:00
Code Activity

* net_db.c (s_scm_inet_makeaddr): Use SCM_NUM2ULONG since that's

Browse source 
the way guile-1.3.4 worked, but #if 0 out the version using
SCM_VALIDATE_INUM_COPY for stricter testing.
This commit is contained in:
Greg J. Badros 2000-01-12 08:07:36 +00:00
parent 95aec69f90
commit 2cf377147e
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/net_db.c
View file

@ -175,8 +175,13 @@ with the local-address-within-network number @var{lna}.
unsigned long netnum; unsigned long netnum;
unsigned long lnanum; unsigned long lnanum;
#ifdef 0 /* GJB:FIXME:: */
SCM_VALIDATE_INUM_COPY (1,net,netnum); SCM_VALIDATE_INUM_COPY (1,net,netnum);
SCM_VALIDATE_INUM_COPY (2,lna,lnanum); SCM_VALIDATE_INUM_COPY (2,lna,lnanum);
#else
netnum = SCM_NUM2ULONG (1, net);
lnanum = SCM_NUM2ULONG (2, lna);
#endif
addr = inet_makeaddr (netnum, lnanum); addr = inet_makeaddr (netnum, lnanum);
return scm_ulong2num (ntohl (addr.s_addr)); return scm_ulong2num (ntohl (addr.s_addr));
} }