2 Copyright (C
) 2011-2018 Free Software Foundation
, Inc.
4 This file is part of GCC.
6 GCC is free software
; you can redistribute it and
/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation
; either version
3, or (at your option
) any later
11 GCC is distributed in the hope that it will be useful
, but WITHOUT ANY
12 WARRANTY
; without even the implied warranty of MERCHANTABILITY or
13 FITNESS
FOR A PARTICULAR PURPOSE. See the GNU General Public License
16 You should have received a copy of the GNU General Public License
17 along with GCC
; see the file COPYING3. If not see
18 <http
://www.gnu.org
/licenses
/>.
*/
20 /* This file specifies a list of internal
"functions". These functions
21 differ from built
-in functions in that they have no linkage and cannot
22 be called directly by the user. They represent operations that are only
23 synthesised by GCC itself.
25 Internal functions are used instead of tree codes if the operation
26 and its operands are more naturally represented as a GIMPLE_CALL
29 Each entry in this file has one of the forms
:
31 DEF_INTERNAL_FN (NAME
, FLAGS
, FNSPEC
)
32 DEF_INTERNAL_OPTAB_FN (NAME
, FLAGS
, OPTAB
, TYPE)
33 DEF_INTERNAL_SIGNED_OPTAB_FN (NAME
, FLAGS
, SELECTOR
, SIGNED_OPTAB
,
35 DEF_INTERNAL_FLT_FN (NAME
, FLAGS
, OPTAB
, TYPE)
36 DEF_INTERNAL_INT_FN (NAME
, FLAGS
, OPTAB
, TYPE)
38 where NAME is the name of the function
, FLAGS is a set of
39 ECF_
* flags and FNSPEC is a string describing functions fnspec.
41 DEF_INTERNAL_OPTAB_FN defines an internal function that maps to a
42 direct optab. The function should only be called with a given
43 set of types if the associated optab is available for the modes
44 of those types. OPTAB says what optab to
use (without the trailing
45 "_optab") and
TYPE categorizes the optab based on its inputs and
46 outputs. The possible types of optab are
:
48 - mask_load
: currently just maskload
49 - load_lanes
: currently just vec_load_lanes
50 - mask_load_lanes
: currently just vec_mask_load_lanes
51 - gather_load
: used for
{mask_
,}gather_load
53 - mask_store
: currently just maskstore
54 - store_lanes
: currently just vec_store_lanes
55 - mask_store_lanes
: currently just vec_mask_store_lanes
56 - scatter_store
: used for
{mask_
,}scatter_store
58 - unary
: a normal unary optab
, such as vec_reverse_
<mode
>
59 - binary
: a normal binary optab
, such as vec_interleave_lo_
<mode
>
61 - cond_binary
: a conditional binary optab
, such as add
<mode
>cc
63 - fold_left
: for scalar
= FN (scalar
, vector
), keyed off the vector mode
65 DEF_INTERNAL_SIGNED_OPTAB_FN defines an internal function that
66 maps to one of two optabs
, depending on the signedness of an input.
67 SIGNED_OPTAB and UNSIGNED_OPTAB are the optabs for signed and
68 unsigned inputs respectively
, both without the trailing
"_optab".
69 SELECTOR says which type in the tree_pair determines the signedness.
71 DEF_INTERNAL_FLT_FN is like DEF_INTERNAL_OPTAB_FN
, but in addition
,
72 the function implements the computational part of a built
-in math
73 function BUILT_IN_
<NAME
>{F
,,L
}. Unlike some built
-in functions
,
74 these internal functions never set errno.
76 DEF_INTERNAL_INT_FN is like DEF_INTERNAL_OPTAB_FN
, but in addition
77 says that the function extends the C
-level BUILT_IN_
<NAME
>{,L
,LL
,IMAX
}
78 group of functions to any integral
mode (including vector modes
).
80 Each entry must have a corresponding expander of the form
:
82 void
expand_NAME (gimple_call stmt
)
84 where STMT is the statement that performs the call. These are generated
85 automatically for optab functions and call out to a function or macro
86 called expand_
<TYPE>_optab_fn.
*/
88 #ifndef DEF_INTERNAL_FN
89 #define
DEF_INTERNAL_FN(CODE
, FLAGS
, FNSPEC
)
92 #ifndef DEF_INTERNAL_OPTAB_FN
93 #define
DEF_INTERNAL_OPTAB_FN(NAME
, FLAGS
, OPTAB
, TYPE) \
94 DEF_INTERNAL_FN (NAME
, FLAGS | ECF_LEAF
, NULL
)
97 #ifndef DEF_INTERNAL_SIGNED_OPTAB_FN
98 #define
DEF_INTERNAL_SIGNED_OPTAB_FN(NAME
, FLAGS
, SELECTOR
, SIGNED_OPTAB
, \
99 UNSIGNED_OPTAB
, TYPE) \
100 DEF_INTERNAL_FN (NAME
, FLAGS | ECF_LEAF
, NULL
)
103 #ifndef DEF_INTERNAL_FLT_FN
104 #define
DEF_INTERNAL_FLT_FN(NAME
, FLAGS
, OPTAB
, TYPE) \
105 DEF_INTERNAL_OPTAB_FN (NAME
, FLAGS
, OPTAB
, TYPE)
108 #ifndef DEF_INTERNAL_FLT_FLOATN_FN
109 #define
DEF_INTERNAL_FLT_FLOATN_FN(NAME
, FLAGS
, OPTAB
, TYPE) \
110 DEF_INTERNAL_FLT_FN (NAME
, FLAGS
, OPTAB
, TYPE)
113 #ifndef DEF_INTERNAL_INT_FN
114 #define
DEF_INTERNAL_INT_FN(NAME
, FLAGS
, OPTAB
, TYPE) \
115 DEF_INTERNAL_OPTAB_FN (NAME
, FLAGS
, OPTAB
, TYPE)
118 DEF_INTERNAL_OPTAB_FN (MASK_LOAD
, ECF_PURE
, maskload
, mask_load
)
119 DEF_INTERNAL_OPTAB_FN (LOAD_LANES
, ECF_CONST
, vec_load_lanes
, load_lanes
)
120 DEF_INTERNAL_OPTAB_FN (MASK_LOAD_LANES
, ECF_PURE
,
121 vec_mask_load_lanes
, mask_load_lanes
)
123 DEF_INTERNAL_OPTAB_FN (GATHER_LOAD
, ECF_PURE
, gather_load
, gather_load
)
124 DEF_INTERNAL_OPTAB_FN (MASK_GATHER_LOAD
, ECF_PURE
,
125 mask_gather_load
, gather_load
)
127 DEF_INTERNAL_OPTAB_FN (SCATTER_STORE
, 0, scatter_store
, scatter_store
)
128 DEF_INTERNAL_OPTAB_FN (MASK_SCATTER_STORE
, 0,
129 mask_scatter_store
, scatter_store
)
131 DEF_INTERNAL_OPTAB_FN (MASK_STORE
, 0, maskstore
, mask_store
)
132 DEF_INTERNAL_OPTAB_FN (STORE_LANES
, ECF_CONST
, vec_store_lanes
, store_lanes
)
133 DEF_INTERNAL_OPTAB_FN (MASK_STORE_LANES
, 0,
134 vec_mask_store_lanes
, mask_store_lanes
)
136 DEF_INTERNAL_OPTAB_FN (WHILE_ULT
, ECF_CONST | ECF_NOTHROW
, while_ult
, while
)
138 DEF_INTERNAL_OPTAB_FN (VEC_SHL_INSERT
, ECF_CONST | ECF_NOTHROW
,
139 vec_shl_insert
, binary
)
141 DEF_INTERNAL_OPTAB_FN (COND_ADD
, ECF_CONST
, cond_add
, cond_binary
)
142 DEF_INTERNAL_OPTAB_FN (COND_SUB
, ECF_CONST
, cond_sub
, cond_binary
)
143 DEF_INTERNAL_SIGNED_OPTAB_FN (COND_MIN
, ECF_CONST
, first
,
144 cond_smin
, cond_umin
, cond_binary
)
145 DEF_INTERNAL_SIGNED_OPTAB_FN (COND_MAX
, ECF_CONST
, first
,
146 cond_smax
, cond_umax
, cond_binary
)
147 DEF_INTERNAL_OPTAB_FN (COND_AND
, ECF_CONST | ECF_NOTHROW
,
148 cond_and
, cond_binary
)
149 DEF_INTERNAL_OPTAB_FN (COND_IOR
, ECF_CONST | ECF_NOTHROW
,
150 cond_ior
, cond_binary
)
151 DEF_INTERNAL_OPTAB_FN (COND_XOR
, ECF_CONST | ECF_NOTHROW
,
152 cond_xor
, cond_binary
)
154 DEF_INTERNAL_OPTAB_FN (RSQRT
, ECF_CONST
, rsqrt
, unary
)
156 DEF_INTERNAL_OPTAB_FN (REDUC_PLUS
, ECF_CONST | ECF_NOTHROW
,
157 reduc_plus_scal
, unary
)
158 DEF_INTERNAL_SIGNED_OPTAB_FN (REDUC_MAX
, ECF_CONST | ECF_NOTHROW
, first
,
159 reduc_smax_scal
, reduc_umax_scal
, unary
)
160 DEF_INTERNAL_SIGNED_OPTAB_FN (REDUC_MIN
, ECF_CONST | ECF_NOTHROW
, first
,
161 reduc_smin_scal
, reduc_umin_scal
, unary
)
162 DEF_INTERNAL_OPTAB_FN (REDUC_AND
, ECF_CONST | ECF_NOTHROW
,
163 reduc_and_scal
, unary
)
164 DEF_INTERNAL_OPTAB_FN (REDUC_IOR
, ECF_CONST | ECF_NOTHROW
,
165 reduc_ior_scal
, unary
)
166 DEF_INTERNAL_OPTAB_FN (REDUC_XOR
, ECF_CONST | ECF_NOTHROW
,
167 reduc_xor_scal
, unary
)
169 /* Extract the last active element from a vector.
*/
170 DEF_INTERNAL_OPTAB_FN (EXTRACT_LAST
, ECF_CONST | ECF_NOTHROW
,
171 extract_last
, cond_unary
)
173 /* Same
, but return the first argument if no elements are active.
*/
174 DEF_INTERNAL_OPTAB_FN (FOLD_EXTRACT_LAST
, ECF_CONST | ECF_NOTHROW
,
175 fold_extract_last
, fold_extract
)
177 DEF_INTERNAL_OPTAB_FN (FOLD_LEFT_PLUS
, ECF_CONST | ECF_NOTHROW
,
178 fold_left_plus
, fold_left
)
180 /* Unary math functions.
*/
181 DEF_INTERNAL_FLT_FN (ACOS
, ECF_CONST
, acos
, unary
)
182 DEF_INTERNAL_FLT_FN (ASIN
, ECF_CONST
, asin
, unary
)
183 DEF_INTERNAL_FLT_FN (ATAN
, ECF_CONST
, atan
, unary
)
184 DEF_INTERNAL_FLT_FN (COS
, ECF_CONST
, cos
, unary
)
185 DEF_INTERNAL_FLT_FN (EXP
, ECF_CONST
, exp
, unary
)
186 DEF_INTERNAL_FLT_FN (EXP10
, ECF_CONST
, exp10
, unary
)
187 DEF_INTERNAL_FLT_FN (EXP2
, ECF_CONST
, exp2
, unary
)
188 DEF_INTERNAL_FLT_FN (EXPM1
, ECF_CONST
, expm1
, unary
)
189 DEF_INTERNAL_FLT_FN (LOG
, ECF_CONST
, log
, unary
)
190 DEF_INTERNAL_FLT_FN (LOG10
, ECF_CONST
, log10
, unary
)
191 DEF_INTERNAL_FLT_FN (LOG1P
, ECF_CONST
, log1p
, unary
)
192 DEF_INTERNAL_FLT_FN (LOG2
, ECF_CONST
, log2
, unary
)
193 DEF_INTERNAL_FLT_FN (LOGB
, ECF_CONST
, logb
, unary
)
194 DEF_INTERNAL_FLT_FN (SIGNIFICAND
, ECF_CONST
, significand
, unary
)
195 DEF_INTERNAL_FLT_FN (SIN
, ECF_CONST
, sin
, unary
)
196 DEF_INTERNAL_FLT_FLOATN_FN (SQRT
, ECF_CONST
, sqrt
, unary
)
197 DEF_INTERNAL_FLT_FN (TAN
, ECF_CONST
, tan
, unary
)
200 DEF_INTERNAL_FLT_FLOATN_FN (CEIL
, ECF_CONST
, ceil
, unary
)
201 DEF_INTERNAL_FLT_FLOATN_FN (FLOOR
, ECF_CONST
, floor
, unary
)
202 DEF_INTERNAL_FLT_FLOATN_FN (NEARBYINT
, ECF_CONST
, nearbyint
, unary
)
203 DEF_INTERNAL_FLT_FLOATN_FN (RINT
, ECF_CONST
, rint
, unary
)
204 DEF_INTERNAL_FLT_FLOATN_FN (ROUND
, ECF_CONST
, round
, unary
)
205 DEF_INTERNAL_FLT_FLOATN_FN (TRUNC, ECF_CONST
, btrunc
, unary
)
207 /* Binary math functions.
*/
208 DEF_INTERNAL_FLT_FN (ATAN2
, ECF_CONST
, atan2
, binary
)
209 DEF_INTERNAL_FLT_FLOATN_FN (COPYSIGN
, ECF_CONST
, copysign
, binary
)
210 DEF_INTERNAL_FLT_FN (FMOD
, ECF_CONST
, fmod
, binary
)
211 DEF_INTERNAL_FLT_FN (POW
, ECF_CONST
, pow
, binary
)
212 DEF_INTERNAL_FLT_FN (REMAINDER
, ECF_CONST
, remainder
, binary
)
213 DEF_INTERNAL_FLT_FN (SCALB
, ECF_CONST
, scalb
, binary
)
214 DEF_INTERNAL_FLT_FLOATN_FN (FMIN
, ECF_CONST
, fmin
, binary
)
215 DEF_INTERNAL_FLT_FLOATN_FN (FMAX
, ECF_CONST
, fmax
, binary
)
216 DEF_INTERNAL_OPTAB_FN (XORSIGN
, ECF_CONST
, xorsign
, binary
)
219 DEF_INTERNAL_FLT_FN (LDEXP
, ECF_CONST
, ldexp
, binary
)
221 /* Unary integer ops.
*/
222 DEF_INTERNAL_INT_FN (CLRSB
, ECF_CONST | ECF_NOTHROW
, clrsb
, unary
)
223 DEF_INTERNAL_INT_FN (CLZ
, ECF_CONST | ECF_NOTHROW
, clz
, unary
)
224 DEF_INTERNAL_INT_FN (CTZ
, ECF_CONST | ECF_NOTHROW
, ctz
, unary
)
225 DEF_INTERNAL_INT_FN (FFS
, ECF_CONST | ECF_NOTHROW
, ffs
, unary
)
226 DEF_INTERNAL_INT_FN (PARITY
, ECF_CONST | ECF_NOTHROW
, parity
, unary
)
227 DEF_INTERNAL_INT_FN (POPCOUNT
, ECF_CONST | ECF_NOTHROW
, popcount
, unary
)
229 DEF_INTERNAL_FN (GOMP_USE_SIMT
, ECF_NOVOPS | ECF_LEAF | ECF_NOTHROW
, NULL
)
230 DEF_INTERNAL_FN (GOMP_SIMT_ENTER
, ECF_LEAF | ECF_NOTHROW
, NULL
)
231 DEF_INTERNAL_FN (GOMP_SIMT_ENTER_ALLOC
, ECF_LEAF | ECF_NOTHROW
, NULL
)
232 DEF_INTERNAL_FN (GOMP_SIMT_EXIT
, ECF_LEAF | ECF_NOTHROW
, NULL
)
233 DEF_INTERNAL_FN (GOMP_SIMT_LANE
, ECF_NOVOPS | ECF_LEAF | ECF_NOTHROW
, NULL
)
234 DEF_INTERNAL_FN (GOMP_SIMT_VF
, ECF_NOVOPS | ECF_LEAF | ECF_NOTHROW
, NULL
)
235 DEF_INTERNAL_FN (GOMP_SIMT_LAST_LANE
, ECF_NOVOPS | ECF_LEAF | ECF_NOTHROW
, NULL
)
236 DEF_INTERNAL_FN (GOMP_SIMT_ORDERED_PRED
, ECF_LEAF | ECF_NOTHROW
, NULL
)
237 DEF_INTERNAL_FN (GOMP_SIMT_VOTE_ANY
, ECF_NOVOPS | ECF_LEAF | ECF_NOTHROW
, NULL
)
238 DEF_INTERNAL_FN (GOMP_SIMT_XCHG_BFLY
, ECF_NOVOPS | ECF_LEAF | ECF_NOTHROW
, NULL
)
239 DEF_INTERNAL_FN (GOMP_SIMT_XCHG_IDX
, ECF_NOVOPS | ECF_LEAF | ECF_NOTHROW
, NULL
)
240 DEF_INTERNAL_FN (GOMP_SIMD_LANE
, ECF_NOVOPS | ECF_LEAF | ECF_NOTHROW
, NULL
)
241 DEF_INTERNAL_FN (GOMP_SIMD_VF
, ECF_CONST | ECF_LEAF | ECF_NOTHROW
, NULL
)
242 DEF_INTERNAL_FN (GOMP_SIMD_LAST_LANE
, ECF_CONST | ECF_LEAF | ECF_NOTHROW
, NULL
)
243 DEF_INTERNAL_FN (GOMP_SIMD_ORDERED_START
, ECF_LEAF | ECF_NOTHROW
, NULL
)
244 DEF_INTERNAL_FN (GOMP_SIMD_ORDERED_END
, ECF_LEAF | ECF_NOTHROW
, NULL
)
245 DEF_INTERNAL_FN (LOOP_VECTORIZED
, ECF_NOVOPS | ECF_LEAF | ECF_NOTHROW
, NULL
)
246 DEF_INTERNAL_FN (LOOP_DIST_ALIAS
, ECF_NOVOPS | ECF_LEAF | ECF_NOTHROW
, NULL
)
247 DEF_INTERNAL_FN (ANNOTATE
, ECF_CONST | ECF_LEAF | ECF_NOTHROW
, NULL
)
248 DEF_INTERNAL_FN (UBSAN_NULL
, ECF_LEAF | ECF_NOTHROW
, ".R.")
249 DEF_INTERNAL_FN (UBSAN_BOUNDS
, ECF_LEAF | ECF_NOTHROW
, NULL
)
250 DEF_INTERNAL_FN (UBSAN_VPTR
, ECF_LEAF | ECF_NOTHROW
, ".RR..")
251 DEF_INTERNAL_FN (UBSAN_CHECK_ADD
, ECF_CONST | ECF_LEAF | ECF_NOTHROW
, NULL
)
252 DEF_INTERNAL_FN (UBSAN_CHECK_SUB
, ECF_CONST | ECF_LEAF | ECF_NOTHROW
, NULL
)
253 DEF_INTERNAL_FN (UBSAN_CHECK_MUL
, ECF_CONST | ECF_LEAF | ECF_NOTHROW
, NULL
)
254 DEF_INTERNAL_FN (UBSAN_PTR
, ECF_LEAF | ECF_NOTHROW
, ".R.")
255 DEF_INTERNAL_FN (UBSAN_OBJECT_SIZE
, ECF_LEAF | ECF_NOTHROW
, NULL
)
256 DEF_INTERNAL_FN (ABNORMAL_DISPATCHER
, ECF_NORETURN
, NULL
)
257 DEF_INTERNAL_FN (BUILTIN_EXPECT
, ECF_CONST | ECF_LEAF | ECF_NOTHROW
, NULL
)
258 DEF_INTERNAL_FN (ASAN_CHECK
, ECF_TM_PURE | ECF_LEAF | ECF_NOTHROW
, ".R...")
259 DEF_INTERNAL_FN (ASAN_MARK
, ECF_LEAF | ECF_NOTHROW
, ".R..")
260 DEF_INTERNAL_FN (ASAN_POISON
, ECF_LEAF | ECF_NOTHROW | ECF_NOVOPS
, NULL
)
261 DEF_INTERNAL_FN (ASAN_POISON_USE
, ECF_LEAF | ECF_NOTHROW | ECF_NOVOPS
, NULL
)
262 DEF_INTERNAL_FN (ADD_OVERFLOW
, ECF_CONST | ECF_LEAF | ECF_NOTHROW
, NULL
)
263 DEF_INTERNAL_FN (SUB_OVERFLOW
, ECF_CONST | ECF_LEAF | ECF_NOTHROW
, NULL
)
264 DEF_INTERNAL_FN (MUL_OVERFLOW
, ECF_CONST | ECF_LEAF | ECF_NOTHROW
, NULL
)
265 DEF_INTERNAL_FN (TSAN_FUNC_EXIT
, ECF_NOVOPS | ECF_LEAF | ECF_NOTHROW
, NULL
)
266 DEF_INTERNAL_FN (VA_ARG
, ECF_NOTHROW | ECF_LEAF
, NULL
)
268 /* An unduplicable
, uncombinable function. Generally used to preserve
269 a CFG property in the face of jump threading
, tail merging or
270 other such optimizations. The first argument distinguishes
271 between uses. See internal
-fn.h for usage.
*/
272 DEF_INTERNAL_FN (UNIQUE
, ECF_NOTHROW
, NULL
)
273 DEF_INTERNAL_FN (PHI
, 0, NULL
)
275 /* DIM_SIZE and DIM_POS return the size of a particular compute
276 dimension and the executing thread
's position within that
277 dimension. DIM_POS is pure (and not const) so that it isn't
278 thought to clobber memory and can be gcse
'd within a single
279 parallel region, but not across FORK/JOIN boundaries. They take a
280 single INTEGER_CST argument. This might be overly conservative. */
281 DEF_INTERNAL_FN (GOACC_DIM_SIZE, ECF_CONST | ECF_NOTHROW | ECF_LEAF, ".")
282 DEF_INTERNAL_FN (GOACC_DIM_POS, ECF_PURE | ECF_NOTHROW | ECF_LEAF, ".")
284 /* OpenACC looping abstraction. See internal-fn.h for usage. */
285 DEF_INTERNAL_FN (GOACC_LOOP, ECF_PURE | ECF_NOTHROW, NULL)
287 /* OpenACC reduction abstraction. See internal-fn.h for usage. */
288 DEF_INTERNAL_FN (GOACC_REDUCTION, ECF_NOTHROW | ECF_LEAF, NULL)
290 /* Openacc tile abstraction. Describes the spans of the element loop.
291 GOACC_TILE (num-loops, loop-no, tile-arg, tile-mask, element-mask). */
292 DEF_INTERNAL_FN (GOACC_TILE, ECF_NOTHROW | ECF_LEAF, NULL)
294 /* Set errno to EDOM, if GCC knows how to do that directly for the
296 DEF_INTERNAL_FN (SET_EDOM, ECF_LEAF | ECF_NOTHROW, NULL)
298 /* Atomic functions. These don't have ECF_NOTHROW because for
299 -fnon
-call
-exceptions they can throw
, otherwise we set
300 gimple_call_nothrow_p on it.
*/
301 DEF_INTERNAL_FN (ATOMIC_BIT_TEST_AND_SET
, ECF_LEAF
, NULL
)
302 DEF_INTERNAL_FN (ATOMIC_BIT_TEST_AND_COMPLEMENT
, ECF_LEAF
, NULL
)
303 DEF_INTERNAL_FN (ATOMIC_BIT_TEST_AND_RESET
, ECF_LEAF
, NULL
)
304 DEF_INTERNAL_FN (ATOMIC_COMPARE_EXCHANGE
, ECF_LEAF
, NULL
)
306 /* To implement
[[fallthrough
]].
*/
307 DEF_INTERNAL_FN (FALLTHROUGH
, ECF_LEAF | ECF_NOTHROW
, NULL
)
309 /* To implement __builtin_launder.
*/
310 DEF_INTERNAL_FN (LAUNDER
, ECF_LEAF | ECF_NOTHROW | ECF_NOVOPS
, NULL
)
312 /* Divmod function.
*/
313 DEF_INTERNAL_FN (DIVMOD
, ECF_CONST | ECF_LEAF
, NULL
)
315 /* A NOP function with arbitrary arguments and return value.
*/
316 DEF_INTERNAL_FN (NOP
, ECF_CONST | ECF_LEAF | ECF_NOTHROW
, NULL
)
318 #undef DEF_INTERNAL_INT_FN
319 #undef DEF_INTERNAL_FLT_FN
320 #undef DEF_INTERNAL_FLT_FLOATN_FN
321 #undef DEF_INTERNAL_SIGNED_OPTAB_FN
322 #undef DEF_INTERNAL_OPTAB_FN
323 #undef DEF_INTERNAL_FN