diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-28 07:14:47 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-28 07:14:47 (GMT) |
| commit | eb03584c16b7a1b99800e60e00ed43a73745b2d2 (patch) | |
| tree | c8615f6d94788032577b2ee328c3282189d15257 /generic/tcl.h | |
| parent | dd5e309d31bb30abe115dd2a7e614dcbde7b76fe (diff) | |
| download | tcl-eb03584c16b7a1b99800e60e00ed43a73745b2d2.zip tcl-eb03584c16b7a1b99800e60e00ed43a73745b2d2.tar.gz tcl-eb03584c16b7a1b99800e60e00ed43a73745b2d2.tar.bz2 | |
(experimental) new internal macro TCL_Z_MODIFIER, just like TCL_LL_MODIFIER but then for size_t.
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 731724e..24dd0be 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -394,9 +394,11 @@ typedef long LONG; # if defined(_WIN32) # define TCL_WIDE_INT_TYPE __int64 # define TCL_LL_MODIFIER "I64" +# define TCL_Z_MODIFIER "I" # elif defined(__GNUC__) # define TCL_WIDE_INT_TYPE long long # define TCL_LL_MODIFIER "ll" +# define TCL_Z_MODIFIER "z" # else /* ! _WIN32 && ! __GNUC__ */ /* * Don't know what platform it is and configure hasn't discovered what is @@ -426,6 +428,9 @@ typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt; # ifndef TCL_LL_MODIFIER # define TCL_LL_MODIFIER "l" # endif /* !TCL_LL_MODIFIER */ +# ifndef TCL_Z_MODIFIER +# define TCL_Z_MODIFIER "l" +# endif /* !TCL_Z_MODIFIER */ #else /* TCL_WIDE_INT_IS_LONG */ /* * The next short section of defines are only done when not running on Windows @@ -434,6 +439,9 @@ typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt; # ifndef TCL_LL_MODIFIER # define TCL_LL_MODIFIER "ll" # endif /* !TCL_LL_MODIFIER */ +# ifndef TCL_Z_MODIFIER +# define TCL_Z_MODIFIER "" +# endif /* !TCL_Z_MODIFIER */ # define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val))) # define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val))) # define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val))) |