blob: bd731989d082a67a6c91a7d73a7823d04d3e5d90 (
plain)
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
|
/* { dg-options "-fno-short-enums" {target short_enums} } */
typedef union tree_node *tree;
enum tree_code { EXCESS_PRECISION_EXPR };
enum built_in_function { BUILT_IN_ACOS, BUILT_IN_FPCLASSIFY, BUILT_IN_ISFINITE };
struct tree_base {
__extension__ enum tree_code code : 16;
unsigned side_effects_flag : 1;
};
struct tree_exp {
tree operands[1];
};
struct tree_function_decl {
__extension__ enum built_in_function function_code : 11;
unsigned static_ctor_flag : 1;
};
union tree_node {
struct tree_base base;
struct tree_function_decl function_decl;
struct tree_exp exp;
};
static tree
convert_arguments (tree fundecl)
{
tree val = (void *)0;
unsigned int parmnum;
unsigned char type_generic_remove_excess_precision = 0;
switch (((fundecl)->function_decl.function_code))
{
case BUILT_IN_ISFINITE:
case BUILT_IN_FPCLASSIFY:
type_generic_remove_excess_precision = 1;
}
for (parmnum = 0;; ++parmnum)
if (((enum tree_code) (val)->base.code) == EXCESS_PRECISION_EXPR
&& !type_generic_remove_excess_precision)
val = ((val)->exp.operands[0]);
return val;
}
tree
build_function_call_vec (tree function)
{
return convert_arguments (function);
}
|
