1 /* valabasicblock.c generated by valac, the Vala compiler
2 * generated from valabasicblock.vala, do not modify */
3
4 /* valabasicblock.vala
5 *
6 * Copyright (C) 2008 Jürg Billeter
7 *
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
12
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
17
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
21 *
22 * Author:
23 * Jürg Billeter <j@bitron.ch>
24 */
25
26 #include "vala.h"
27 #include <valagee.h>
28 #include <glib-object.h>
29 #include <glib.h>
30 #include <gobject/gvaluecollector.h>
31
32 #define _vala_iterable_unref0(var) ((var == NULL) ? NULL : (var = (vala_iterable_unref (var), NULL)))
33 typedef struct _ValaParamSpecBasicBlock ValaParamSpecBasicBlock;
34
35 struct _ValaBasicBlockPrivate {
36 ValaList* nodes;
37 ValaList* predecessors;
38 ValaList* successors;
39 ValaBasicBlock* _parent;
40 ValaList* children;
41 ValaSet* df;
42 ValaSet* phi_functions;
43 gboolean _postorder_visited;
44 gint _postorder_number;
45 };
46
47 struct _ValaParamSpecBasicBlock {
48 GParamSpec parent_instance;
49 };
50
51 static gint ValaBasicBlock_private_offset;
52 static gpointer vala_basic_block_parent_class = NULL;
53
54 static void vala_basic_block_set_parent (ValaBasicBlock* self,
55 ValaBasicBlock* value);
56 static void vala_basic_block_finalize (ValaBasicBlock * obj);
57 static GType vala_basic_block_get_type_once (void);
58
59 static inline gpointer
vala_basic_block_get_instance_private(ValaBasicBlock * self)60 vala_basic_block_get_instance_private (ValaBasicBlock* self)
61 {
62 return G_STRUCT_MEMBER_P (self, ValaBasicBlock_private_offset);
63 }
64
65 ValaBasicBlock*
vala_basic_block_get_parent(ValaBasicBlock * self)66 vala_basic_block_get_parent (ValaBasicBlock* self)
67 {
68 ValaBasicBlock* result;
69 ValaBasicBlock* _tmp0_;
70 g_return_val_if_fail (self != NULL, NULL);
71 _tmp0_ = self->priv->_parent;
72 result = _tmp0_;
73 return result;
74 }
75
76 static void
vala_basic_block_set_parent(ValaBasicBlock * self,ValaBasicBlock * value)77 vala_basic_block_set_parent (ValaBasicBlock* self,
78 ValaBasicBlock* value)
79 {
80 g_return_if_fail (self != NULL);
81 self->priv->_parent = value;
82 }
83
84 gboolean
vala_basic_block_get_postorder_visited(ValaBasicBlock * self)85 vala_basic_block_get_postorder_visited (ValaBasicBlock* self)
86 {
87 gboolean result;
88 g_return_val_if_fail (self != NULL, FALSE);
89 result = self->priv->_postorder_visited;
90 return result;
91 }
92
93 void
vala_basic_block_set_postorder_visited(ValaBasicBlock * self,gboolean value)94 vala_basic_block_set_postorder_visited (ValaBasicBlock* self,
95 gboolean value)
96 {
97 g_return_if_fail (self != NULL);
98 self->priv->_postorder_visited = value;
99 }
100
101 gint
vala_basic_block_get_postorder_number(ValaBasicBlock * self)102 vala_basic_block_get_postorder_number (ValaBasicBlock* self)
103 {
104 gint result;
105 g_return_val_if_fail (self != NULL, 0);
106 result = self->priv->_postorder_number;
107 return result;
108 }
109
110 void
vala_basic_block_set_postorder_number(ValaBasicBlock * self,gint value)111 vala_basic_block_set_postorder_number (ValaBasicBlock* self,
112 gint value)
113 {
114 g_return_if_fail (self != NULL);
115 self->priv->_postorder_number = value;
116 }
117
118 ValaBasicBlock*
vala_basic_block_construct(GType object_type)119 vala_basic_block_construct (GType object_type)
120 {
121 ValaBasicBlock* self = NULL;
122 self = (ValaBasicBlock*) g_type_create_instance (object_type);
123 return self;
124 }
125
126 ValaBasicBlock*
vala_basic_block_new(void)127 vala_basic_block_new (void)
128 {
129 return vala_basic_block_construct (VALA_TYPE_BASIC_BLOCK);
130 }
131
132 ValaBasicBlock*
vala_basic_block_construct_entry(GType object_type)133 vala_basic_block_construct_entry (GType object_type)
134 {
135 ValaBasicBlock* self = NULL;
136 self = (ValaBasicBlock*) g_type_create_instance (object_type);
137 return self;
138 }
139
140 ValaBasicBlock*
vala_basic_block_new_entry(void)141 vala_basic_block_new_entry (void)
142 {
143 return vala_basic_block_construct_entry (VALA_TYPE_BASIC_BLOCK);
144 }
145
146 ValaBasicBlock*
vala_basic_block_construct_exit(GType object_type)147 vala_basic_block_construct_exit (GType object_type)
148 {
149 ValaBasicBlock* self = NULL;
150 self = (ValaBasicBlock*) g_type_create_instance (object_type);
151 return self;
152 }
153
154 ValaBasicBlock*
vala_basic_block_new_exit(void)155 vala_basic_block_new_exit (void)
156 {
157 return vala_basic_block_construct_exit (VALA_TYPE_BASIC_BLOCK);
158 }
159
160 void
vala_basic_block_add_node(ValaBasicBlock * self,ValaCodeNode * node)161 vala_basic_block_add_node (ValaBasicBlock* self,
162 ValaCodeNode* node)
163 {
164 ValaList* _tmp0_;
165 g_return_if_fail (self != NULL);
166 g_return_if_fail (node != NULL);
167 _tmp0_ = self->priv->nodes;
168 vala_collection_add ((ValaCollection*) _tmp0_, node);
169 }
170
171 ValaList*
vala_basic_block_get_nodes(ValaBasicBlock * self)172 vala_basic_block_get_nodes (ValaBasicBlock* self)
173 {
174 ValaList* _tmp0_;
175 ValaList* result = NULL;
176 g_return_val_if_fail (self != NULL, NULL);
177 _tmp0_ = self->priv->nodes;
178 result = _tmp0_;
179 return result;
180 }
181
182 void
vala_basic_block_connect(ValaBasicBlock * self,ValaBasicBlock * target)183 vala_basic_block_connect (ValaBasicBlock* self,
184 ValaBasicBlock* target)
185 {
186 ValaList* _tmp0_;
187 ValaList* _tmp2_;
188 g_return_if_fail (self != NULL);
189 g_return_if_fail (target != NULL);
190 _tmp0_ = self->priv->successors;
191 if (!vala_collection_contains ((ValaCollection*) _tmp0_, target)) {
192 ValaList* _tmp1_;
193 _tmp1_ = self->priv->successors;
194 vala_collection_add ((ValaCollection*) _tmp1_, target);
195 }
196 _tmp2_ = target->priv->predecessors;
197 if (!vala_collection_contains ((ValaCollection*) _tmp2_, self)) {
198 ValaList* _tmp3_;
199 _tmp3_ = target->priv->predecessors;
200 vala_collection_add ((ValaCollection*) _tmp3_, self);
201 }
202 }
203
204 ValaList*
vala_basic_block_get_predecessors(ValaBasicBlock * self)205 vala_basic_block_get_predecessors (ValaBasicBlock* self)
206 {
207 ValaList* _tmp0_;
208 ValaList* result = NULL;
209 g_return_val_if_fail (self != NULL, NULL);
210 _tmp0_ = self->priv->predecessors;
211 result = _tmp0_;
212 return result;
213 }
214
215 ValaList*
vala_basic_block_get_successors(ValaBasicBlock * self)216 vala_basic_block_get_successors (ValaBasicBlock* self)
217 {
218 ValaList* _tmp0_;
219 ValaList* result = NULL;
220 g_return_val_if_fail (self != NULL, NULL);
221 _tmp0_ = self->priv->successors;
222 result = _tmp0_;
223 return result;
224 }
225
226 void
vala_basic_block_add_child(ValaBasicBlock * self,ValaBasicBlock * block)227 vala_basic_block_add_child (ValaBasicBlock* self,
228 ValaBasicBlock* block)
229 {
230 ValaList* _tmp0_;
231 g_return_if_fail (self != NULL);
232 g_return_if_fail (block != NULL);
233 _tmp0_ = self->priv->children;
234 vala_collection_add ((ValaCollection*) _tmp0_, block);
235 vala_basic_block_set_parent (block, self);
236 }
237
238 ValaList*
vala_basic_block_get_children(ValaBasicBlock * self)239 vala_basic_block_get_children (ValaBasicBlock* self)
240 {
241 ValaList* _tmp0_;
242 ValaList* result = NULL;
243 g_return_val_if_fail (self != NULL, NULL);
244 _tmp0_ = self->priv->children;
245 result = _tmp0_;
246 return result;
247 }
248
249 void
vala_basic_block_add_dominator_frontier(ValaBasicBlock * self,ValaBasicBlock * block)250 vala_basic_block_add_dominator_frontier (ValaBasicBlock* self,
251 ValaBasicBlock* block)
252 {
253 ValaSet* _tmp0_;
254 g_return_if_fail (self != NULL);
255 g_return_if_fail (block != NULL);
256 _tmp0_ = self->priv->df;
257 vala_collection_add ((ValaCollection*) _tmp0_, block);
258 }
259
260 ValaSet*
vala_basic_block_get_dominator_frontier(ValaBasicBlock * self)261 vala_basic_block_get_dominator_frontier (ValaBasicBlock* self)
262 {
263 ValaSet* _tmp0_;
264 ValaSet* result = NULL;
265 g_return_val_if_fail (self != NULL, NULL);
266 _tmp0_ = self->priv->df;
267 result = _tmp0_;
268 return result;
269 }
270
271 void
vala_basic_block_add_phi_function(ValaBasicBlock * self,ValaPhiFunction * phi)272 vala_basic_block_add_phi_function (ValaBasicBlock* self,
273 ValaPhiFunction* phi)
274 {
275 ValaSet* _tmp0_;
276 g_return_if_fail (self != NULL);
277 g_return_if_fail (phi != NULL);
278 _tmp0_ = self->priv->phi_functions;
279 vala_collection_add ((ValaCollection*) _tmp0_, phi);
280 }
281
282 ValaSet*
vala_basic_block_get_phi_functions(ValaBasicBlock * self)283 vala_basic_block_get_phi_functions (ValaBasicBlock* self)
284 {
285 ValaSet* _tmp0_;
286 ValaSet* result = NULL;
287 g_return_val_if_fail (self != NULL, NULL);
288 _tmp0_ = self->priv->phi_functions;
289 result = _tmp0_;
290 return result;
291 }
292
293 static void
vala_value_basic_block_init(GValue * value)294 vala_value_basic_block_init (GValue* value)
295 {
296 value->data[0].v_pointer = NULL;
297 }
298
299 static void
vala_value_basic_block_free_value(GValue * value)300 vala_value_basic_block_free_value (GValue* value)
301 {
302 if (value->data[0].v_pointer) {
303 vala_basic_block_unref (value->data[0].v_pointer);
304 }
305 }
306
307 static void
vala_value_basic_block_copy_value(const GValue * src_value,GValue * dest_value)308 vala_value_basic_block_copy_value (const GValue* src_value,
309 GValue* dest_value)
310 {
311 if (src_value->data[0].v_pointer) {
312 dest_value->data[0].v_pointer = vala_basic_block_ref (src_value->data[0].v_pointer);
313 } else {
314 dest_value->data[0].v_pointer = NULL;
315 }
316 }
317
318 static gpointer
vala_value_basic_block_peek_pointer(const GValue * value)319 vala_value_basic_block_peek_pointer (const GValue* value)
320 {
321 return value->data[0].v_pointer;
322 }
323
324 static gchar*
vala_value_basic_block_collect_value(GValue * value,guint n_collect_values,GTypeCValue * collect_values,guint collect_flags)325 vala_value_basic_block_collect_value (GValue* value,
326 guint n_collect_values,
327 GTypeCValue* collect_values,
328 guint collect_flags)
329 {
330 if (collect_values[0].v_pointer) {
331 ValaBasicBlock * object;
332 object = collect_values[0].v_pointer;
333 if (object->parent_instance.g_class == NULL) {
334 return g_strconcat ("invalid unclassed object pointer for value type `", G_VALUE_TYPE_NAME (value), "'", NULL);
335 } else if (!g_value_type_compatible (G_TYPE_FROM_INSTANCE (object), G_VALUE_TYPE (value))) {
336 return g_strconcat ("invalid object type `", g_type_name (G_TYPE_FROM_INSTANCE (object)), "' for value type `", G_VALUE_TYPE_NAME (value), "'", NULL);
337 }
338 value->data[0].v_pointer = vala_basic_block_ref (object);
339 } else {
340 value->data[0].v_pointer = NULL;
341 }
342 return NULL;
343 }
344
345 static gchar*
vala_value_basic_block_lcopy_value(const GValue * value,guint n_collect_values,GTypeCValue * collect_values,guint collect_flags)346 vala_value_basic_block_lcopy_value (const GValue* value,
347 guint n_collect_values,
348 GTypeCValue* collect_values,
349 guint collect_flags)
350 {
351 ValaBasicBlock ** object_p;
352 object_p = collect_values[0].v_pointer;
353 if (!object_p) {
354 return g_strdup_printf ("value location for `%s' passed as NULL", G_VALUE_TYPE_NAME (value));
355 }
356 if (!value->data[0].v_pointer) {
357 *object_p = NULL;
358 } else if (collect_flags & G_VALUE_NOCOPY_CONTENTS) {
359 *object_p = value->data[0].v_pointer;
360 } else {
361 *object_p = vala_basic_block_ref (value->data[0].v_pointer);
362 }
363 return NULL;
364 }
365
366 GParamSpec*
vala_param_spec_basic_block(const gchar * name,const gchar * nick,const gchar * blurb,GType object_type,GParamFlags flags)367 vala_param_spec_basic_block (const gchar* name,
368 const gchar* nick,
369 const gchar* blurb,
370 GType object_type,
371 GParamFlags flags)
372 {
373 ValaParamSpecBasicBlock* spec;
374 g_return_val_if_fail (g_type_is_a (object_type, VALA_TYPE_BASIC_BLOCK), NULL);
375 spec = g_param_spec_internal (G_TYPE_PARAM_OBJECT, name, nick, blurb, flags);
376 G_PARAM_SPEC (spec)->value_type = object_type;
377 return G_PARAM_SPEC (spec);
378 }
379
380 gpointer
vala_value_get_basic_block(const GValue * value)381 vala_value_get_basic_block (const GValue* value)
382 {
383 g_return_val_if_fail (G_TYPE_CHECK_VALUE_TYPE (value, VALA_TYPE_BASIC_BLOCK), NULL);
384 return value->data[0].v_pointer;
385 }
386
387 void
vala_value_set_basic_block(GValue * value,gpointer v_object)388 vala_value_set_basic_block (GValue* value,
389 gpointer v_object)
390 {
391 ValaBasicBlock * old;
392 g_return_if_fail (G_TYPE_CHECK_VALUE_TYPE (value, VALA_TYPE_BASIC_BLOCK));
393 old = value->data[0].v_pointer;
394 if (v_object) {
395 g_return_if_fail (G_TYPE_CHECK_INSTANCE_TYPE (v_object, VALA_TYPE_BASIC_BLOCK));
396 g_return_if_fail (g_value_type_compatible (G_TYPE_FROM_INSTANCE (v_object), G_VALUE_TYPE (value)));
397 value->data[0].v_pointer = v_object;
398 vala_basic_block_ref (value->data[0].v_pointer);
399 } else {
400 value->data[0].v_pointer = NULL;
401 }
402 if (old) {
403 vala_basic_block_unref (old);
404 }
405 }
406
407 void
vala_value_take_basic_block(GValue * value,gpointer v_object)408 vala_value_take_basic_block (GValue* value,
409 gpointer v_object)
410 {
411 ValaBasicBlock * old;
412 g_return_if_fail (G_TYPE_CHECK_VALUE_TYPE (value, VALA_TYPE_BASIC_BLOCK));
413 old = value->data[0].v_pointer;
414 if (v_object) {
415 g_return_if_fail (G_TYPE_CHECK_INSTANCE_TYPE (v_object, VALA_TYPE_BASIC_BLOCK));
416 g_return_if_fail (g_value_type_compatible (G_TYPE_FROM_INSTANCE (v_object), G_VALUE_TYPE (value)));
417 value->data[0].v_pointer = v_object;
418 } else {
419 value->data[0].v_pointer = NULL;
420 }
421 if (old) {
422 vala_basic_block_unref (old);
423 }
424 }
425
426 static void
vala_basic_block_class_init(ValaBasicBlockClass * klass,gpointer klass_data)427 vala_basic_block_class_init (ValaBasicBlockClass * klass,
428 gpointer klass_data)
429 {
430 vala_basic_block_parent_class = g_type_class_peek_parent (klass);
431 ((ValaBasicBlockClass *) klass)->finalize = vala_basic_block_finalize;
432 g_type_class_adjust_private_offset (klass, &ValaBasicBlock_private_offset);
433 }
434
435 static void
vala_basic_block_instance_init(ValaBasicBlock * self,gpointer klass)436 vala_basic_block_instance_init (ValaBasicBlock * self,
437 gpointer klass)
438 {
439 GEqualFunc _tmp0_;
440 ValaArrayList* _tmp1_;
441 GEqualFunc _tmp2_;
442 ValaArrayList* _tmp3_;
443 GEqualFunc _tmp4_;
444 ValaArrayList* _tmp5_;
445 GEqualFunc _tmp6_;
446 ValaArrayList* _tmp7_;
447 GHashFunc _tmp8_;
448 GEqualFunc _tmp9_;
449 ValaHashSet* _tmp10_;
450 GHashFunc _tmp11_;
451 GEqualFunc _tmp12_;
452 ValaHashSet* _tmp13_;
453 self->priv = vala_basic_block_get_instance_private (self);
454 _tmp0_ = g_direct_equal;
455 _tmp1_ = vala_array_list_new (VALA_TYPE_CODE_NODE, (GBoxedCopyFunc) vala_code_node_ref, (GDestroyNotify) vala_code_node_unref, _tmp0_);
456 self->priv->nodes = (ValaList*) _tmp1_;
457 _tmp2_ = g_direct_equal;
458 _tmp3_ = vala_array_list_new (VALA_TYPE_BASIC_BLOCK, NULL, NULL, _tmp2_);
459 self->priv->predecessors = (ValaList*) _tmp3_;
460 _tmp4_ = g_direct_equal;
461 _tmp5_ = vala_array_list_new (VALA_TYPE_BASIC_BLOCK, NULL, NULL, _tmp4_);
462 self->priv->successors = (ValaList*) _tmp5_;
463 _tmp6_ = g_direct_equal;
464 _tmp7_ = vala_array_list_new (VALA_TYPE_BASIC_BLOCK, NULL, NULL, _tmp6_);
465 self->priv->children = (ValaList*) _tmp7_;
466 _tmp8_ = g_direct_hash;
467 _tmp9_ = g_direct_equal;
468 _tmp10_ = vala_hash_set_new (VALA_TYPE_BASIC_BLOCK, NULL, NULL, _tmp8_, _tmp9_);
469 self->priv->df = (ValaSet*) _tmp10_;
470 _tmp11_ = g_direct_hash;
471 _tmp12_ = g_direct_equal;
472 _tmp13_ = vala_hash_set_new (VALA_TYPE_PHI_FUNCTION, (GBoxedCopyFunc) vala_phi_function_ref, (GDestroyNotify) vala_phi_function_unref, _tmp11_, _tmp12_);
473 self->priv->phi_functions = (ValaSet*) _tmp13_;
474 self->ref_count = 1;
475 }
476
477 static void
vala_basic_block_finalize(ValaBasicBlock * obj)478 vala_basic_block_finalize (ValaBasicBlock * obj)
479 {
480 ValaBasicBlock * self;
481 self = G_TYPE_CHECK_INSTANCE_CAST (obj, VALA_TYPE_BASIC_BLOCK, ValaBasicBlock);
482 g_signal_handlers_destroy (self);
483 _vala_iterable_unref0 (self->priv->nodes);
484 _vala_iterable_unref0 (self->priv->predecessors);
485 _vala_iterable_unref0 (self->priv->successors);
486 _vala_iterable_unref0 (self->priv->children);
487 _vala_iterable_unref0 (self->priv->df);
488 _vala_iterable_unref0 (self->priv->phi_functions);
489 }
490
491 /**
492 * Represents a basic block, i.e. a straight-line piece of code without any
493 * jumps or jump targets.
494 */
495 static GType
vala_basic_block_get_type_once(void)496 vala_basic_block_get_type_once (void)
497 {
498 static const GTypeValueTable g_define_type_value_table = { vala_value_basic_block_init, vala_value_basic_block_free_value, vala_value_basic_block_copy_value, vala_value_basic_block_peek_pointer, "p", vala_value_basic_block_collect_value, "p", vala_value_basic_block_lcopy_value };
499 static const GTypeInfo g_define_type_info = { sizeof (ValaBasicBlockClass), (GBaseInitFunc) NULL, (GBaseFinalizeFunc) NULL, (GClassInitFunc) vala_basic_block_class_init, (GClassFinalizeFunc) NULL, NULL, sizeof (ValaBasicBlock), 0, (GInstanceInitFunc) vala_basic_block_instance_init, &g_define_type_value_table };
500 static const GTypeFundamentalInfo g_define_type_fundamental_info = { (G_TYPE_FLAG_CLASSED | G_TYPE_FLAG_INSTANTIATABLE | G_TYPE_FLAG_DERIVABLE | G_TYPE_FLAG_DEEP_DERIVABLE) };
501 GType vala_basic_block_type_id;
502 vala_basic_block_type_id = g_type_register_fundamental (g_type_fundamental_next (), "ValaBasicBlock", &g_define_type_info, &g_define_type_fundamental_info, 0);
503 ValaBasicBlock_private_offset = g_type_add_instance_private (vala_basic_block_type_id, sizeof (ValaBasicBlockPrivate));
504 return vala_basic_block_type_id;
505 }
506
507 GType
vala_basic_block_get_type(void)508 vala_basic_block_get_type (void)
509 {
510 static volatile gsize vala_basic_block_type_id__volatile = 0;
511 if (g_once_init_enter (&vala_basic_block_type_id__volatile)) {
512 GType vala_basic_block_type_id;
513 vala_basic_block_type_id = vala_basic_block_get_type_once ();
514 g_once_init_leave (&vala_basic_block_type_id__volatile, vala_basic_block_type_id);
515 }
516 return vala_basic_block_type_id__volatile;
517 }
518
519 gpointer
vala_basic_block_ref(gpointer instance)520 vala_basic_block_ref (gpointer instance)
521 {
522 ValaBasicBlock * self;
523 self = instance;
524 g_atomic_int_inc (&self->ref_count);
525 return instance;
526 }
527
528 void
vala_basic_block_unref(gpointer instance)529 vala_basic_block_unref (gpointer instance)
530 {
531 ValaBasicBlock * self;
532 self = instance;
533 if (g_atomic_int_dec_and_test (&self->ref_count)) {
534 VALA_BASIC_BLOCK_GET_CLASS (self)->finalize (self);
535 g_type_free_instance ((GTypeInstance *) self);
536 }
537 }
538
539