Update of /cvsroot/dhcp-agent/dhcp-agent/src
In directory sc8-pr-cvs1:/tmp/cvs-serv25253/src
Modified Files:
dhcp-guile-util.c
Log Message:
fixed address pair conversion
Index: dhcp-guile-util.c
===================================================================
RCS file: /cvsroot/dhcp-agent/dhcp-agent/src/dhcp-guile-util.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** dhcp-guile-util.c 18 Aug 2003 01:48:17 -0000 1.4
--- dhcp-guile-util.c 18 Aug 2003 16:15:10 -0000 1.5
***************
*** 170,180 ****
{
SCM scm_address_list = SCM_EOL;
ip_addr_t *first_ip, *second_ip;
list_rewind(address_list);
! while((first_ip = list_next(address_list)) != NULL) {
! second_ip = list_next(address_list);
! if(second_ip == NULL) {
FATAL_MESSAGE("passed uneven list as address pair");
}
--- 170,182 ----
{
SCM scm_address_list = SCM_EOL;
+ list_t *address_pair;
ip_addr_t *first_ip, *second_ip;
list_rewind(address_list);
! while((address_pair = list_next(address_list)) != NULL) {
! first_ip = list_first(address_pair);
! second_ip = list_second(address_pair);
! if(first_ip == NULL || second_ip == NULL) {
FATAL_MESSAGE("passed uneven list as address pair");
}
|
