1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
/******************************************************************************
Copyright (c) 2007-2024, Intel Corp.
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
* Redistributions of source code must retain the above copyright notice,
this list of conditions and the following disclaimer.
* Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
* Neither the name of Intel Corporation nor the names of its contributors
may be used to endorse or promote products derived from this software
without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
THE POSSIBILITY OF SUCH DAMAGE.
******************************************************************************/
#ifndef BUILD_H
#define BUILD_H
// =============================================================================
// The intel compiler defines __GNUC__ which causes incorrect type definitions.
// to be chosen. Detect the situation here and correct so we get a consistent
// set of type definitions
// =============================================================================
#if defined(__GNUC__) && (defined(__ICC) || defined(__ECC))
# undef __GNUC__
#endif
// =============================================================================
// Since Intel quad names have a leading '__', the default single precision
// names are incorrect, so make sure the log2 function is correctly defined
// for dpml_ux_bessel.c
// =============================================================================
#define S_LOG2_NAME log2f
// =============================================================================
// Select calling interface to the DPML routines
// =============================================================================
#if !defined USE_NATIVE_QUAD_TYPE
# define USE_NATIVE_QUAD_TYPE 0
#endif
#ifdef T_FLOAT
#define _Quad long double
#else
#if USE_NATIVE_QUAD_TYPE
// =====================================================================
// On intel platforms, return quad values and arguments are "by-value"
// =====================================================================
# define EMT64_LINUX_QUAD_INTERFACE
#define ADD_BASE_NAME _add_
#define CMP_BASE_NAME _cmp_
#define DIV_BASE_NAME _div_
#define MUL_BASE_NAME _mul_
#define NEG_BASE_NAME _neg_
#define SUB_BASE_NAME _sub_
#define ITOF_BASE_NAME _itof_
// =====================================================================
// Intel quad precision names end in q rather than l and have a '__'
// prefix
// =====================================================================
#ifndef F_NAME_SUFFIX
# define F_NAME_SUFFIX q
#endif
#ifndef F_NAME_PREFIX
# define F_NAME_PREFIX __
#endif
#else
// =====================================================================
// Use the defualt "pass-by-reference" interface. But this case we need
// to provide some type defintion for the _Quad type.
// =====================================================================
#define _Quad long double
#define __int64 long long
#define HYPOT_BASE_NAME hypot
#define NEXTAFTER_BASE_NAME nextafter
#ifndef F_NAME_SUFFIX
# define F_NAME_SUFFIX DPML_NULL_MACRO_TOKEN
#endif
#ifndef F_NAME_PREFIX
# define F_NAME_PREFIX bid_f128_
#endif
#ifndef INTERNAL_PREFIX
# define INTERNAL_PREFIX __dpml_bid_
#endif
#endif
#endif
#ifndef INTERNAL_PREFIX
# define INTERNAL_PREFIX __dpml_bid_
#endif
#ifndef TABLE_PREFIX
# define TABLE_PREFIX __dpml_bid_
#endif
// =============================================================================
// Set up the appropriate exception handling macros
// =============================================================================
#define IEEE_FLOATING 1
#define COMPATIBILITY_MODE 1
#define EXCEPTION_INTERFACE_RECEIVE receive_exception_record
#define EXCEPTION_INTERFACE_SEND send_exception_record
#define __DPML_EXCPT_ENVIRONMENT ENABLE_NO_ERROR
#define DPML_GET_FPCSR(fpcsr) fpcsr = 0
#define DPML_SET_FPCSR(fpcsr)
#define FPCSR_STICKY_BITS(x) 0
// =============================================================================
// Force long double to be 128 bits
// =============================================================================
#define LONG_DOUBLE_128
// =============================================================================
// Now generic system stuff
// =============================================================================
#if defined(__linux__) && defined(__ICC) /* Linux, Proton compiler(i.e. IA32) */
#pragma const_seg(".rodata")
#endif
#if (defined(__ICC) || defined(__ICL) || defined(__ECC) || defined(__ECL)) && 0
# pragma warning( disable : 68 ) /* #68: integer conversion resulted in a change of sign */
# pragma warning( disable : 186 ) /* #186: pointless comparison of unsigned integer with zero */
# pragma warning( disable : 1572 ) /* #1572: floating-point equality and inequality comparisons are unreliable */
#endif
#endif /* BUILD_H */
|
