diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-27 11:35:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-27 11:35:58 (GMT) |
| commit | 2524a62bb6b65a0b183dc413dd13ebbae997a537 (patch) | |
| tree | e07480f444291b0f919a44dcc9156e168850719a /generic/tclOOMethod.c | |
| parent | 587c1ebdba4cb0f92dcd91478ce711833552fd48 (diff) | |
| download | tcl-2524a62bb6b65a0b183dc413dd13ebbae997a537.zip tcl-2524a62bb6b65a0b183dc413dd13ebbae997a537.tar.gz tcl-2524a62bb6b65a0b183dc413dd13ebbae997a537.tar.bz2 | |
More (internal) usage of TclGetString() and TclGetStringFromObj() macro's
Diffstat (limited to 'generic/tclOOMethod.c')
| -rw-r--r-- | generic/tclOOMethod.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 73368e4..a613fb4 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1286,7 +1286,7 @@ MethodErrorHandler( kindName = "class"; } - objectName = Tcl_GetStringFromObj(TclOOObjectName(interp, declarerPtr), + objectName = TclGetStringFromObj(TclOOObjectName(interp, declarerPtr), &objectNameLen); Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( "\n (%s \"%.*s%s\" method \"%.*s%s\" line %d)", @@ -1317,7 +1317,7 @@ ConstructorErrorHandler( kindName = "class"; } - objectName = Tcl_GetStringFromObj(TclOOObjectName(interp, declarerPtr), + objectName = TclGetStringFromObj(TclOOObjectName(interp, declarerPtr), &objectNameLen); Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( "\n (%s \"%.*s%s\" constructor line %d)", kindName, @@ -1347,7 +1347,7 @@ DestructorErrorHandler( kindName = "class"; } - objectName = Tcl_GetStringFromObj(TclOOObjectName(interp, declarerPtr), + objectName = TclGetStringFromObj(TclOOObjectName(interp, declarerPtr), &objectNameLen); Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( "\n (%s \"%.*s%s\" destructor line %d)", kindName, |