Merge pull request #899 from CAS-Atlantic/hard_block_bug

ODIN II: fix hard block instantiation bug

Author: jeanlego

ODIN_II/SRC/adders.cpp

@@ -1500,3 +1500,34 @@ void instantiate_add_w_carry_block(int *width, nnode_t *node, short mark, netlis
 		connect_output_pin_to_node(width, i, 0, node, current_adder, subtraction);
 	}
 }
+
+bool is_ast_adder(ast_node_t *node)
+{
+	bool is_adder;
+	ast_node_t *instance = node->children[1];
+	is_adder = 	(!strcmp(node->children[0]->types.identifier, "adder")) 
+				 && (instance->children[1]->num_children == 5);
+
+	ast_node_t *connect_list = instance->children[1];
+	if (is_adder && connect_list->children[0]->children[0])
+	{
+		/* port connections were passed by name; verify port names */
+		for (int i = 0; i < connect_list->num_children && is_adder; i++)
+		{
+			char *id = connect_list->children[i]->children[0]->types.identifier; 
+
+			if ((strcmp(id, "a") != 0) &&
+				(strcmp(id, "b") != 0) &&
+				(strcmp(id, "cin") != 0) &&
+				(strcmp(id, "cout") != 0) &&
+				(strcmp(id, "sumout") != 0)
+			)
+			{
+				is_adder = false;
+				break;
+			}
+		}
+	}
+
+	return is_adder;
+}