diff options
| author | griffin <briang42@easystreet.net> | 2023-05-25 20:55:52 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-05-25 20:55:52 (GMT) |
| commit | 22306f855bf51086d44dcd3c7c48cfcca54a733e (patch) | |
| tree | 95b82488cca1b7a439d7f9d4948d5f46e2775322 /generic/tclTestObj.c | |
| parent | 09bc3f703368aba6ab9349cb6df1f217b49d6241 (diff) | |
| parent | 0657f97bc5e5f5b835c2c60713f306fb97950a89 (diff) | |
| download | tcl-22306f855bf51086d44dcd3c7c48cfcca54a733e.zip tcl-22306f855bf51086d44dcd3c7c48cfcca54a733e.tar.gz tcl-22306f855bf51086d44dcd3c7c48cfcca54a733e.tar.bz2 | |
merge trunk, fix leak.
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index a669695..5271a54 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -119,8 +119,10 @@ TclObjTest_Init( Tcl_CreateObjCommand(interp, "testobj", TestobjCmd, NULL, NULL); Tcl_CreateObjCommand(interp, "teststringobj", TeststringobjCmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "testbigdata", TestbigdataCmd, - NULL, NULL); + if (sizeof(Tcl_Size) == sizeof(Tcl_WideInt)) { + Tcl_CreateObjCommand(interp, "testbigdata", TestbigdataCmd, + NULL, NULL); + } return TCL_OK; } |