ODIN_II: Add basic task support, update functions

Author: j-b-1-7

ODIN_II/SRC/ast_elaborate.cpp

@@ -611,6 +611,8 @@ ast_node_t *build_hierarchy(ast_node_t *node, ast_node_t * parent, int index, sc
 				fold_expressions = true;
 				break;
 			}
+			case TASK: //fallthrough
+			case STATEMENT: //fallthough
 			case FUNCTION:	// fallthrough
 			case INITIAL:	// fallthrough
 			case ALWAYS:
@@ -831,6 +833,59 @@ ast_node_t *build_hierarchy(ast_node_t *node, ast_node_t * parent, int index, sc
 					vtr::free(temp_instance_name);
 				}
 
+				for (i = 0; i < node->types.task.size_task_instantiations; i++)
+				{
+				
+					/* make the stringed up module instance name - instance name is
+					* MODULE_INSTANCE->MODULE_NAMED_INSTANCE(child[1])->IDENTIFIER(child[0]).
+					* module name is MODULE_INSTANCE->IDENTIFIER(child[0])
+					*/
+					ast_node_t *temp_instance = node->types.task.task_instantiations_instance[i];
+					char *instance_name_prefix = local_ref->instance_name_prefix;
+
+					char *temp_instance_name = make_full_ref_name(instance_name_prefix,
+						temp_instance->children[0]->types.identifier,
+						temp_instance->children[1]->children[0]->types.identifier,
+						NULL, -1);
+
+					long sc_spot;
+					/* lookup the name of the task associated with this instantiated point */
+					if ((sc_spot = sc_lookup_string(module_names_to_idx, temp_instance->children[0]->types.identifier)) == -1)
+					{
+						error_message(NETLIST_ERROR, node->line_number, node->file_number,
+								"Can't find task name %s\n", temp_instance->children[0]->types.identifier);
+					}
+
+					/* make a unique copy of this task */
+					ast_node_t *instance = ast_node_deep_copy((ast_node_t *)module_names_to_idx->data[sc_spot]);
+					
+					long sc_spot_2 = sc_add_string(module_names_to_idx, temp_instance_name);
+					oassert(sc_spot_2 > -1 && module_names_to_idx->data[sc_spot_2] == NULL);
+					module_names_to_idx->data[sc_spot_2] = (void *)instance;
+					
+					ast_modules = (ast_node_t **)vtr::realloc(ast_modules, sizeof(ast_node_t*)*(sc_spot_2 + 1));
+					ast_modules[sc_spot_2] = instance;
+
+					/* create the string cache list for the instantiated module */
+					sc_hierarchy *original_sc_hierarchy = ((ast_node_t *)module_names_to_idx->data[sc_spot])->types.task.string_cache_list;
+					sc_hierarchy *task_sc_hierarchy = copy_sc_hierarchy(original_sc_hierarchy);
+					task_sc_hierarchy->parent = local_ref;
+					task_sc_hierarchy->instance_name_prefix = vtr::strdup(temp_instance_name);
+					task_sc_hierarchy->scope_id = vtr::strdup(temp_instance->children[1]->children[0]->types.identifier);
+
+					/* update parent string cache list */					
+					int num_task_children = local_ref->num_task_children;
+					local_ref->task_children = (sc_hierarchy **)vtr::realloc(local_ref->task_children, sizeof(sc_hierarchy *)*(num_task_children + 1));
+					local_ref->task_children[i] = task_sc_hierarchy;
+					local_ref->num_task_children++;
+
+					/* elaboration */
+					instance = build_hierarchy(instance, NULL, -1, task_sc_hierarchy, false, true, data);
+
+					/* clean up */
+					vtr::free(temp_instance_name);
+				}
+
 				break;
 			}
 			case MODULE_INSTANCE:
@@ -1009,6 +1064,8 @@ ast_node_t *build_hierarchy(ast_node_t *node, ast_node_t * parent, int index, sc
 
 				break;
 			}
+			case STATEMENT: //fallthrough
+			case TASK: //fallthrough
 			case FUNCTION:	// fallthrough
 			case INITIAL:	// fallthrough
 			case ALWAYS:
@@ -1103,6 +1160,44 @@ ast_node_t *finalize_ast(ast_node_t *node, ast_node_t *parent, sc_hierarchy *loc
 
 				break;
 			}
+			case TASK:
+			{
+				if(parent != NULL)
+				{
+					skip_children = true;
+				}
+				break;
+			}
+			case TASK_INSTANCE:
+			{
+				// check ports
+				ast_node_t *connect_list = node->children[1]->children[1];
+				bool is_ordered_list;
+				if (connect_list->children[1]->children[0]) // skip first connection
+				{
+					is_ordered_list = false; // name was specified
+				}
+				else
+				{
+					is_ordered_list = true;
+				}
+				
+				for (int i = 1; i < connect_list->num_children; i++)
+				{
+					if ((connect_list->children[i] 
+						&& connect_list->children[i]->children)
+						&& (( connect_list->children[i]->children[0] && is_ordered_list)
+						|| (!connect_list->children[i]->children[0] && !is_ordered_list)))
+					{
+						error_message(PARSE_ERROR, node->line_number, node->file_number, 
+								"%s", "Cannot mix port connections by name and port connections by ordered list\n");
+					}
+				}
+
+				skip_children = true;
+
+				break;
+			}
 			case MODULE_ITEMS:
 			{
 				/* look in the string cache for in-line continuous assignments */
@@ -1322,6 +1417,7 @@ ast_node_t *finalize_ast(ast_node_t *node, ast_node_t *parent, sc_hierarchy *loc
 
 				break;
 			}
+			case STATEMENT: //fallthrough
 			case ALWAYS: // fallthrough
 			case INITIAL:
 			{
@@ -1556,6 +1652,40 @@ ast_node_t *finalize_ast(ast_node_t *node, ast_node_t *parent, sc_hierarchy *loc
 					vtr::free(temp_instance_name);
 				}
 
+				for (i = 0; i < node->types.task.size_task_instantiations; i++)
+				{
+				
+					/* make the stringed up module instance name - instance name is
+					* MODULE_INSTANCE->MODULE_NAMED_INSTANCE(child[1])->IDENTIFIER(child[0]).
+					* module name is MODULE_INSTANCE->IDENTIFIER(child[0])
+					*/
+					ast_node_t *temp_instance = node->types.task.task_instantiations_instance[i];
+					char *instance_name_prefix = local_ref->instance_name_prefix;
+
+					char *temp_instance_name = make_full_ref_name(instance_name_prefix,
+						temp_instance->children[0]->types.identifier,
+						temp_instance->children[1]->children[0]->types.identifier,
+						NULL, -1);
+
+					/* lookup the name of the task associated with this instantiated point */
+					long sc_spot = sc_lookup_string(module_names_to_idx, temp_instance->children[0]->types.identifier);
+					oassert(sc_spot > -1 && module_names_to_idx->data[sc_spot] != NULL);
+					ast_node_t *instance = (ast_node_t *)module_names_to_idx->data[sc_spot];
+					
+					sc_hierarchy *task_sc_hierarchy = local_ref->task_children[i];				
+					
+					/* update the parameter table for the instantiated module */
+					STRING_CACHE *instance_param_table_sc = task_sc_hierarchy->local_param_table_sc;
+					update_instance_parameter_table(temp_instance, instance_param_table_sc);
+
+					/* elaboration */
+					update_string_caches(task_sc_hierarchy);
+					instance = finalize_ast(instance, NULL, task_sc_hierarchy, false, true, data);
+
+					/* clean up */
+					vtr::free(temp_instance_name);
+				}
+
 				break;
 			}
 			case MODULE_INSTANCE:
@@ -1779,6 +1909,7 @@ ast_node_t *finalize_ast(ast_node_t *node, ast_node_t *parent, sc_hierarchy *loc
 				if (node->num_children == 3) convert_2D_to_1D_array_ref(&node, local_ref);
 				break;
 			}
+			case STATEMENT: //fallthrough
 			case ALWAYS: // fallthrough
 			case INITIAL:
 			{
@@ -1836,6 +1967,11 @@ ast_node_t *reduce_expressions(ast_node_t *node, sc_hierarchy *local_ref, long *
 				skip_children = true;
 				break;
 			}	
+			case TASK:
+			{
+				skip_children = true;
+				break;
+			}
 			case MODULE_INSTANCE:
 			{
 				skip_children = true;

ODIN_II/SRC/enum_str.cpp

@@ -124,6 +124,8 @@ const char *ids_STR []=
 	"FUNCTION",
    	/* OTHER FUNCTION ITEMS */
   	"FUNCTION_ITEMS",
+	"TASK",
+	"TASK_ITEMS",
 	/* primitives */
 	"GATE",
 	"GATE_INSTANCE",
@@ -140,12 +142,16 @@ const char *ids_STR []=
 	/* Function instances*/
 	"FUNCTION_NAMED_INSTANCE",
 	"FUNCTION_INSTANCE",
+
+	"TASK_NAMED_INSTANCE",
+	"TASK_INSTANCE",
 	/* Specify Items */
 	"SPECIFY_ITEMS",
 	"SPECIFY_PARAMETER",
 	"SPECIFY_PAL_CONNECTION_STATEMENT",
 	"SPECIFY_PAL_CONNECT_LIST",
 	/* statements */
+	"STATEMENT",
 	"BLOCK",
 	"NON_BLOCKING_STATEMENT",
 	"BLOCKING_STATEMENT",

ODIN_II/SRC/hierarchy_util.cpp

@@ -103,6 +103,12 @@ void free_sc_hierarchy(sc_hierarchy *to_free)
 	}
 	to_free->function_children = (sc_hierarchy **)vtr::free(to_free->function_children);
 
+	for (i = 0; i < to_free->num_task_children; i++)
+	{
+		free_sc_hierarchy(to_free->task_children[i]);
+	}
+	to_free->task_children = (sc_hierarchy **)vtr::free(to_free->task_children);
+
 	if (to_free->local_param_table_sc)
 	{
 		for(i = 0; i < to_free->local_param_table_sc->free; i++)
@@ -125,6 +131,7 @@ void free_sc_hierarchy(sc_hierarchy *to_free)
 
 	to_free->num_module_children = 0;
 	to_free->num_function_children = 0;
+	to_free->num_task_children = 0;
 
 	vtr::free(to_free);
 }
@@ -181,6 +188,14 @@ ast_node_t *resolve_hierarchical_name_reference(sc_hierarchy *local_ref, char *i
 							found = true;
 						}
 					}
+					for (int i = 0; !found && i < this_ref->num_task_children; i++)
+					{
+						if (this_ref->task_children[i]->scope_id == scope_id)
+						{
+							this_ref = this_ref->task_children[i];
+							found = true;
+						}
+					}
 				}
 
 				/* if not found, check upward */
@@ -262,6 +277,14 @@ ast_node_t *resolve_hierarchical_name_reference_by_path_search(sc_hierarchy *loc
 					var_declare = resolve_hierarchical_name_reference_by_path_search(local_ref->function_children[i], identifier);
 				}
 			}
+
+			for (int i = 0; !var_declare && i < local_ref->num_task_children; i++)
+			{
+				if (local_ref->task_children[i]->scope_id == scope_id)
+				{
+					var_declare = resolve_hierarchical_name_reference_by_path_search(local_ref->task_children[i], identifier);
+				}
+			}
 		}
 
 		return var_declare;

ODIN_II/SRC/include/odin_types.h

@@ -272,6 +272,8 @@ enum ids
 	FUNCTION,
    	/* OTHER FUNCTION ITEMS */
   	FUNCTION_ITEMS,
+	TASK,
+	TASK_ITEMS,
 	/* primitives */
 	GATE,
 	GATE_INSTANCE,
@@ -288,12 +290,16 @@ enum ids
 	/* Function instances*/
 	FUNCTION_NAMED_INSTANCE,
 	FUNCTION_INSTANCE,
+
+	TASK_NAMED_INSTANCE,
+	TASK_INSTANCE,
 	/* Specify Items */
 	SPECIFY_ITEMS,
 	SPECIFY_PARAMETER,
 	SPECIFY_PAL_CONNECTION_STATEMENT,
 	SPECIFY_PAL_CONNECT_LIST,
 	/* statements */
+	STATEMENT,
 	BLOCK,
 	NON_BLOCKING_STATEMENT,
 	BLOCKING_STATEMENT,
@@ -379,6 +385,15 @@ struct typ
 		sc_hierarchy *string_cache_list;
 	} function;
 	struct
+	{
+		short is_instantiated;
+		ast_node_t **task_instantiations_instance;
+		int size_task_instantiations;
+		int index;
+		STRING_CACHE *parameter_list;
+		sc_hierarchy *string_cache_list;
+	}task;
+	struct
 	{
 		int num_bit_strings;
 		char **bit_strings;

ODIN_II/SRC/include/parse_making_ast.h

@@ -51,13 +51,16 @@ ast_node_t *newIf(ast_node_t *compare_expression, ast_node_t *true_expression, a
 ast_node_t *newIfQuestion(ast_node_t *compare_expression, ast_node_t *true_expression, ast_node_t *false_expression, int line_number);
 ast_node_t *newCase(ast_node_t *compare_expression, ast_node_t *case_list, int line_number);
 ast_node_t *newAlways(ast_node_t *delay_control, ast_node_t *statements, int line_number);
+ast_node_t *newStatement(ast_node_t *statement, int line_number);
 ast_node_t *newFor(ast_node_t *initial, ast_node_t *compare_expression, ast_node_t *terminal, ast_node_t *statement, int line_number);
 ast_node_t *newWhile(ast_node_t *compare_expression, ast_node_t *statement, int line_number);
 
 /* MODULE INSTANCES FUNCTIONS */
 ast_node_t *newModuleConnection(char* id, ast_node_t *expression, int line_number);
 ast_node_t *newModuleNamedInstance(char* unique_name, ast_node_t *module_connect_list, ast_node_t *module_parameter_list, int line_number);
 ast_node_t *newFunctionNamedInstance(ast_node_t *module_connect_list, ast_node_t *module_parameter_list, int line_number);
+ast_node_t *newTaskInstance(char *task_name, ast_node_t *task_named_instace, ast_node_t *task_parameter_list, int line_number);
+ast_node_t *newTaskNamedInstance(ast_node_t *module_connect_list, int line_number);
 ast_node_t *newModuleInstance(char* module_ref_name, ast_node_t *module_named_instance, int line_number);
 ast_node_t *newFunctionInstance(char* function_ref_name, ast_node_t *function_named_instance, int line_number);
 ast_node_t *newHardBlockInstance(char* module_ref_name, ast_node_t *module_named_instance, int line_number);
@@ -81,9 +84,11 @@ ast_node_t *newIntegerTypeVarDeclare(char* symbol, ast_node_t *expression1, ast_
 
 /* HIGH LEVEL ITEMS */
 ast_node_t *newModule(char* module_name, ast_node_t *list_of_parameters, ast_node_t *list_of_ports, ast_node_t *list_of_module_items, int line_number);
-ast_node_t *newFunction(ast_node_t *list_of_ports, ast_node_t *list_of_module_items, int line_number);
+ast_node_t *newFunction(ast_node_t *function_return, ast_node_t *list_of_ports, ast_node_t *list_of_module_items, int line_number, bool automatic);
+ast_node_t *newTask(char *task_name, ast_node_t *list_of_ports, ast_node_t *list_of_task_items, int line_number, bool automatic);
 void next_module();
 void next_function();
+void next_task();
 ast_node_t *newDefparam(ids id, ast_node_t *val, int line_number);
 
 void next_parsed_verilog_file(ast_node_t *file_items_list);