Tcl Source Code

Check-in [e670fd9be2]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Unbreak TCL_ARGV_AUTO_REST macro, found during testing.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-3413857
Files: files | file ages | folders
SHA1: e670fd9be2e81bf89947f6d840be871a4087c102
User & Date: dkf 2011-09-27 09:44:56
Context
2011-09-27
09:45
Test harness for Tcl_ParseArgsObjv Closed-Leaf check-in: ffc52b181f user: dkf tags: bug-3413857
09:44
Unbreak TCL_ARGV_AUTO_REST macro, found during testing. check-in: e670fd9be2 user: dkf tags: bug-3413857
2011-09-26
10:09
Proposed patch to fix [Bug 3413857]... check-in: 8edb5ef770 user: dkf tags: bug-3413857
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIndexObj.c.

1218
1219
1220
1221
1222
1223
1224






1225

1226
1227
1228
1229
1230
1231
1232
	    }
	    *((const char **) infoPtr->dstPtr) =
		    Tcl_GetString(objv[srcIndex]);
	    srcIndex++;
	    objc--;
	    break;
	case TCL_ARGV_REST:






	    *((int *) infoPtr->dstPtr) = dstIndex;

	    goto argsDone;
	case TCL_ARGV_FLOAT:
	    if (objc == 0) {
		goto missingArg;
	    }
	    if (Tcl_GetDoubleFromObj(interp, objv[srcIndex],
		    (double *) infoPtr->dstPtr) == TCL_ERROR) {






>
>
>
>
>
>
|
>







1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
	    }
	    *((const char **) infoPtr->dstPtr) =
		    Tcl_GetString(objv[srcIndex]);
	    srcIndex++;
	    objc--;
	    break;
	case TCL_ARGV_REST:
	    /*
	     * Only store the point where we got to if it's not to be written
	     * to NULL, so that TCL_ARGV_AUTO_REST works.
	     */

	    if (infoPtr->dstPtr != NULL) {
		*((int *) infoPtr->dstPtr) = dstIndex;
	    }
	    goto argsDone;
	case TCL_ARGV_FLOAT:
	    if (objc == 0) {
		goto missingArg;
	    }
	    if (Tcl_GetDoubleFromObj(interp, objv[srcIndex],
		    (double *) infoPtr->dstPtr) == TCL_ERROR) {