Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Don't use deprecated Tcl_DStringTrunc any more |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4967e0a879ff6c017a7c584d5817b9b5 |
| User & Date: | jan.nijtmans 2013-06-25 12:06:07 |
Context
|
2013-10-21
| ||
| 19:47 | Merge to pre-TCS branch. check-in: 7baa52405f user: dgp tags: dgp-stack-depth-tester | |
|
2013-06-25
| ||
| 15:01 | Make more use of the CompileTokens() macro. check-in: dfc55c5a38 user: dgp tags: trunk | |
| 14:19 | Branch for rewriting TclCompileScript() and related routines, with the intent to generally simplify ... check-in: 8297f30f00 user: dgp tags: dgp-tcs-rewrite | |
| 12:32 | merge trunk check-in: 106c3a3fde user: jan.nijtmans tags: initsubsystems | |
| 12:13 | merge trunk check-in: e125db6f98 user: dgp tags: dgp-refactor | |
| 12:07 | merge trunk check-in: bb2a18c661 user: jan.nijtmans tags: novem | |
| 12:06 | Don't use deprecated Tcl_DStringTrunc any more check-in: 4967e0a879 user: jan.nijtmans tags: trunk | |
| 12:02 | Don't use deprecated Tcl_DStringTrunc any more. check-in: 21bffe717c user: jan.nijtmans tags: core-8-5-branch | |
| 10:02 | Remove TclInitStubTable() function (but keep it in the "initsubsystems" branch). check-in: d9308f6b18 user: jan.nijtmans tags: trunk | |
Changes
Changes to generic/tclTest.c.
| ︙ | ︙ | |||
1852 1853 1854 1855 1856 1857 1858 |
} else if (strcmp(argv[1], "trunc") == 0) {
if (argc != 3) {
goto wrongNumArgs;
}
if (Tcl_GetInt(interp, argv[2], &count) != TCL_OK) {
return TCL_ERROR;
}
| | | 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 |
} else if (strcmp(argv[1], "trunc") == 0) {
if (argc != 3) {
goto wrongNumArgs;
}
if (Tcl_GetInt(interp, argv[2], &count) != TCL_OK) {
return TCL_ERROR;
}
Tcl_DStringSetLength(&dstring, count);
} else if (strcmp(argv[1], "start") == 0) {
if (argc != 2) {
goto wrongNumArgs;
}
Tcl_DStringStartSublist(&dstring);
} else {
Tcl_AppendResult(interp, "bad option \"", argv[1],
|
| ︙ | ︙ |