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/tclStringObj.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/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 708c157..e1f5160 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -3368,7 +3368,7 @@ TclStringRepeat( TclGetUnicodeFromObj_(objPtr, &length); } else { /* Result will be concat of string reps. Pre-size it. */ - Tcl_GetStringFromObj(objPtr, &length); + TclGetStringFromObj(objPtr, &length); } if (length == 0) { @@ -3618,7 +3618,7 @@ TclStringCat( /* No string rep; Take the chance we can avoid making it */ pendingPtr = objPtr; } else { - Tcl_GetStringFromObj(objPtr, &length); /* PANIC? */ + TclGetStringFromObj(objPtr, &length); /* PANIC? */ } } while (--oc && (length == 0) && (pendingPtr == NULL)); @@ -3644,14 +3644,14 @@ TclStringCat( do { Tcl_Obj *objPtr = *ov++; - Tcl_GetStringFromObj(objPtr, &numBytes); /* PANIC? */ + TclGetStringFromObj(objPtr, &numBytes); /* PANIC? */ } while (--oc && numBytes == 0 && pendingPtr->bytes == NULL); if (numBytes) { last = objc -oc -1; } if (oc || numBytes) { - Tcl_GetStringFromObj(pendingPtr, &length); + TclGetStringFromObj(pendingPtr, &length); } if (length == 0) { if (numBytes) { @@ -3670,7 +3670,7 @@ TclStringCat( /* assert ( length > 0 && pendingPtr == NULL ) */ - Tcl_GetStringFromObj(objPtr, &numBytes); /* PANIC? */ + TclGetStringFromObj(objPtr, &numBytes); /* PANIC? */ if (numBytes) { last = objc - oc; if (numBytes > INT_MAX - length) { @@ -3785,7 +3785,7 @@ TclStringCat( objResultPtr = *objv++; objc--; - Tcl_GetStringFromObj(objResultPtr, &start); + TclGetStringFromObj(objResultPtr, &start); if (0 == Tcl_AttemptSetObjLength(objResultPtr, length)) { if (interp) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( @@ -3818,7 +3818,7 @@ TclStringCat( if ((objPtr->bytes == NULL) || (objPtr->length)) { int more; - char *src = Tcl_GetStringFromObj(objPtr, &more); + char *src = TclGetStringFromObj(objPtr, &more); memcpy(dst, src, more); dst += more; |