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/tclOOBasic.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/tclOOBasic.c')
| -rw-r--r-- | generic/tclOOBasic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index 3593193..9b72060 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -208,7 +208,7 @@ TclOO_Class_Create( "objectName ?arg ...?"); return TCL_ERROR; } - objName = Tcl_GetStringFromObj( + objName = TclGetStringFromObj( objv[Tcl_ObjectContextSkippedArgs(context)], &len); if (len == 0) { Tcl_SetObjResult(interp, Tcl_NewStringObj( @@ -273,7 +273,7 @@ TclOO_Class_CreateNs( "objectName namespaceName ?arg ...?"); return TCL_ERROR; } - objName = Tcl_GetStringFromObj( + objName = TclGetStringFromObj( objv[Tcl_ObjectContextSkippedArgs(context)], &len); if (len == 0) { Tcl_SetObjResult(interp, Tcl_NewStringObj( @@ -281,7 +281,7 @@ TclOO_Class_CreateNs( Tcl_SetErrorCode(interp, "TCL", "OO", "EMPTY_NAME", NULL); return TCL_ERROR; } - nsName = Tcl_GetStringFromObj( + nsName = TclGetStringFromObj( objv[Tcl_ObjectContextSkippedArgs(context)+1], &len); if (len == 0) { Tcl_SetObjResult(interp, Tcl_NewStringObj( |