diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2022-11-17 04:54:02 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2022-11-17 04:54:02 (GMT) |
| commit | e0becc6161a79eee0bcac49c6424690002100cd8 (patch) | |
| tree | bce08bd34b5fcd1cc84f490dd69213b0a782ea24 /generic/tclInt.h | |
| parent | 00c7d174e45b9a5f10dc0de803dc98c4f1490061 (diff) | |
| download | tcl-e0becc6161a79eee0bcac49c6424690002100cd8.zip tcl-e0becc6161a79eee0bcac49c6424690002100cd8.tar.gz tcl-e0becc6161a79eee0bcac49c6424690002100cd8.tar.bz2 | |
TIP 651 implementation
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 2d29e1d..9f0eef0 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3128,7 +3128,6 @@ MODULE_SCOPE char * TclDStringAppendObj(Tcl_DString *dsPtr, Tcl_Obj *objPtr); MODULE_SCOPE char * TclDStringAppendDString(Tcl_DString *dsPtr, Tcl_DString *toAppendPtr); -MODULE_SCOPE Tcl_Obj * TclDStringToObj(Tcl_DString *dsPtr); MODULE_SCOPE Tcl_Obj *const *TclFetchEnsembleRoot(Tcl_Interp *interp, Tcl_Obj *const *objv, int objc, int *objcPtr); MODULE_SCOPE Tcl_Obj *const *TclEnsembleGetRewriteValues(Tcl_Interp *interp); @@ -4946,6 +4945,8 @@ MODULE_SCOPE Tcl_LibraryInitProc Procbodytest_SafeInit; Tcl_DStringAppend((dsPtr), (sLiteral), sizeof(sLiteral "") - 1) #define TclDStringClear(dsPtr) \ Tcl_DStringSetLength((dsPtr), 0) +/* Backward compatibility for TclDStringToObj which is now exported */ +#define TclDStringToObj Tcl_DStringToObj /* *---------------------------------------------------------------- |