diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-28 21:45:49 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-28 21:45:49 (GMT) |
commit | 64383b33bd0277ac8c9e3218da0b6a39582af7e1 (patch) | |
tree | 356b5641c969824bbd028572da0757c7a51ab25b /generic/tclExecute.c | |
parent | 2aa92d31a0cf4ded4cc49d52d43a15274513ba46 (diff) | |
download | tcl-64383b33bd0277ac8c9e3218da0b6a39582af7e1.zip tcl-64383b33bd0277ac8c9e3218da0b6a39582af7e1.tar.gz tcl-64383b33bd0277ac8c9e3218da0b6a39582af7e1.tar.bz2 |
Simplify TclObjTypeHasProc() (a lot!)
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index b0a58ea..5d2abab 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4659,7 +4659,7 @@ TEBCresume( TRACE(("\"%.30s\" \"%.30s\" => ", O2S(valuePtr), O2S(value2Ptr))); /* special case for AbstractList */ - if (TclObjTypeHasProc(valuePtr,TCL_OBJ_INDEX)) { + if (TclObjTypeHasProc(valuePtr,indexProc)) { length = Tcl_ObjTypeLength(valuePtr); if (TclGetIntForIndexM(interp, value2Ptr, length-1, &index)!=TCL_OK) { CACHE_STACK_INFO(); @@ -4728,7 +4728,7 @@ TEBCresume( */ /* special case for AbstractList */ - if (TclObjTypeHasProc(valuePtr,TCL_OBJ_INDEX)) { + if (TclObjTypeHasProc(valuePtr,indexProc)) { length = Tcl_ObjTypeLength(valuePtr); /* Decode end-offset index values. */ @@ -4818,7 +4818,7 @@ TEBCresume( * Compute the new variable value. */ - if (TclObjTypeHasProc(valuePtr, TCL_OBJ_SLICE)) { + if (TclObjTypeHasProc(valuePtr, sliceProc)) { objResultPtr = Tcl_ObjTypeSetElement(interp, valuePtr, numIndices, &OBJ_AT_DEPTH(numIndices), OBJ_AT_TOS); @@ -4946,7 +4946,7 @@ TEBCresume( fromIdx = TclIndexDecode(fromIdx, objc - 1); - if (TclObjTypeHasProc(valuePtr, TCL_OBJ_SLICE)) { + if (TclObjTypeHasProc(valuePtr, sliceProc)) { if (Tcl_ObjTypeSlice(interp, valuePtr, fromIdx, toIdx, &objResultPtr) != TCL_OK) { TRACE_ERROR(interp); goto gotError; @@ -4973,7 +4973,7 @@ TEBCresume( if (length > 0) { size_t i = 0; Tcl_Obj *o; - int isAbstractList = TclObjTypeHasProc(value2Ptr,TCL_OBJ_INDEX); + int isAbstractList = TclObjTypeHasProc(value2Ptr,indexProc) != NULL; /* * An empty list doesn't match anything. |