diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-02 14:52:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-02 14:52:11 (GMT) |
| commit | 7fc5eaa4ef6c217255f1030b30c5a68eac04a052 (patch) | |
| tree | b868f5708d50600804e6a44503392561344549a6 /generic/tclStringRep.h | |
| parent | 0e33bed46567780c4d5e5f700e4a6b986801a0b0 (diff) | |
| parent | 4aef72d96f162e986fa3e97acebddb67ed6d2905 (diff) | |
| download | tcl-7fc5eaa4ef6c217255f1030b30c5a68eac04a052.zip tcl-7fc5eaa4ef6c217255f1030b30c5a68eac04a052.tar.gz tcl-7fc5eaa4ef6c217255f1030b30c5a68eac04a052.tar.bz2 | |
Implement %ll (WideInt) handling for Tcl_ObjPrintf(). Use it in some places. (now without edit-error in tcl.h, thanks Don!)
Diffstat (limited to 'generic/tclStringRep.h')
| -rw-r--r-- | generic/tclStringRep.h | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclStringRep.h b/generic/tclStringRep.h index db6f7e4..1ef1957 100644 --- a/generic/tclStringRep.h +++ b/generic/tclStringRep.h @@ -72,17 +72,17 @@ typedef struct { do { \ if ((numChars) < 0 || (numChars) > STRING_MAXCHARS) { \ Tcl_Panic("max length for a Tcl unicode value (%d chars) exceeded", \ - STRING_MAXCHARS); \ + (int)STRING_MAXCHARS); \ } \ } while (0) #define stringAttemptAlloc(numChars) \ - (String *) attemptckalloc((unsigned) STRING_SIZE(numChars)) + (String *) attemptckalloc(STRING_SIZE(numChars)) #define stringAlloc(numChars) \ - (String *) ckalloc((unsigned) STRING_SIZE(numChars)) + (String *) ckalloc(STRING_SIZE(numChars)) #define stringRealloc(ptr, numChars) \ - (String *) ckrealloc((ptr), (unsigned) STRING_SIZE(numChars)) + (String *) ckrealloc((ptr), STRING_SIZE(numChars)) #define stringAttemptRealloc(ptr, numChars) \ - (String *) attemptckrealloc((ptr), (unsigned) STRING_SIZE(numChars)) + (String *) attemptckrealloc((ptr), STRING_SIZE(numChars)) #define GET_STRING(objPtr) \ ((String *) (objPtr)->internalRep.twoPtrValue.ptr1) #define SET_STRING(objPtr, stringPtr) \ |