From f2894eb46ef1ffa03050d2664b218a471a0f8e98 Mon Sep 17 00:00:00 2001 From: dkf Date: Wed, 20 Feb 2002 00:35:47 +0000 Subject: Made tcl.h better at guessing what is going on with 64-bit types when configure doesn't tell it explicitly. --- ChangeLog | 6 ++++++ generic/tcl.h | 12 ++++++++---- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index f98541d..4c24596 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2002-02-20 Donal K. Fellows + + * generic/tcl.h: Added code to guess the correct settings for + TCL_WIDE_INT_IS_LONG and TCL_WIDE_INT_TYPE when configure doesn't + tell us them, as can happen with extensions. + 2002-02-19 Donal K. Fellows * doc/format.n: Updated docs to list the specification. diff --git a/generic/tcl.h b/generic/tcl.h index 421e289..160990c 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.115 2002/02/15 14:28:48 dkf Exp $ + * RCS: @(#) $Id: tcl.h,v 1.116 2002/02/20 00:35:47 dkf Exp $ */ #ifndef _TCL @@ -380,10 +380,14 @@ typedef struct _stati64 Tcl_StatBuf; # endif /* __BORLANDC__ */ # else /* __WIN32__ */ /* - * Don't know what platform it is and configure hasn't been run! Assume - * it has no long long... + * Don't know what platform it is and configure hasn't discovered what + * is going on for us. Try to guess... */ -# define TCL_WIDE_INT_IS_LONG 1 +# if (0x80000000L < 0) +# define TCL_WIDE_INT_IS_LONG 1 +# else +# define TCL_WIDE_INT_TYPE long long +# endif # endif /* __WIN32__ */ #endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */ #ifdef TCL_WIDE_INT_IS_LONG -- cgit v0.12