Differences From Artifact [4650eea4c0]:

• File generic/tclBinary.c — part of check-in [6b15f347eb] at 2012-09-17 10:45:47 on branch core-8-5-branch — eliminate compiler warning in previous commit (user: jan.nijtmans size: 51574) [more...]

To Artifact [fc1ebb2dc2]:

• File generic/tclBinary.c — part of check-in [976aeca8c6] at 2012-12-03 08:11:12 on branch better-deprecation-85 — merge core-8-5-branch eliminate more usage of to-be-deprecated functions (user: jan.nijtmans size: 51596) [more...]

594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609

    };

    if (objc < 2) {
    	Tcl_WrongNumArgs(interp, 1, objv, "option ?arg arg ...?");
	return TCL_ERROR;
    }

    if (Tcl_GetIndexFromObj(interp, objv[1], options, "option", 0,
	    &index) != TCL_OK) {
    	return TCL_ERROR;
    }

    switch ((enum options) index) {
    case BINARY_FORMAT:
	if (objc < 3) {
	    Tcl_WrongNumArgs(interp, 2, objv, "formatString ?arg arg ...?");

|
|

594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609

    };

    if (objc < 2) {
    	Tcl_WrongNumArgs(interp, 1, objv, "option ?arg arg ...?");
	return TCL_ERROR;
    }

    if (Tcl_GetIndexFromObjStruct(interp, objv[1], options,
	    sizeof(char *), "option", 0, &index) != TCL_OK) {
    	return TCL_ERROR;
    }

    switch ((enum options) index) {
    case BINARY_FORMAT:
	if (objc < 3) {
	    Tcl_WrongNumArgs(interp, 2, objv, "formatString ?arg arg ...?");