X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fir%2Firnode.c;h=ce3965653cbed882d78d425100378f5c1fcb6ee0;hb=7b11a6af3b0c4bcfa0ae17dc28a70008eefd6b9d;hp=e9a3857bfca41bcd1bf87d958120b768a0879e09;hpb=0fed2e7102daf6cc699477bf48cc96a0dfaffe44;p=libfirm

diff --git a/ir/ir/irnode.c b/ir/ir/irnode.c
index e9a3857bf..ce3965653 100644
--- a/ir/ir/irnode.c
+++ b/ir/ir/irnode.c
@@ -353,6 +353,21 @@ void *
   return __get_irn_link(node);
 }
 
+op_pin_state
+(get_irn_pinned)(const ir_node *node) {
+  return __get_irn_pinned(node);
+}
+
+void set_irn_pinned(ir_node *node, op_pin_state state) {
+  /* due to optimization an opt may be turned into a Tuple */
+  if (get_irn_op(node) == op_Tuple)
+    return;
+
+  assert(node && get_op_pinned(get_irn_op(node)) == op_pin_state_exc_pinned);
+  assert(state == op_pin_state_pinned || state == op_pin_state_floats);
+
+  node->attr.except.pin_state = state;
+}
 
 #ifdef DO_HEAPANALYSIS
 /* Access the abstract interpretation information of a node.
@@ -2070,6 +2085,12 @@ ir_node *get_fragile_op_mem(ir_node *node) {
   }
 }
 
+/* Returns true if the operation is a forking control flow operation. */
+int
+is_forking_op(ir_node *node) {
+  return is_op_forking(get_irn_op(node));
+}
+
 #ifdef DEBUG_libfirm
 void dump_irn (ir_node *n) {
   int i, arity = get_irn_arity(n);