diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-27 15:15:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-27 15:15:33 (GMT) |
| commit | 1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d (patch) | |
| tree | b3f7314f8c8d1495d4e2e8901c32536a799cd6ab /generic/tclCompExpr.c | |
| parent | 9afc3ff81d99b4207da8b35d411a83f043b0a4f8 (diff) | |
| download | tcl-1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d.zip tcl-1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d.tar.gz tcl-1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d.tar.bz2 | |
More progress
Diffstat (limited to 'generic/tclCompExpr.c')
| -rw-r--r-- | generic/tclCompExpr.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index 7be349b..6e36c28 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -2218,7 +2218,7 @@ TclCompileExpr( * Valid parse; compile the tree. */ - int objc; + size_t objc; Tcl_Obj *const *litObjv; Tcl_Obj **funcObjv; @@ -2226,8 +2226,8 @@ TclCompileExpr( TclAdvanceLines(&envPtr->line, script, script + TclParseAllWhiteSpace(script, numBytes)); - TclListObjGetElements_(NULL, litList, &objc, (Tcl_Obj ***)&litObjv); - TclListObjGetElements_(NULL, funcList, &objc, &funcObjv); + Tcl_ListObjGetElements(NULL, litList, &objc, (Tcl_Obj ***)&litObjv); + Tcl_ListObjGetElements(NULL, funcList, &objc, &funcObjv); CompileExprTree(interp, opTree, 0, &litObjv, funcObjv, parsePtr->tokenPtr, envPtr, optimize); } else { |