Changeset 205 for trunk/base

Timestamp:

Aug 20, 2002, 10:11:00 AM (22 years ago)

Author:

jkh

Message:

Nuke warnings.

File:

• trunk/base/Tcl/port1.0/Pextlib.c (modified) (2 diffs)

trunk/base/Tcl/port1.0/Pextlib.c

@@ -230 +230 @@
         char *pattern, *string, *res;
         Tcl_Obj *tcl_result;
+        extern char *strsed(char *str, char *pat, int range);
 
         if (objc != 3) {
@@ -243 +244 @@
                 return TCL_ERROR;
         }
-        Tcl_SetResult(interp, res, free);
+        Tcl_SetResult(interp, res, (Tcl_FreeProc *)free);
         return TCL_OK;
 }