void DesignCompilerWrapper::EvaluateVariables(const DesignParametersRef dp) { // Detect the top module name std::string top_name = dp->component_name; xml_set_variable_tRef var_top = get_reserved_parameter(dc_top); var_top->clean(); var_top->singleValue = new std::string(top_name); dp->parameter_values[dc_top] = top_name; if (dp->parameter_values.find(PARAM_sdc_file) != dp->parameter_values.end()) { xml_set_variable_tRef var_sdc = get_reserved_parameter(dc_constraint_file); var_sdc->clean(); var_sdc->singleValue = new std::string(dp->parameter_values[PARAM_sdc_file]); } set_link_libraries(dp); set_target_libraries(dp); std::string HDL_files = dp->parameter_values[PARAM_HDL_files]; std::vector<std::string> files = convert_string_to_vector<std::string>(HDL_files, ";"); std::string target_file = import_input_design(dp, files); perform_optimization(dp); save_design(dp, target_file); for(unsigned int l = 0; l < xml_script_nodes.size(); l++) { if (xml_script_nodes[l]->nodeType == NODE_COMMAND && *(GetPointer<xml_command_t>(xml_script_nodes[l])->name) == "report_area") { if (!GetPointer<xml_command_t>(xml_script_nodes[l])->output) THROW_ERROR("output file not specified for command \"report_area\""); report_files[REPORT_AREA] = *(GetPointer<xml_command_t>(xml_script_nodes[l])->output); replace_parameters(dp, report_files[REPORT_AREA]); } if (xml_script_nodes[l]->nodeType == NODE_COMMAND && *(GetPointer<xml_command_t>(xml_script_nodes[l])->name) == "report_timing") { if (!GetPointer<xml_command_t>(xml_script_nodes[l])->output) THROW_ERROR("output file not specified for command \"report_timing\""); report_files[REPORT_TIME] = *(GetPointer<xml_command_t>(xml_script_nodes[l])->output); replace_parameters(dp, report_files[REPORT_TIME]); } } }
void SSValgrind::run(DTO& dto) { PragmaCustomCompilerPhase::run(dto); // Now look for all function calls that we know are CSS functions ScopeLink sl = dto["scope_link"]; AST_t a = dto["translation_unit"]; ObjectList<AST_t> all_function_calls = a.depth_subtrees(PredicateAttr(LANG_IS_FUNCTION_CALL)); for (ObjectList<AST_t>::iterator it = all_function_calls.begin(); it != all_function_calls.end(); it++) { Expression function_call(*it, sl); Expression function_called_expresion = function_call.get_called_expression(); ObjectList<Expression> arguments = function_call.get_argument_list(); if (!function_called_expresion.is_id_expression()) // We do not handle indirect calls (through variables) continue; Scope sc = sl.get_scope(*it); AugmentedSymbol symbol = function_called_expresion.get_id_expression().get_computed_symbol(); // This is a CSS task if (!symbol.is_valid() || !symbol.is_task()) continue; AST_t decl_tree = symbol.get_point_of_declaration(); ObjectList<ParameterDeclaration> parameter_decls; if (FunctionDefinition::predicate(decl_tree)) { FunctionDefinition function_def(decl_tree, sl); DeclaredEntity entity = function_def.get_declared_entity(); parameter_decls = entity.get_parameter_declarations(); } else { Declaration declaration(decl_tree, sl); DeclaredEntity entity ( declaration.get_declared_entities()[0] ); parameter_decls = entity.get_parameter_declarations(); } int i = 0; ReplaceSrcIdExpression replace_parameters(sl); for (ObjectList<ParameterDeclaration>::iterator param_decl_it = parameter_decls.begin(); param_decl_it != parameter_decls.end(); param_decl_it++, i++) { replace_parameters.add_replacement(param_decl_it->get_name().get_symbol(), "(" + arguments[i].prettyprint() + ")"); } Source new_code, data_info; new_code << "{" << "int temp_sp_ssvalgrind;" << "start_task_valgrind(&temp_sp_ssvalgrind, \"" << symbol.get_name() << "\");" << data_info << function_call.prettyprint() << ";" << "end_task_valgrind();" << "}" ; ObjectList<Type> parameters = symbol.get_type().nonadjusted_parameters(); RefPtr<ParameterRegionList> parameter_region_list = symbol.get_parameter_region_list(); ObjectList<ParameterDeclaration>::iterator param_decl_it2 = parameter_decls.begin(); i = 0; for (ObjectList<RegionList>::iterator region_list_it = parameter_region_list->begin(); region_list_it != parameter_region_list->end(); region_list_it++, i++, param_decl_it2++) { Type base_type = parameters[i]; Source array_factor; if (base_type.is_pointer()) { base_type = base_type.points_to(); } else if (base_type.is_reference()) { base_type = base_type.references_to(); } else if (base_type.is_array()) { while (base_type.is_array()) { Source expr; expr << "(" << base_type.array_get_size().prettyprint() << ")"; array_factor << "*" << expr; base_type = base_type.array_element(); } } DEBUG_CODE() { std::cerr << "SS-VALGRIND: base_type: " << base_type.get_declaration(function_call.get_scope(), "") << std::endl; } for (ObjectList<Region>::iterator reg_it = region_list_it->begin(); reg_it != region_list_it->end(); reg_it++) { Region ®ion(*reg_it); Source register_data, addr, base_type_size, span, called_function, decl_name; register_data << called_function << "(\n" << decl_name << "\n," << addr << ", " << base_type_size << "," << span << ");" ; decl_name << "\"" << param_decl_it2->get_name() << "\""; switch ((int)reg_it->get_direction()) { case Region::INPUT_DIR: { called_function << "task_input_valgrind"; break; } case Region::OUTPUT_DIR: { called_function << "task_output_valgrind"; break; } case Region::INOUT_DIR: { called_function << "task_inout_valgrind"; break; } case Region::UNSPECIFIED_DIR: { called_function << "task_unspecified_dir_valgrind"; break; } case Region::UNKNOWN_DIR: { internal_error("Invalid directionality", 0); } } if (region.get_dimension_count() == 0) { // Two cases: a scalar or a pointer if it is a scalar there is // no need to state anything if (parameters[i].is_pointer() || parameters[i].is_array()) { addr << arguments[i]; base_type_size << "sizeof(" << base_type.get_declaration(sc, "") << ")" << array_factor; } else if (parameters[i].is_reference()) { addr << "&" << arguments[i]; base_type_size << "sizeof(" << base_type.get_declaration(sc, "") << ")"; } else { // This is an awkward case called_function = Source("task_input_value_valgrind"); addr << "0"; base_type_size << "sizeof(" << base_type.get_declaration(sc, "") << ")"; } span << 1; } else { Source dim_spec_src; for (unsigned int j = 1; j <= region.get_dimension_count(); j++) { // This list is reversed Region::DimensionSpecifier &dim_spec(region[region.get_dimension_count() - j]); DEBUG_CODE() { std::cerr << "SS-VALGRIND: Region: #" << j << std::endl << "SS-VALGRIND: dimension_start: " << dim_spec.get_dimension_start() << std::endl << "SS-VALGRIND: accessed_length: " << dim_spec.get_accessed_length() << std::endl << "SS-VALGRIND: dimension_length: " << dim_spec.get_dimension_length() << std::endl; } dim_spec_src << "[" << replace_parameters.replace(dim_spec.get_dimension_start()) << "]"; span.append_with_separator( replace_parameters.replace(dim_spec.get_accessed_length()), "*"); } base_type_size << "sizeof(" << base_type.get_declaration(sc, "") << ")"; addr << "&((" << arguments[i] << ")" << dim_spec_src << ")"; } data_info << register_data ; } } Statement enclosing_statement = function_call.get_enclosing_statement(); AST_t new_tree = new_code.parse_statement(function_call.get_ast(), function_call.get_scope_link()); enclosing_statement.get_ast().replace(new_tree); } }