Add missing 2nd arg (NULL) in call to Tcl_GetStringFromObj in experimental

[openldap] / contrib / ldaptcl / neoXldap.c

diff --git a/contrib/ldaptcl/neoXldap.c b/contrib/ldaptcl/neoXldap.c
index 5d36668895824f6fae6aeefa50c06ab73ef835a3..b91e6a450b6c2334d383ae6330e8bfbe6ad9dadf 100644 (file)
--- 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;