Tcl Source Code

Check-in [8f94b26d49]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:reverted to smarter Jan's +1/cast/-1 with additional initial cast now (to pretect against usage of macro with other type as size_t)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 8f94b26d494a864f012fd80ffc4131dd339c655ae8839d02c29607caf391d20d
User & Date: sebres 2018-12-13 09:43:14
Context
2018-12-13
21:01
Merge 8.7, and make all test-cases pass. check-in: 6415cac417 user: jan.nijtmans tags: trunk
09:43
reverted to smarter Jan's +1/cast/-1 with additional initial cast now (to pretect against usage of m... check-in: 8f94b26d49 user: sebres tags: trunk
07:32
restored inline of TclNewWideIntObjFromSize for 32-bit (avoids double invocation of TclStringFirst/T... check-in: e1b31151e5 user: sebres tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclInt.h.

4905
4906
4907
4908
4909
4910
4911
4912
4913
4914
4915
4916
4917
4918
4919
4920
4921
	_objPtr->typePtr = NULL;					\
	_objPtr->refCount = 1;						\
	TclDecrRefCount(_objPtr);					\
    } while (0)
#endif   /* TCL_MEM_DEBUG */

#if (!defined(TCL_WIDE_INT_IS_LONG) || (LONG_MAX > UINT_MAX)) && (SIZE_MAX <= UINT_MAX)
    static inline Tcl_Obj * TclNewWideIntObjFromSize(size_t value) {
	return Tcl_NewWideIntObj(value != ((size_t)-1) ? (Tcl_WideInt)value : -1);
    }
#else
#   define TclNewWideIntObjFromSize Tcl_NewWideIntObj
#endif

/*
 * Support for Clang Static Analyzer <http://clang-analyzer.llvm.org>
 */






|
|
<







4905
4906
4907
4908
4909
4910
4911
4912
4913

4914
4915
4916
4917
4918
4919
4920
	_objPtr->typePtr = NULL;					\
	_objPtr->refCount = 1;						\
	TclDecrRefCount(_objPtr);					\
    } while (0)
#endif   /* TCL_MEM_DEBUG */

#if (!defined(TCL_WIDE_INT_IS_LONG) || (LONG_MAX > UINT_MAX)) && (SIZE_MAX <= UINT_MAX)
#   define TclNewWideIntObjFromSize(value) \
	Tcl_NewWideIntObj(((Tcl_WideInt)(((size_t)(value))+1))-1)

#else
#   define TclNewWideIntObjFromSize Tcl_NewWideIntObj
#endif

/*
 * Support for Clang Static Analyzer <http://clang-analyzer.llvm.org>
 */