Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | more cleanup |
|---|---|
| Timelines: | family | ancestors | descendants | both | novem-64bit-sizes |
| Files: | files | file ages | folders |
| SHA1: |
61476ef2483b5c84792a6b005ae7b356 |
| User & Date: | dkf 2013-09-27 17:36:01.381 |
Context
|
2013-09-28
| ||
| 18:39 | Fix the broken tests check-in: c8cb3e1aaa user: dkf tags: novem-64bit-sizes | |
|
2013-09-27
| ||
| 17:36 | more cleanup check-in: 61476ef248 user: dkf tags: novem-64bit-sizes | |
| 16:38 | Clean compile on OSX check-in: adad1a60c5 user: dkf tags: novem-64bit-sizes | |
Changes
Changes to unix/dltest/pkgb.c.
| ︙ | ︙ | |||
96 97 98 99 100 101 102 |
return Tcl_EvalEx(interp, "list unsafe command invoked", -1, TCL_EVAL_GLOBAL);
}
static int
Pkgb_DemoObjCmd(
ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
| | | 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 |
return Tcl_EvalEx(interp, "list unsafe command invoked", -1, TCL_EVAL_GLOBAL);
}
static int
Pkgb_DemoObjCmd(
ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
size_t objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *first;
if (Tcl_ListObjIndex(NULL, Tcl_GetEncodingSearchPath(), 0, &first)
== TCL_OK) {
Tcl_SetObjResult(interp, first);
|
| ︙ | ︙ |
Changes to unix/tclUnixTest.c.
| ︙ | ︙ | |||
602 603 604 605 606 607 608 |
static int
TestgetdefencdirCmd(
ClientData clientData, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
size_t objc, /* Number of arguments. */
Tcl_Obj *const *objv) /* Argument strings. */
{
| | | 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 |
static int
TestgetdefencdirCmd(
ClientData clientData, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
size_t objc, /* Number of arguments. */
Tcl_Obj *const *objv) /* Argument strings. */
{
size_t numDirs;
Tcl_Obj *first, *searchPath;
if (objc != 1) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
return TCL_ERROR;
}
|
| ︙ | ︙ |