diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-01-07 15:42:15 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-01-07 15:42:15 (GMT) |
| commit | 1235d67d760f5048a4a7bf0a6916c49df5bf1be0 (patch) | |
| tree | 587170a31d672e39e2fbc37b7e1155a82123eb34 /generic/tclBasic.c | |
| parent | 380ef99d03439d62883131d3d6048f74e8a2042d (diff) | |
| parent | a0a8e2f294ec770dbb8713ce29dda0865d7028f0 (diff) | |
| download | tcl-1235d67d760f5048a4a7bf0a6916c49df5bf1be0.zip tcl-1235d67d760f5048a4a7bf0a6916c49df5bf1be0.tar.gz tcl-1235d67d760f5048a4a7bf0a6916c49df5bf1be0.tar.bz2 | |
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 622651a..3b757bb 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; @@ -8068,11 +8068,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; @@ -8185,7 +8185,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; |