diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-13 07:33:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-13 07:33:57 (GMT) |
| commit | a3eea6dc3f9b7ffcbcff6b1ee933f9ef1189df3f (patch) | |
| tree | 6b969d5c8445849dfe47ca44caa7055fb1b60e68 /generic/tclStringObj.c | |
| parent | 9c5561ea5682d377441dd111da3730dc0be56abf (diff) | |
| download | tcl-a3eea6dc3f9b7ffcbcff6b1ee933f9ef1189df3f.zip tcl-a3eea6dc3f9b7ffcbcff6b1ee933f9ef1189df3f.tar.gz tcl-a3eea6dc3f9b7ffcbcff6b1ee933f9ef1189df3f.tar.bz2 | |
Fix build with -DTCL_NO_DEPRECATED
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 130379f..b9d603d 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -68,7 +68,9 @@ static int SetStringFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); static void SetUnicodeObj(Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars); static int UnicodeLength(const Tcl_UniChar *unicode); +#if !defined(TCL_NO_DEPRECATED) static int UTF16Length(const unsigned short *unicode); +#endif static void UpdateStringOfString(Tcl_Obj *objPtr); #if (TCL_UTF_MAX) > 3 && !defined(TCL_NO_DEPRECATED) static void DupUTF16StringInternalRep(Tcl_Obj *objPtr, @@ -979,6 +981,7 @@ Tcl_GetUnicodeFromObj( } #endif +#if !defined(TCL_NO_DEPRECATED) unsigned short * TclGetUnicodeFromObj( Tcl_Obj *objPtr, /* The object to find the unicode string @@ -1001,6 +1004,7 @@ TclGetUnicodeFromObj( } return stringPtr->unicode; } +#endif /* *---------------------------------------------------------------------- @@ -1481,7 +1485,6 @@ Tcl_SetUnicodeObj( TclInvalidateStringRep(objPtr); stringPtr->allocated = numChars; } -#endif static int UTF16Length( @@ -1497,6 +1500,7 @@ UTF16Length( stringCheckLimits(numChars); return numChars; } +#endif static int UnicodeLength( |