Skip to content
Permalink
Browse files

Nuke warnings.

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@205 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
Jordan K. Hubbard
Jordan K. Hubbard committed Aug 20, 2002
1 parent ac630b9 commit a3d0c809d97235ac2e5dee359b7a18b48c7e828c
Showing with 2 additions and 1 deletion.
  1. +2 −1 Tcl/port1.0/Pextlib.c
@@ -229,6 +229,7 @@ int StrsedCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONS
{
char *pattern, *string, *res;
Tcl_Obj *tcl_result;
extern char *strsed(char *str, char *pat, int range);

if (objc != 3) {
Tcl_WrongNumArgs(interp, 1, objv, "pattern string");
@@ -242,7 +243,7 @@ int StrsedCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONS
Tcl_SetResult(interp, "strsed failed", TCL_STATIC);
return TCL_ERROR;
}
Tcl_SetResult(interp, res, free);
Tcl_SetResult(interp, res, (Tcl_FreeProc *)free);
return TCL_OK;
}

0 comments on commit a3d0c80

Please sign in to comment.
You can’t perform that action at this time.