Itcl - the [incr Tcl] extension

Check-in [8ab8b442af]
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:Use TCL_INTEGER_SPACE to size the buffer.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 8ab8b442af925417d023f27c93f98cab1734cf89d5e14e2e94131fff13c48cc9
User & Date: dgp 2019-02-07 19:19:52
Context
2019-02-08
17:59
fixes [87a89c9a927db943]: apply "-load" test-option for child interpreter in tests "sfbug-254" and "sfbug-257" (provides library-path to pkgIndex or loads Itcl directly). check-in: 0155e66402 user: sebres tags: trunk
17:34
test case extended to cover [1dc2d851eb] (segfault by creating of itc-class after deleting of oo::class machinery) check-in: af671ed22c user: sebres tags: bug-1dc2d851eb
2019-02-07
19:19
Use TCL_INTEGER_SPACE to size the buffer. check-in: 8ab8b442af user: dgp tags: trunk
15:25
configure rebuilt with newest tclconfig version check-in: 37013da4a5 user: sebres tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/itclHelpers.c.

124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
	    arglistPtr = NULL;
	    if (defaultArgc == 0 || defaultArgv[0][0] == '\0') {
		if (commandName != NULL) {
	            Tcl_AppendResult(interp, "procedure \"",
		            commandName,
			    "\" has argument with no name", NULL);
		} else {
		    char buf[10+1];
		    sprintf(buf, "%d", i);
		    Tcl_AppendResult(interp, "argument #", buf,
		            " has no name", NULL);
		}
	        result = TCL_ERROR;
	        break;
	    }






|







124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
	    arglistPtr = NULL;
	    if (defaultArgc == 0 || defaultArgv[0][0] == '\0') {
		if (commandName != NULL) {
	            Tcl_AppendResult(interp, "procedure \"",
		            commandName,
			    "\" has argument with no name", NULL);
		} else {
		    char buf[TCL_INTEGER_SPACE];
		    sprintf(buf, "%d", i);
		    Tcl_AppendResult(interp, "argument #", buf,
		            " has no name", NULL);
		}
	        result = TCL_ERROR;
	        break;
	    }