X-Git-Url: http://git.tuebingen.mpg.de/?p=paraslash.git;a=blobdiff_plain;f=buffer_tree.c;h=1c4e046ad8f2aa478bcd4eaf5d94171f0224fd63;hp=30f875fa7b3526794f41be11c4f4e9e8353ccb11;hb=0eb69b6d45c54deda1724b2db2202cf4057b0309;hpb=ca138ffebb5ccab9b3fedc1234a9c5ba33bb4bb0

diff --git a/buffer_tree.c b/buffer_tree.c
index 30f875fa..1c4e046a 100644
--- a/buffer_tree.c
+++ b/buffer_tree.c
@@ -295,9 +295,10 @@ struct btr_node *btr_new_node(struct btr_node_description *bnd)
 		bnd->child->parent = btrn;
 		goto out;
 	}
-	PARA_EMERG_LOG("inserting internal nodes not yet supported.\n");
-	exit(EXIT_FAILURE);
-	assert(bnd->child->parent == bnd->parent);
+	list_add_tail(&btrn->node, &bnd->parent->children);
+	list_move(&bnd->child->node, &btrn->children);
+	bnd->child->parent = btrn;
+	PARA_INFO_LOG("added %s as internal node\n", bnd->name);
 out:
 	return btrn;
 }
@@ -878,7 +879,7 @@ size_t btr_get_output_queue_size(struct btr_node *btrn)
 }
 
 /**
- * Execute a inter-node command on the given node or on a parent node.
+ * Execute an inter-node command on the given node or on a parent node.
  *
  * \param btrn The node to start looking.
  * \param command The command to execute.
@@ -1225,3 +1226,8 @@ void btr_get_node_start(struct btr_node *btrn, struct timeval *tv)
 {
 	*tv = btrn->start;
 }
+
+struct btr_node *btr_parent(struct btr_node *btrn)
+{
+	return btrn->parent;
+}