diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-08 14:24:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-08 14:24:20 (GMT) |
| commit | 9006753369d08703cc6ff0be7b1c6691aedaa1bc (patch) | |
| tree | 5099bd68a5b4f59238fa51cd82212534d0ec33be /generic/tclTestABSList.c | |
| parent | 6b52bc1a6490f533e0f9f1a8ccdc55e47f117010 (diff) | |
| parent | 62c5b0bfb7868870b982665c76b780faa1e0fbbc (diff) | |
| download | tcl-9006753369d08703cc6ff0be7b1c6691aedaa1bc.zip tcl-9006753369d08703cc6ff0be7b1c6691aedaa1bc.tar.gz tcl-9006753369d08703cc6ff0be7b1c6691aedaa1bc.tar.bz2 | |
Merge 9.0. Fix testcases
Diffstat (limited to 'generic/tclTestABSList.c')
| -rw-r--r-- | generic/tclTestABSList.c | 65 |
1 files changed, 38 insertions, 27 deletions
diff --git a/generic/tclTestABSList.c b/generic/tclTestABSList.c index ec7f8fb..07d04ec 100644 --- a/generic/tclTestABSList.c +++ b/generic/tclTestABSList.c @@ -69,9 +69,10 @@ static const Tcl_ObjType lstringTypes[11] = { my_LStringObjIndex, my_LStringObjRange,/*ObjRange*/ my_LStringObjReverse, - my_LStringGetElements, + my_LStringGetElements, my_LStringObjSetElem, /* use default update string */ - my_LStringReplace) + my_LStringReplace, + NULL) }, { "lstring", @@ -80,13 +81,14 @@ static const Tcl_ObjType lstringTypes[11] = { UpdateStringOfLString, NULL, TCL_OBJTYPE_V1( -/**/ NULL, /*default my_LStringObjLength,*/ + NULL, /*default my_LStringObjLength,*/ my_LStringObjIndex, my_LStringObjRange,/*ObjRange*/ my_LStringObjReverse, - my_LStringGetElements, + my_LStringGetElements, my_LStringObjSetElem, /* use default update string */ - my_LStringReplace) + my_LStringReplace, + NULL) }, { "lstring", @@ -96,13 +98,14 @@ static const Tcl_ObjType lstringTypes[11] = { NULL, TCL_OBJTYPE_V1( my_LStringObjLength, -/**/ NULL, /*default my_LStringObjIndex,*/ + NULL, /*default my_LStringObjIndex,*/ my_LStringObjRange,/*ObjRange*/ my_LStringObjReverse, - my_LStringGetElements, + my_LStringGetElements, my_LStringObjSetElem, /* use default update string */ - my_LStringReplace) + my_LStringReplace, + NULL) }, { "lstring", @@ -113,11 +116,12 @@ static const Tcl_ObjType lstringTypes[11] = { TCL_OBJTYPE_V1( my_LStringObjLength, my_LStringObjIndex, -/**/ NULL, /*default my_LStringObjRange,*/ + NULL, /*default my_LStringObjRange,*/ my_LStringObjReverse, - my_LStringGetElements, + my_LStringGetElements, my_LStringObjSetElem, /* use default update string */ - my_LStringReplace) + my_LStringReplace, + NULL) }, { "lstring", @@ -129,10 +133,11 @@ static const Tcl_ObjType lstringTypes[11] = { my_LStringObjLength, my_LStringObjIndex, my_LStringObjRange,/*ObjRange*/ -/**/ NULL, /*defaults my_LStringObjReverse,*/ - my_LStringGetElements, + NULL, /*defaults my_LStringObjReverse,*/ + my_LStringGetElements, my_LStringObjSetElem, /* use default update string */ - my_LStringReplace) + my_LStringReplace, + NULL) }, { "lstring", @@ -145,9 +150,10 @@ static const Tcl_ObjType lstringTypes[11] = { my_LStringObjIndex, my_LStringObjRange,/*ObjRange*/ my_LStringObjReverse, -/**/ NULL, /*default NULL / *my_LStringGetElements,*/ + NULL, /*default NULL / *my_LStringGetElements,*/ my_LStringObjSetElem, /* use default update string */ - my_LStringReplace) + my_LStringReplace, + NULL) }, { "lstring", @@ -160,9 +166,10 @@ static const Tcl_ObjType lstringTypes[11] = { my_LStringObjIndex, my_LStringObjRange,/*ObjRange*/ my_LStringObjReverse, - my_LStringGetElements, + my_LStringGetElements, my_LStringObjSetElem, /* use default update string */ - my_LStringReplace) + my_LStringReplace, + NULL) }, { "lstring", @@ -175,9 +182,10 @@ static const Tcl_ObjType lstringTypes[11] = { my_LStringObjIndex, my_LStringObjRange,/*ObjRange*/ my_LStringObjReverse, - my_LStringGetElements, + my_LStringGetElements, my_LStringObjSetElem, /* use default update string */ - my_LStringReplace) + my_LStringReplace, + NULL) }, { "lstring", @@ -190,9 +198,10 @@ static const Tcl_ObjType lstringTypes[11] = { my_LStringObjIndex, my_LStringObjRange,/*ObjRange*/ my_LStringObjReverse, - my_LStringGetElements, -/**/ NULL, /*default my_LStringObjSetElem, / * use default update string */ - NULL) /*default my_LStringReplace*/ + my_LStringGetElements, + NULL, /*default my_LStringObjSetElem, / * use default update string */ + NULL, /*default my_LStringReplace*/ + NULL) }, { "lstring", @@ -205,9 +214,10 @@ static const Tcl_ObjType lstringTypes[11] = { my_LStringObjIndex, my_LStringObjRange,/*ObjRange*/ my_LStringObjReverse, - my_LStringGetElements, + my_LStringGetElements, my_LStringObjSetElem, /* use default update string */ -/**/ NULL) /*default my_LStringReplace*/ + NULL, /*default my_LStringReplace*/ + NULL) }, { "lstring", @@ -220,9 +230,10 @@ static const Tcl_ObjType lstringTypes[11] = { my_LStringObjIndex, my_LStringObjRange,/*ObjRange*/ my_LStringObjReverse, - my_LStringGetElements, + my_LStringGetElements, my_LStringObjSetElem, /* use default update string */ - my_LStringReplace) + my_LStringReplace, + NULL) } }; |