diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-01-08 08:36:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-01-08 08:36:24 (GMT) |
| commit | 89d6a3c475ee7d737c93b44db8a6bf151eb44e1e (patch) | |
| tree | 8dbcad88b9f73b4f3bf03decf3a07ac5d43bcb09 /generic/tclBasic.c | |
| parent | 3de5fedc12ca776c782e63c096e0dc550ef5add9 (diff) | |
| download | tcl-89d6a3c475ee7d737c93b44db8a6bf151eb44e1e.zip tcl-89d6a3c475ee7d737c93b44db8a6bf151eb44e1e.tar.gz tcl-89d6a3c475ee7d737c93b44db8a6bf151eb44e1e.tar.bz2 | |
(cherry-pick): Simplification for [d58e315172]
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index be7896a..4f91e99 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -68,7 +68,7 @@ * compatible with AddressSanitizer (ASan) use-after-return detection. */ -#if defined(_MSC_VER) && defined(HAVE_INTRIN_H) +#if defined(_MSC_VER) #include <intrin.h> /* for _AddressOfReturnAddress() */ #endif @@ -85,7 +85,7 @@ TclGetCStackPtr(void) { #if defined( __GNUC__ ) || __has_builtin(__builtin_frame_address) return __builtin_frame_address(0); -#elif defined(_MSC_VER) && defined(HAVE_INTRIN_H) +#elif defined(_MSC_VER) return _AddressOfReturnAddress(); #else ptrdiff_t unused = 0; @@ -8737,11 +8737,11 @@ DoubleObjClass( *fpClsPtr = FP_NAN; return TCL_OK; case TCL_NUMBER_DOUBLE: - d = *((const double *) ptr); - break; + d = *((const double *) ptr); + break; case TCL_NUMBER_INT: - d = (double)*((const Tcl_WideInt *) ptr); - break; + d = (double)*((const Tcl_WideInt *) ptr); + break; default: if (Tcl_GetDoubleFromObj(interp, objPtr, &d) != TCL_OK) { return TCL_ERROR; @@ -8854,7 +8854,7 @@ ExprIsUnorderedFunc( ) { return TCL_ERROR; } - + dCls = ((dCls == FP_NAN) || (dCls2 == FP_NAN)) ? 1 : 0; Tcl_SetObjResult(interp, ((Interp *)interp)->execEnvPtr->constants[dCls]); return TCL_OK; |