casa-mp-base

--- tclreadline.c.orig  2000-09-20 12:44:34.000000000 -0500

+++ tclreadline.c   2015-04-11 06:35:23.000000000 -0500

@@ -49,8 +49,8 @@

 static const char* tclrl_version_str = TCLRL_VERSION_STR;

 static const char* tclrl_patchlevel_str = TCLRL_PATCHLEVEL_STR;

-#define MALLOC(size) Tcl_Alloc((int) size)

-#define FREE(ptr) if (ptr) { Tcl_Free((char*) ptr); ptr = 0; }

+#define MALLOC(size) malloc((int) size)

+#define FREE(ptr) if (ptr) { free((char*) ptr); ptr = 0; }

 enum {

     _CMD_SET     = (1 << 0),

@@ -635,7 +635,7 @@

      * directory. If this failes, this

      * is *not* an error.

      */

-    rl_attempted_completion_function = (CPPFunction *) TclReadlineCompletion;

+    rl_attempted_completion_function = (rl_completion_func_t *) TclReadlineCompletion;

     if (read_history(historyfile)) {

    if (write_history(historyfile)) {

        Tcl_AppendResult (interp, "warning: `",