Mercurial > hg > xemacs-beta
diff src/eldap.c @ 647:b39c14581166
[xemacs-hg @ 2001-08-13 04:45:47 by ben]
removal of unsigned, size_t, etc.
| author | ben |
|---|---|
| date | Mon, 13 Aug 2001 04:46:48 +0000 |
| parents | 190b164ddcac |
| children | fdefd0186b75 |
line wrap: on
line diff
--- a/src/eldap.c Wed Aug 08 12:15:04 2001 +0000 +++ b/src/eldap.c Mon Aug 13 04:46:48 2001 +0000 @@ -601,7 +601,7 @@ struct berval *bervals; int rc; int i, j; - size_t len; + Element_Count len; Lisp_Object current = Qnil; Lisp_Object values = Qnil; @@ -622,7 +622,7 @@ invalid_operation ("Cannot add void entry", entry); /* Build the ldap_mods array */ - len = XINT (Flength (entry)); + len = (Element_Count) XINT (Flength (entry)); ldap_mods = alloca_array (LDAPMod, len); ldap_mods_ptrs = alloca_array (LDAPMod *, 1 + len); i = 0; @@ -637,7 +637,7 @@ values = XCDR (current); if (CONSP (values)) { - len = XINT (Flength (values)); + len = (Element_Count) XINT (Flength (values)); bervals = alloca_array (struct berval, len); ldap_mods[i].mod_vals.modv_bvals = alloca_array (struct berval *, 1 + len); @@ -695,7 +695,7 @@ struct berval *bervals; int i, j, rc; Lisp_Object mod_op; - size_t len; + Element_Count len; Lisp_Object current = Qnil; Lisp_Object values = Qnil; @@ -714,7 +714,7 @@ return Qnil; /* Build the ldap_mods array */ - len = XINT (Flength (mods)); + len = (Element_Count) XINT (Flength (mods)); ldap_mods = alloca_array (LDAPMod, len); ldap_mods_ptrs = alloca_array (LDAPMod *, 1 + len); i = 0; @@ -740,7 +740,7 @@ CHECK_STRING (XCAR (current)); LISP_STRING_TO_EXTERNAL (XCAR (current), ldap_mods[i].mod_type, Qnative); values = XCDR (current); - len = XINT (Flength (values)); + len = (Element_Count) XINT (Flength (values)); bervals = alloca_array (struct berval, len); ldap_mods[i].mod_vals.modv_bvals = alloca_array (struct berval *, 1 + len);