diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-11-20 16:42:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-11-20 16:42:57 (GMT) |
| commit | b043297e8b02ea12c45a49b4cea4dcaa50da99b3 (patch) | |
| tree | a7f9d5de436e44a163dfaca6fba37508ef99f227 /generic/tclOODefineCmds.c | |
| parent | 0c95d1d7c2d07e8a422b8af055160e8009e7eeb4 (diff) | |
| parent | c32d032cbd7947d9e64e931df87fc4f374d81e7f (diff) | |
| download | tcl-b043297e8b02ea12c45a49b4cea4dcaa50da99b3.zip tcl-b043297e8b02ea12c45a49b4cea4dcaa50da99b3.tar.gz tcl-b043297e8b02ea12c45a49b4cea4dcaa50da99b3.tar.bz2 | |
[40f628e8e3] Tcl_ListObjReplace() callers need to handle TCL_ERROR.
Diffstat (limited to 'generic/tclOODefineCmds.c')
| -rw-r--r-- | generic/tclOODefineCmds.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclOODefineCmds.c b/generic/tclOODefineCmds.c index c3184be..85f6c31 100644 --- a/generic/tclOODefineCmds.c +++ b/generic/tclOODefineCmds.c @@ -887,6 +887,7 @@ TclOODefineObjCmd( Tcl_GetCommandFullName(interp, cmd, obj2Ptr); } Tcl_ListObjAppendElement(NULL, objPtr, obj2Ptr); + /* TODO: overflow? */ Tcl_ListObjReplace(NULL, objPtr, 1, 0, objc-3, objv+3); Tcl_ListObjGetElements(NULL, objPtr, &dummy, &objs); @@ -1001,6 +1002,7 @@ TclOOObjDefObjCmd( Tcl_GetCommandFullName(interp, cmd, obj2Ptr); } Tcl_ListObjAppendElement(NULL, objPtr, obj2Ptr); + /* TODO: overflow? */ Tcl_ListObjReplace(NULL, objPtr, 1, 0, objc-3, objv+3); Tcl_ListObjGetElements(NULL, objPtr, &dummy, &objs); @@ -1115,6 +1117,7 @@ TclOODefineSelfObjCmd( Tcl_GetCommandFullName(interp, cmd, obj2Ptr); } Tcl_ListObjAppendElement(NULL, objPtr, obj2Ptr); + /* TODO: overflow? */ Tcl_ListObjReplace(NULL, objPtr, 1, 0, objc-2, objv+2); Tcl_ListObjGetElements(NULL, objPtr, &dummy, &objs); |