1 #include <stdlib.h>
2 #include <stdio.h>
3
4 #include "libgccjit.h"
5
6 #include "harness.h"
7
8 /* Reproducer for PR jit/66779.
9
10 Inject the equivalent of:
11 T FUNCNAME (T i, T j, T k)
12 {
13 bool comp0 = i & 0x40;
14 bool comp1 = (j == k);
15 if (comp0 && comp1)
16 return 7;
17 else
18 return 22;
19 }
20 for some type T; this was segfaulting during the expansion to RTL
21 due to missing handling for some machine modes in
22 jit_langhook_type_for_mode. */
23
24 void
25 create_fn (gcc_jit_context *ctxt,
26 const char *funcname,
27 enum gcc_jit_types jit_type)
28 {
29 gcc_jit_type *the_type =
30 gcc_jit_context_get_type (ctxt, jit_type);
31 gcc_jit_type *t_bool =
32 gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_BOOL);
33 gcc_jit_param *param_i =
34 gcc_jit_context_new_param (ctxt, NULL, the_type, "i");
35 gcc_jit_param *param_j =
36 gcc_jit_context_new_param (ctxt, NULL, the_type, "j");
37 gcc_jit_param *param_k =
38 gcc_jit_context_new_param (ctxt, NULL, the_type, "k");
39 gcc_jit_param *params[3] = {
40 param_i,
41 param_j,
42 param_k
43 };
44 gcc_jit_function *func =
45 gcc_jit_context_new_function (ctxt, NULL,
46 GCC_JIT_FUNCTION_EXPORTED,
47 the_type,
48 funcname,
49 3, params,
50 0);
51 gcc_jit_block *b_entry = gcc_jit_function_new_block (func, "entry");
52 gcc_jit_block *b_on_true = gcc_jit_function_new_block (func, "on_true");
53 gcc_jit_block *b_on_false = gcc_jit_function_new_block (func, "on_false");
54
55 gcc_jit_lvalue *comp0 =
56 gcc_jit_function_new_local (func, NULL, t_bool, "comp0");
57
58 gcc_jit_block_add_assignment (
59 b_entry, NULL,
60 comp0,
61 gcc_jit_context_new_comparison (
62 ctxt, NULL,
63 GCC_JIT_COMPARISON_NE,
64 gcc_jit_context_new_binary_op (
65 ctxt, NULL,
66 GCC_JIT_BINARY_OP_BITWISE_AND,
67 the_type,
68 gcc_jit_param_as_rvalue (param_i),
69 gcc_jit_context_new_rvalue_from_int (ctxt, the_type, 0x40)),
70 gcc_jit_context_zero (ctxt, the_type)));
71
72 gcc_jit_lvalue *comp1 =
73 gcc_jit_function_new_local (func, NULL, t_bool, "comp1");
74
75 gcc_jit_block_add_assignment (
76 b_entry, NULL,
77 comp1,
78 gcc_jit_context_new_comparison (ctxt, NULL,
79 GCC_JIT_COMPARISON_EQ,
80 gcc_jit_param_as_rvalue (param_j),
81 gcc_jit_param_as_rvalue (param_k)));
82
83 gcc_jit_rvalue *cond =
84 gcc_jit_context_new_binary_op (ctxt, NULL,
85 GCC_JIT_BINARY_OP_LOGICAL_AND,
86 t_bool,
87 gcc_jit_lvalue_as_rvalue (comp0),
88 gcc_jit_lvalue_as_rvalue (comp1));
89
90 gcc_jit_block_end_with_conditional (b_entry, NULL,
91 cond,
92 b_on_true,
93 b_on_false);
94
95 gcc_jit_block_end_with_return (
96 b_on_true, NULL,
97 gcc_jit_context_new_rvalue_from_int (ctxt, the_type, 7));
98
99 gcc_jit_block_end_with_return (
100 b_on_false, NULL,
101 gcc_jit_context_new_rvalue_from_int (ctxt, the_type, 22));
102 }
103
104 void
105 create_code (gcc_jit_context *ctxt, void *user_data)
106 {
107 create_fn (ctxt, "pr66779_signed_char", GCC_JIT_TYPE_SIGNED_CHAR);
108 create_fn (ctxt, "pr66779_unsigned_char", GCC_JIT_TYPE_UNSIGNED_CHAR);
109
110 create_fn (ctxt, "pr66779_short", GCC_JIT_TYPE_SHORT);
111 create_fn (ctxt, "pr66779_unsigned_short", GCC_JIT_TYPE_UNSIGNED_SHORT);
112
113 create_fn (ctxt, "pr66779_int", GCC_JIT_TYPE_INT);
114 create_fn (ctxt, "pr66779_unsigned_int", GCC_JIT_TYPE_UNSIGNED_INT);
115
116 create_fn (ctxt, "pr66779_long", GCC_JIT_TYPE_LONG);
117 create_fn (ctxt, "pr66779_unsigned_long", GCC_JIT_TYPE_UNSIGNED_LONG);
118
119 create_fn (ctxt, "pr66779_long_long",
120 GCC_JIT_TYPE_LONG_LONG);
121 create_fn (ctxt, "pr66779_unsigned_long_long",
122 GCC_JIT_TYPE_UNSIGNED_LONG_LONG);
123
124 create_fn (ctxt, "pr66779_size_t", GCC_JIT_TYPE_SIZE_T);
125 }
126
127 extern void
128 verify_code (gcc_jit_context *ctxt, gcc_jit_result *result)
129 {
130 typedef int (*fn_type) (int, int, int);
131 CHECK_NON_NULL (result);
132 /* Sanity-check the "int" case. */
133 fn_type fn =
134 (fn_type)gcc_jit_result_get_code (result, "pr66779_int");
135 CHECK_NON_NULL (fn);
136 CHECK_VALUE (fn (0, 0, 0), 22);
137 CHECK_VALUE (fn (0, 0, 1), 22);
138 CHECK_VALUE (fn (0x40, 0, 0), 7);
139 CHECK_VALUE (fn (0x40, 0, 1), 22);
140 CHECK_VALUE (fn (0x40, 1, 1), 7);
141 CHECK_VALUE (fn (0x3f, 0, 0), 22);
142 CHECK_VALUE (fn (0x3f, 1, 1), 22);
143 }