Itcl - the [incr Tcl] extension

Check-in [10244410a1]
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:silence a compiler warning "-Wformat-overflow": output 2..11 bytes into buf of size 10 ('sprintf' may write a 0 of NTS past the end of the destination)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 10244410a17d46e986f15693f9aabf1aa001946f17e596a257660d5b0165c081
User & Date: sebres 2019-02-07 15:03:18
Context
2019-02-07
15:25
configure rebuilt with newest tclconfig version check-in: 37013da4a5 user: sebres tags: trunk
15:03
silence a compiler warning "-Wformat-overflow": output 2..11 bytes into buf of size 10 ('sprintf' may write a 0 of NTS past the end of the destination) check-in: 10244410a1 user: sebres tags: trunk
2018-11-01
16:00
TEA update check-in: bbbfb09c68 user: dgp tags: trunk, itcl-4-1-2
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];
		    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[10+1];
		    sprintf(buf, "%d", i);
		    Tcl_AppendResult(interp, "argument #", buf,
		            " has no name", NULL);
		}
	        result = TCL_ERROR;
	        break;
	    }