summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-10-18 17:38:34 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-10-18 17:38:34 (GMT)
commit3326db522bceddd991709874cad90b82c6fca2d1 (patch)
tree5a528f30a840ce401aa587e68c3e2996824a6c6d
parent522ff04a0c5c2562876d87d752208c46c39d07af (diff)
downloadtcl-3326db522bceddd991709874cad90b82c6fca2d1.zip
tcl-3326db522bceddd991709874cad90b82c6fca2d1.tar.gz
tcl-3326db522bceddd991709874cad90b82c6fca2d1.tar.bz2
* generic/tcl.h: Remove TCL_LL_MODIFIER_SIZE. [RFE 1811837]
-rw-r--r--ChangeLog4
-rw-r--r--generic/tcl.h12
2 files changed, 5 insertions, 11 deletions
diff --git a/ChangeLog b/ChangeLog
index 0934ac5..d545565 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2007-10-18 Don Porter <dgp@users.sourceforge.net>
+
+ * generic/tcl.h: Remove TCL_LL_MODIFIER_SIZE. [RFE 1811837]
+
2007-10-17 David Gravereaux <davygrvy@pobox.com>
* tools/mkdepend.tcl: Improved defense from malformed object
diff --git a/generic/tcl.h b/generic/tcl.h
index f693a67..c037c06 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tcl.h,v 1.240 2007/10/12 00:54:16 das Exp $
+ * RCS: @(#) $Id: tcl.h,v 1.241 2007/10/18 17:38:34 dgp Exp $
*/
#ifndef _TCL
@@ -350,10 +350,6 @@ typedef long LONG;
* Note on converting between Tcl_WideInt and strings. This implementation (in
* tclObj.c) depends on the function
* sprintf(...,"%" TCL_LL_MODIFIER "d",...).
- * TCL_LL_MODIFIER_SIZE is the length of the
- * modifier string, which is "ll" on most 32-bit Unix systems. It has to be
- * split up like this to allow for the more complex formats sometimes needed
- * (e.g. in the format(n) command.)
*/
#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG)
@@ -361,10 +357,8 @@ typedef long LONG;
# define TCL_WIDE_INT_TYPE long long
# if defined(__WIN32__) && !defined(__CYGWIN__)
# define TCL_LL_MODIFIER "I64"
-# define TCL_LL_MODIFIER_SIZE 3
# else
# define TCL_LL_MODIFIER "L"
-# define TCL_LL_MODIFIER_SIZE 1
# endif
typedef struct stat Tcl_StatBuf;
# elif defined(__WIN32__)
@@ -372,7 +366,6 @@ typedef struct stat Tcl_StatBuf;
# ifdef __BORLANDC__
typedef struct stati64 Tcl_StatBuf;
# define TCL_LL_MODIFIER "L"
-# define TCL_LL_MODIFIER_SIZE 1
# else /* __BORLANDC__ */
# if _MSC_VER < 1400 || !defined(_M_IX86)
typedef struct _stati64 Tcl_StatBuf;
@@ -380,7 +373,6 @@ typedef struct _stati64 Tcl_StatBuf;
typedef struct _stat64 Tcl_StatBuf;
# endif /* _MSC_VER < 1400 */
# define TCL_LL_MODIFIER "I64"
-# define TCL_LL_MODIFIER_SIZE 3
# endif /* __BORLANDC__ */
# else /* __WIN32__ */
/*
@@ -415,7 +407,6 @@ typedef struct stat Tcl_StatBuf;
# define Tcl_DoubleAsWide(val) ((long)((double)(val)))
# ifndef TCL_LL_MODIFIER
# define TCL_LL_MODIFIER "l"
-# define TCL_LL_MODIFIER_SIZE 1
# endif /* !TCL_LL_MODIFIER */
#else /* TCL_WIDE_INT_IS_LONG */
/*
@@ -429,7 +420,6 @@ typedef struct stat64 Tcl_StatBuf;
typedef struct stat Tcl_StatBuf;
# endif /* HAVE_STRUCT_STAT64 */
# define TCL_LL_MODIFIER "ll"
-# define TCL_LL_MODIFIER_SIZE 2
# endif /* !TCL_LL_MODIFIER */
# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val)))
# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val)))