docbook/instant: fix a few more issues

2018-09-19 11:28:48 -06:00
parent 776e031b60
commit 7712950fb7
2 changed files with 8 additions and 7 deletions
--- a/cde/programs/dtdocbook/instant/main.c
+++ b/cde/programs/dtdocbook/instant/main.c
@@ -376,7 +376,7 @@ static int DefaultOutputString(ClientData clientData,
    pArgv = argv[1];
    stringLength = (2 * strlen(pArgv)) + 3;

-    string = malloc(stringLength);
+    string = Tcl_Alloc(stringLength);
    memset(string, 0, stringLength);
    pString = string;

@@ -403,8 +403,7 @@ static int DefaultOutputString(ClientData clientData,

    /* put the string to the output */
    retCode = Tcl_VarEval(interpreter, "puts -nonewline ", string, 0);
-
-    free(string);
+    Tcl_Free(string);

    /* and ripple up any error code we got from the "puts" */
    return retCode;