Tcl Source Code

Artifact 1d5c36ecc6e3cee3220eeb42ca1688ff70775830:

Attachment "tclCmdMZ.patch" to ticket [413844ffff] added by kennykb 2001-04-05 05:49:49.

---

Index: generic/tclCmdMZ.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCmdMZ.c,v
retrieving revision 1.33
diff -c -r1.33 tclCmdMZ.c
*** generic/tclCmdMZ.c	2001/03/28 02:30:06	1.33
--- generic/tclCmdMZ.c	2001/04/04 22:42:44
***************
*** 1634,1641 ****
  	    int mapElemc, nocase = 0;
  	    Tcl_Obj **mapElemv;
  	    Tcl_UniChar *ustring1, *ustring2, *p, *end;
! 	    int (*strCmpFn)(CONST Tcl_UniChar*, CONST Tcl_UniChar*,
! 		    unsigned long);
  
  	    if (objc < 4 || objc > 5) {
  	        Tcl_WrongNumArgs(interp, 2, objv, "?-nocase? charMap string");
--- 1634,1641 ----
  	    int mapElemc, nocase = 0;
  	    Tcl_Obj **mapElemv;
  	    Tcl_UniChar *ustring1, *ustring2, *p, *end;
! 	    int (*strCmpFn)_ANSI_ARGS_((CONST Tcl_UniChar*, CONST Tcl_UniChar*,
! 					unsigned long));
  
  	    if (objc < 4 || objc > 5) {
  	        Tcl_WrongNumArgs(interp, 2, objv, "?-nocase? charMap string");