VirtualBox

source: vbox/trunk/src/VBox/Runtime/common/math/__fpclassifyl.cpp@ 96108

Last change on this file since 96108 was 96093, checked in by vboxsync, 2 years ago

IPRT/nocrt: Math classification functions. bugref:10261

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.7 KB
Line 
1/* $Id: __fpclassifyl.cpp 96093 2022-08-07 13:22:43Z vboxsync $ */
2/** @file
3 * IPRT - No-CRT - __fpclassifyl().
4 */
5
6/*
7 * Copyright (C) 2022 Oracle Corporation
8 *
9 * This file is part of VirtualBox Open Source Edition (OSE), as
10 * available from http://www.virtualbox.org. This file is free software;
11 * you can redistribute it and/or modify it under the terms of the GNU
12 * General Public License (GPL) as published by the Free Software
13 * Foundation, in version 2 as it comes in the "COPYING" file of the
14 * VirtualBox OSE distribution. VirtualBox OSE is distributed in the
15 * hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
16 *
17 * The contents of this file may alternatively be used under the terms
18 * of the Common Development and Distribution License Version 1.0
19 * (CDDL) only, as it comes in the "COPYING.CDDL" file of the
20 * VirtualBox OSE distribution, in which case the provisions of the
21 * CDDL are applicable instead of those of the GPL.
22 *
23 * You may elect to license modified versions of this file under the
24 * terms and conditions of either the GPL or the CDDL or both.
25 */
26
27
28/*********************************************************************************************************************************
29* Header Files *
30*********************************************************************************************************************************/
31#define IPRT_NO_CRT_FOR_3RD_PARTY
32#include "internal/nocrt.h"
33#include <iprt/nocrt/math.h>
34#include <iprt/assertcompile.h>
35#include <iprt/assert.h>
36
37
38#undef __fpclassifyl
39int RT_NOCRT(__fpclassifyl)(long double lrd)
40{
41#ifdef RT_COMPILER_WITH_80BIT_LONG_DOUBLE
42 AssertCompile(sizeof(lrd) == sizeof(uint64_t));
43 RTFLOAT80U2 u;
44 u.lrd = lrd;
45 if (RTFLOAT80U_IS_ZERO(&u))
46 return FP_ZERO;
47 if (RTFLOAT80U_IS_NORMAL(&u))
48 return FP_NORMAL;
49 if (RTFLOAT80U_IS_NAN(&u))
50 return FP_NAN;
51 if (RTFLOAT80U_IS_INF(&u))
52 return FP_INFINITE;
53 if (RTFLOAT80U_IS_DENORMAL_OR_PSEUDO_DENORMAL(&u))
54 return FP_SUBNORMAL;
55
56 /* Following i387 invalid operand rules here. Adjust as needed for
57 other architectures. */
58 Assert(RTFLOAT80U_IS_387_INVALID(&u));
59 return FP_NAN;
60
61#else
62 AssertCompile(sizeof(lrd) == sizeof(uint64_t));
63 RTFLOAT64U u;
64 u.rd = lrd;
65 if (RTFLOAT64U_IS_ZERO(&u))
66 return FP_ZERO;
67 if (RTFLOAT64U_IS_NORMAL(&u))
68 return FP_NORMAL;
69 if (RTFLOAT64U_IS_NAN(&u))
70 return FP_NAN;
71 if (RTFLOAT64U_IS_INF(&u))
72 return FP_INFINITE;
73 Assert(RTFLOAT64U_IS_SUBNORMAL(&u));
74 return FP_SUBNORMAL;
75#endif
76}
77RT_ALIAS_AND_EXPORT_NOCRT_SYMBOL_WITHOUT_UNDERSCORE(__fpclassifyl);
78
Note: See TracBrowser for help on using the repository browser.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette