From: Randy Kunkee <kunkee@openldap.org>
Date: Wed, 22 Dec 1999 18:29:34 +0000 (+0000)
Subject: Add missing 2nd arg (NULL) in call to Tcl_GetStringFromObj in experimental
X-Git-Tag: UCDATA_2_4~61
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=2205c499756469cb7d7100d7de3d38445794a78c;p=openldap

Add missing 2nd arg (NULL) in call to Tcl_GetStringFromObj in experimental
trap code.
---

diff --git a/contrib/ldaptcl/neoXldap.c b/contrib/ldaptcl/neoXldap.c
index 5d36668895..b91e6a450b 100644
--- a/contrib/ldaptcl/neoXldap.c
+++ b/contrib/ldaptcl/neoXldap.c
@@ -1075,11 +1075,11 @@ NeoX_LdapTargetObjCmd (clientData, interp, objc, objv)
 	    return TCL_ERROR;
 	if (l == 0)
 	    return TCL_OK;		/* empty code list */
-	ldaptcl->traplist = malloc(sizeof(int) * (l + 1));
+	ldaptcl->traplist = (int*)malloc(sizeof(int) * (l + 1));
 	ldaptcl->traplist[l] = 0;
 	for (i = 0; i < l; i++) {
 	    Tcl_ListObjIndex(interp, objv[3], i, &resultObj);
-	    code = LDAP_ErrorStringToCode(interp, Tcl_GetStringFromObj(resultObj));
+	    code = LDAP_ErrorStringToCode(interp, Tcl_GetStringFromObj(resultObj, NULL));
 	    if (code == -1) {
 		free(ldaptcl->traplist);
 		ldaptcl->traplist = NULL;