# HG changeset patch # User ben # Date 1100396592 0 # Node ID 7ee6ea4ff5c0a169ae549d2655e7e363bffb34c4 # Parent ecfffd1549bae3a178aa7c5c11ea1108c8f219e1 [xemacs-hg @ 2004-11-14 01:43:02 by ben] fix eldap * ldap/eldap.c (Fldap_modify) Need braces around EXTERNAL_LIST_LOOP_2. diff -r ecfffd1549ba -r 7ee6ea4ff5c0 modules/ChangeLog --- a/modules/ChangeLog Sat Nov 13 22:51:08 2004 +0000 +++ b/modules/ChangeLog Sun Nov 14 01:43:12 2004 +0000 @@ -1,3 +1,8 @@ +2004-11-13 Ben Wing + + * ldap/eldap.c (Fldap_modify): + Need braces around EXTERNAL_LIST_LOOP_2. + 2004-01-28 Stephen J. Turnbull * common/Makefile.common (CFLAGS): Use XE_CFLAGS. diff -r ecfffd1549ba -r 7ee6ea4ff5c0 modules/ldap/eldap.c --- a/modules/ldap/eldap.c Sat Nov 13 22:51:08 2004 +0000 +++ b/modules/ldap/eldap.c Sun Nov 14 01:43:12 2004 +0000 @@ -767,18 +767,20 @@ ldap_mods[i].mod_vals.modv_bvals = alloca_array (struct berval *, 1 + len); j = 0; - EXTERNAL_LIST_LOOP_2 (cur2, values) - { - CHECK_STRING (cur2); - ldap_mods[i].mod_vals.modv_bvals[j] = &(bervals[j]); - TO_EXTERNAL_FORMAT (LISP_STRING, cur2, - ALLOCA, (bervals[j].bv_val, - bervals[j].bv_len), - Qnative); - j++; - } - ldap_mods[i].mod_vals.modv_bvals[j] = NULL; - i++; + { + EXTERNAL_LIST_LOOP_2 (cur2, values) + { + CHECK_STRING (cur2); + ldap_mods[i].mod_vals.modv_bvals[j] = &(bervals[j]); + TO_EXTERNAL_FORMAT (LISP_STRING, cur2, + ALLOCA, (bervals[j].bv_val, + bervals[j].bv_len), + Qnative); + j++; + } + ldap_mods[i].mod_vals.modv_bvals[j] = NULL; + i++; + } } } ldap_mods_ptrs[i] = NULL;