Lines Matching refs:msg
47 my $msg;
49 $msg = "Error: minimum Perl release required: ";
50 $msg .= $perl_minimal_version_supported;
51 $msg .= " current: ";
52 $msg .= $perl_current_version;
53 $msg .= "\n";
55 print $msg;
460 my $msg;
572 $msg = "the list with experiments is either missing, or incorrect";
573 gp_message ("debug", $subr_name, $msg);
580 $msg = "parsing of the user options completed";
581 gp_message ("verbose", $subr_name, $msg);
586 $msg = "process user options";
587 gp_message ("verbose", $subr_name, $msg);
610 $msg = "successfully verified the OS commands";
611 gp_message ("debug", $subr_name, $msg);
627 $msg = "internal settings after option processing";
628 $ignore_value = print_table_user_settings ("diag", $msg);
636 my $msg = "the current values for the user controllable settings";
637 print_user_settings ("debug", $msg);
643 my $msg = "after parsing the user options, the final values are";
644 print_user_settings ("debug", $msg);
657 $msg = "the output directory is $outputdir";
658 gp_message ("debug", $subr_name, $msg);
668 $msg = "the home directory is $home_dir";
669 gp_message ("debug", $subr_name, $msg);
687 $msg = "processing of the rc file has been disabled for now";
688 gp_message ("debugXL", $subr_name, $msg);
707 $msg = "the experiment " . $plural . ":";
708 gp_message ("verbose", $subr_name, $msg);
738 $msg = "the experiment directories have been verified and are valid";
739 gp_message ("verbose", $subr_name, $msg);
755 $msg = "the experiment directories are consistent";
756 gp_message ("verbose", $subr_name, $msg);
760 $msg = "the number of consistency errors detected: $consistency_errors";
761 gp_message ("abort", $subr_name, $msg);
771 $msg = "executable_name = " . $executable_name;
772 gp_message ("debug", $subr_name, $msg);
773 $msg = "selected_archive = " . $selected_archive;
774 gp_message ("debug", $subr_name, $msg);
775 $msg = "base_va_executable = " . $base_va_executable;
776 gp_message ("debug", $subr_name, $msg);
787 $msg = "updated GP_DISPLAY_TEXT = $GP_DISPLAY_TEXT";
788 gp_message ("debug", $subr_name, $msg);
797 $msg = "file $GP_DISPLAY_TEXT is not executable for user, group, and";
798 $msg .= " other";
799 gp_message ("warning", $subr_name, $msg);
810 $msg = "decimal separator is $decimal_separator";
811 $msg .= " (conversion to dot is ";
812 $msg .= ($convert_to_dot == $TRUE ? "enabled" : "disabled") . ")";
813 gp_message ("debugXL", $subr_name, $msg);
817 $msg = "the decimal separator cannot be determined -";
818 $msg .= " set to $decimal_separator";
819 gp_message ("warning", $subr_name, $msg);
825 $msg = "collect system information and adapt settings";
826 gp_message ("verbose", $subr_name, $msg);
850 $msg = "architecture_supported = $architecture_supported";
851 gp_message ("debug", $subr_name, $msg);
852 $msg = "elf_arch = $elf_arch";
853 gp_message ("debug", $subr_name, $msg);
854 $msg = "elf_support = ".($elf_arch ? "TRUE" : "FALSE");
855 gp_message ("debug", $subr_name, $msg);
859 $msg = "g_arch_specific_settings{$feature} = ";
860 $msg .= $g_arch_specific_settings{$feature};
861 gp_message ("debug", $subr_name, $msg);
870 $msg = "after get_LANG_setting: LANG = $g_locale_settings{'LANG'}";
871 gp_message ("debugXL", $subr_name, $msg);
890 $msg = "hack ARCHIVES_MAP_NAME = $ARCHIVES_MAP_NAME";
891 gp_message ("debugXL", $subr_name, $msg);
892 $msg = "hack ARCHIVES_MAP_VADDR = $ARCHIVES_MAP_VADDR";
893 gp_message ("debugXL", $subr_name, $msg);
895 $msg = "after call to check_loadobjects_are_elf forced";
896 $msg .= " elf_loadobjects_found = $elf_loadobjects_found";
897 gp_message ("debugXL", $subr_name, $msg);
901 $msg = "g_html_credits_line = $g_html_credits_line";
902 gp_message ("debugXL", $subr_name, $msg);
936 $msg = "gather the metrics data from the experiments";
937 gp_message ("verbose", $subr_name, $msg);
950 $msg = "unable to open metric value data file $outfile1 for reading:";
952 or die ($subr_name . " - " . $msg . " " . $!);
954 $msg = "opened file $outfile1 for reading";
962 $msg = "metrics_data[$i] = " . $metrics_data[$i];
963 gp_message ("debugXL", $subr_name, $msg);
987 $msg = "after the call to process_metrics_data";
988 gp_message ("debugXL", $subr_name, $msg);
992 $msg = "metric_value{$metric} = " . $metric_value{$metric};
993 gp_message ("debugXL", $subr_name, $msg);
997 $msg = "metric_description{$metric} =";
998 $msg .= " " . $metric_description{$metric};
999 gp_message ("debugXL", $subr_name, $msg);
1012 $msg = "select the set of default metrics";
1013 gp_message ("verbose", $subr_name, $msg);
1024 $msg = "after the call to set_default_metrics";
1025 gp_message ("debug", $subr_name, $msg);
1031 $msg = "summary_metrics = " . $summary_metrics;
1032 gp_message ("debugXL", $subr_name, $msg);
1033 $msg = "detail_metrics = " . $detail_metrics;
1034 gp_message ("debugXL", $subr_name, $msg);
1035 $msg = "detail_metrics_system = " . $detail_metrics_system;
1036 gp_message ("debugXL", $subr_name, $msg);
1037 $msg = "call_metrics = " . $call_metrics;
1038 gp_message ("debugXL", $subr_name, $msg);
1039 $msg = "number_of_metrics = " . $number_of_metrics;
1040 gp_message ("debugXL", $subr_name, $msg);
1047 $msg = "metric_found{$im} = " . $metric_found{$im};
1048 gp_message ("debugXL", $subr_name, $msg);
1054 $msg = "user requested ignored metric (-im) $im does not exist in";
1055 $msg .= " collected metrics";
1056 gp_message ("debugXL", $subr_name, $msg);
1063 $msg = "generate the experiment information";
1064 gp_message ("verbose", $subr_name, $msg);
1071 my $msg = "i = $i " . $experiment_data[$i]{"exp_id"} . " => " .
1073 gp_message ("debugM", $subr_name, $msg);
1083 my $msg = "i = $i experiment_data[$i]{$fields} = " .
1085 gp_message ("debugXL", $subr_name, $msg);
1099 $msg = "generate the list with functions executed";
1100 gp_message ("verbose", $subr_name, $msg);
1111 $msg = "analyze and store the relevant function information";
1112 gp_message ("verbose", $subr_name, $msg);
1124 $msg = "found " . $g_total_function_count . " functions to process";
1125 gp_message ("verbose", $subr_name, $msg);
1131 $msg = "$keys $fields $function_info[$keys]{$fields}";
1132 gp_message ("debugXL", $subr_name, $msg);
1138 $msg = "addressobjtextm{$i} = " . $addressobjtextm{$i};
1139 gp_message ("debugXL", $subr_name, $msg);
1142 $msg = "generate the files with function overviews and the";
1143 $msg .= " callers-callees information";
1144 gp_message ("verbose", $subr_name, $msg);
1152 $msg = "preprocess the files with the function level information";
1153 gp_message ("verbose", $subr_name, $msg);
1161 $msg = "for each function, generate a set of files";
1162 gp_message ("verbose", $subr_name, $msg);
1190 $msg = "parse the disassembly files and generate the html files";
1191 gp_message ("verbose", $subr_name, $msg);
1202 $msg = "parse the source files and generate the html files";
1203 gp_message ("verbose", $subr_name, $msg);
1210 $msg = "process the caller-callee information and generate the html file";
1211 gp_message ("verbose", $subr_name, $msg);
1228 $msg = "process the call tree information and generate the html file";
1229 gp_message ("verbose", $subr_name, $msg);
1240 $msg = "generate the html file with the metrics information";
1241 gp_message ("verbose", $subr_name, $msg);
1251 $msg = "generate the function view html files";
1252 gp_message ("verbose", $subr_name, $msg);
1267 $msg = "html_first_metric_file = " . $html_first_metric_file;
1268 gp_message ("debugXL", $subr_name, $msg);
1271 $msg = "html_test = " . $html_test;
1272 gp_message ("debugXL", $subr_name, $msg);
1282 $msg = "generate the index.html file";
1283 gp_message ("verbose", $subr_name, $msg);
1393 my $msg;
1405 $msg = "g_addressing_mode = $g_addressing_mode not supported";
1406 gp_message ("abort", $subr_name, $msg);
1471 my $msg;
1498 $msg = "error executing this command: " . $target_cmd;
1499 gp_message ("warning", $subr_name, $msg);
1500 $msg = "execution continues, but may fail later on";
1501 gp_message ("warning", $subr_name, $msg);
1534 $msg = "the output from $target_cmd has more than 2 lines";
1535 gp_message ("assertion", $subr_name, $msg);
1544 $msg = "the $cmd command is in the search path";
1545 gp_message ("debug", $subr_name, $msg);
1555 $msg = "the $cmd command is not in the search path";
1556 $msg .= " - start a best effort search to find it";
1557 gp_message ("debug", $subr_name, $msg);
1565 $msg = "found the command in $path";
1566 gp_message ("debug", $subr_name, $msg);
1574 $msg = "failure to find the $cmd command in $path";
1575 gp_message ("debug", $subr_name, $msg);
1600 $msg = "<br>" . "failure in the verification of the OS commands:";
1601 gp_message ("warning", $subr_name, $msg);
1608 $msg = "cannot find a path for command $cmd";
1609 gp_message ("warning", $subr_name, $msg);
1610 gp_message ("debug", $subr_name, $msg);
1618 $msg = "path for the $cmd command is $mapped";
1619 gp_message ("debug", $subr_name, $msg);
1627 $msg = "encountered $no_of_failed_mappings $plural_1 to locate";
1628 $msg .= " selected " . $plural_2;
1629 gp_message ("warning", $subr_name, $msg);
1630 gp_message ("debug", $subr_name, $msg);
1632 $msg = "execution continues, but may fail later on";
1633 gp_message ("warning", $subr_name, $msg);
1634 gp_message ("debug", $subr_name, $msg);
1665 my $msg;
1673 $msg = "found a branch or endbr instruction: " .
1678 $msg = "found a branch or endbr instruction: " .
1681 gp_message ("debugXL", $subr_name, $msg);
1712 my $msg = "found endbr: $instruction_name " .
1714 gp_message ("debugXL", $subr_name, $msg);
1728 $msg = "cannot determine branch target";
1729 gp_message ("debug", $subr_name, $msg);
1762 my $msg;
1767 $msg = "found a function call - line[$line_no] = $input_line";
1768 gp_message ("debugXL", $subr_name, $msg);
1771 $msg = "line[$line_no] " .
1773 gp_message ("assertion", $subr_name, $msg);
1779 $msg = "instruction_address = $instruction_address";
1780 gp_message ("debugXL", $subr_name, $msg);
1784 $msg = "line[$line_no] " .
1786 gp_message ("assertion", $subr_name, $msg);
1793 $msg = "calculate branch target: " .
1795 gp_message ("debugXL", $subr_name, $msg);
1796 $msg = "calculate branch target: " .
1798 gp_message ("debugXL", $subr_name, $msg);
1809 $msg = "calculated hex_branch_target = " .
1811 gp_message ("debugXL", $subr_name, $msg);
1817 $msg = "set branch_target{$hex_branch_target} to 1";
1818 gp_message ("debugXL", $subr_name, $msg);
1819 $msg = "added extended_branch_target{$instruction_address}";
1820 $msg .= " = $extended_branch_target{$instruction_address}";
1821 gp_message ("debugXL", $subr_name, $msg);
1825 $msg = "line[$line_no] unknown address format";
1826 gp_message ("assertion", $subr_name, $msg);
1856 my $msg;
1923 my $msg;
1938 $msg = "error_occurred = $error_occurred return_value = $return_value";
1939 gp_message ("debugXL", $subr_name, $msg);
1948 $msg = "located $GP_DISPLAY_TEXT in the execution directory";
1949 gp_message ("debug", $subr_name, $msg);
1950 $msg = "g_path_to_tools = $g_path_to_tools";
1951 gp_message ("debug", $subr_name, $msg);
1959 $msg = $g_html_new_line;
1960 $msg .= "could not find $GP_DISPLAY_TEXT in directory $gp_path :";
1961 $msg .= " $return_value";
1962 gp_message ("warning", $subr_name, $msg);
1967 $msg = "check for $GP_DISPLAY_TEXT to be in the search path";
1968 gp_message ("debug", $subr_name, $msg);
1970 gp_message ("warning", $subr_name, $msg);
1984 $msg = "located $GP_DISPLAY_TEXT in $g_path_to_tools";
1985 gp_message ("warning", $subr_name, $msg);
1986 $msg = "this is the version that will be used";
1987 gp_message ("warning", $subr_name, $msg);
1989 $msg = "the $GP_DISPLAY_TEXT tool is in the search path";
1990 gp_message ("debug", $subr_name, $msg);
1991 $msg = "g_path_to_tools = $g_path_to_tools";
1992 gp_message ("debug", $subr_name, $msg);
1996 $msg = "failure to find $GP_DISPLAY_TEXT in the search path";
1997 gp_message ("error", $subr_name, $msg);
2051 my $msg;
2079 $msg = " - unable to open file $path_to_log_file for reading:";
2081 or die ($subr_name . $msg . " " . $!);
2083 $msg = "opened file $path_to_log_file for reading";
2084 gp_message ("debug", $subr_name, $msg);
2099 $msg = "selected the following line from the log.xml file:";
2100 gp_message ("debugM", $subr_name, $msg);
2105 $msg = "extracted hostname_exp = " . $hostname_exp;
2106 gp_message ("debugM", $subr_name, $msg);
2111 $msg = "extracted arch_exp = " . $arch_exp;
2112 gp_message ("debugM", $subr_name, $msg);
2124 $msg = "extracted os_exp = " . $os_exp;
2125 gp_message ("debugM", $subr_name, $msg);
2151 $msg = "early return: the hostname, architecture and OS match";
2152 $msg .= " the current system";
2153 gp_message ("debug", $subr_name, $msg);
2154 $msg = "FAKE THIS IS NOT THE CASE AND CONTINUE";
2155 gp_message ("debug", $subr_name, $msg);
2161 $msg = "selected_archive = " . $selected_archive;
2162 gp_message ("debug", $subr_name, $msg);
2166 $msg = "stored loadobject " . $i . " ";
2167 $msg .= $g_exp_dir_meta_data{$selected_archive}{"archive_files"}{$i};
2168 gp_message ("debug", $subr_name, $msg);
2180 $msg = "the files in directory $selected_archive/archives are in";
2181 $msg .= " ELF format";
2182 gp_message ("debugM", $subr_name, $msg);
2183 $msg = "IGNORE THIS AND USE MAP.XML";
2184 gp_message ("debugM", $subr_name, $msg);
2188 $msg = "the files in directory $selected_archive/archives are not in";
2189 $msg .= " ELF format";
2190 gp_message ("debug", $subr_name, $msg);
2197 $msg = " - unable to open file $path_to_map_file for reading:";
2199 or die ($subr_name . $msg . " " . $!);
2200 $msg = "opened file $path_to_map_file for reading";
2201 gp_message ("debug", $subr_name, $msg);
2227 $msg = "extracted vaddr = $vaddr foffset = $foffset";
2228 $msg .= " modes = $modes";
2229 gp_message ("debugM", $subr_name, $msg);
2230 $msg = "extracted name_path = $name_path name = $name";
2231 gp_message ("debugM", $subr_name, $msg);
2238 $msg = "set executable_name = " . $executable_name;
2239 gp_message ("debugM", $subr_name, $msg);
2240 $msg = "set va_executable_in_hex = " . $va_executable_in_hex;
2241 gp_message ("debugM", $subr_name, $msg);
2242 $msg = "result_VA = " . $result_VA;
2243 gp_message ("debugM", $subr_name, $msg);
2244 $msg = "hex_VA = " . $hex_VA;
2245 gp_message ("debugM", $subr_name, $msg);
2259 $msg = "cannot find the necessary information in";
2260 $msg .= " the $path_to_map_file file";
2261 gp_message ("assertion", $subr_name, $msg);
2288 my $msg;
2301 $msg = "metric = $metric current_value = $current_value";
2302 $msg .= " max_value = $max_value";
2303 gp_message ("debugXL", $subr_name, $msg);
2309 $msg = "metric = $metric current_value = $current_value";
2310 $msg .= " max_value = $max_value";
2311 gp_message ("debugXL", $subr_name, $msg);
2316 $msg = "relative_distance = $relative_distance";
2317 gp_message ("debugXL", $subr_name, $msg);
2321 $msg = "metric $metric is within the relative_distance";
2322 gp_message ("debugXL", $subr_name, $msg);
2389 my $msg;
2455 $msg = "the list with the experiments is not contiguous:";
2456 gp_message ("error", $subr_name, $msg);
2458 $msg = "\"" . $name_non_exp_dir. "\"". " is not an experiment, but" .
2460 gp_message ("error", $subr_name, $msg);
2471 $msg = "the experiment list is missing from the options";
2472 gp_message ("error", $subr_name, $msg);
2491 $msg = "checking experiment directory $exp_dir";
2492 gp_message ("debug", $subr_name, $msg);
2496 $msg = "directory $exp_dir found";
2497 gp_message ("debug", $subr_name, $msg);
2503 $msg = "directory $exp_dir appears to be a valid experiment";
2504 $msg .= " directory";
2505 gp_message ("debug", $subr_name, $msg);
2510 $msg = "file " . $exp_dir . "/log.xml and/or " . $exp_dir;
2511 $msg .= "/map.xml missing";
2512 gp_message ("debug", $subr_name, $msg);
2514 $msg = "directory " . get_basename($exp_dir) . " does not";
2515 $msg .= " appear to be a valid experiment directory";
2516 gp_message ("error", $subr_name, $msg);
2524 $msg = "directory " . get_basename($exp_dir) . " does not exist";
2525 gp_message ("error", $subr_name, $msg);
2542 $msg = $plural_or_single . " not valid";
2557 $msg = "popped $poppy from ARGV";
2558 gp_message ("debug", $subr_name, $msg);
2560 $msg = "ARGV after update = " . join (" ", @ARGV);
2561 gp_message ("debug", $subr_name, $msg);
2593 my $msg;
2627 $msg = "g_exp_dir_meta_data{$exp_dir}{'archive_is_empty'} = ";
2628 $msg .= $g_exp_dir_meta_data{$exp_dir}{'archive_is_empty'};
2629 gp_message ("debug", $subr_name, $msg);
2631 $msg = "checking $archives_dir";
2632 gp_message ("debug", $subr_name, $msg);
2638 $msg = "processing file: $filename";
2639 gp_message ("debug", $subr_name, $msg);
2656 $msg = "last_dot = $last_dot";
2657 gp_message ("debugXL", $subr_name, $msg);
2668 $msg = "stripped archive name: " . $original_name;
2669 gp_message ("debug", $subr_name, $msg);
2681 $msg = "g_exp_dir_meta_data{$exp_dir}{'archive_is_empty'} = ";
2682 $msg .= $g_exp_dir_meta_data{$exp_dir}{"archive_is_empty"};
2684 gp_message ("debugXL", $subr_name, $msg);
2692 $msg = "archive directory " . $exp_dir . "/archives is";
2693 $msg .= " " . ($empty ? "empty" : "not empty");
2694 gp_message ("debug", $subr_name, $msg);
2707 $msg = "exp_dir = " . $exp_dir . " archives_dir = " . $archives_dir;
2708 gp_message ("debug", $subr_name, $msg);
2719 $msg = " - unable to open file $filename for reading:";
2721 or die ($subr_name . $msg . " " . $!);
2747 $msg = "the loadobjects in the archive in $exp_dir are";
2748 $msg .= ($g_exp_dir_meta_data{$exp_dir}{"archive_in_elf_format"}) ?
2750 $msg .= " ELF format";
2751 gp_message ("debug", $subr_name, $msg);
2757 $msg = "there are no archived files in " . $exp_dir;
2758 gp_message ("debug", $subr_name, $msg);
2778 $msg = "there are $count_exp_dir_not_elf experiments with non-ELF";
2779 $msg .= " load objects";
2780 gp_message ("debug", $subr_name, $msg);
2798 $msg = "exp_dir = " . $exp_dir;
2799 gp_message ("debugXL", $subr_name, $msg);
2800 $msg = "g_exp_dir_meta_data{$exp_dir}{'archive_is_empty'}";
2801 $msg .= " = " . $g_exp_dir_meta_data{$exp_dir}{"archive_is_empty"};
2802 gp_message ("debugXL", $subr_name, $msg);
2833 $msg = "experiment $selected_archive has been selected for";
2834 $msg .= " archive analysis";
2835 gp_message ("debug", $subr_name, $msg);
2836 $msg = "this archive is";
2837 $msg .= $archive_dir_not_empty ? " not empty" : " empty";
2838 gp_message ("debug", $subr_name, $msg);
2839 $msg = "this archive is";
2840 $msg .= $selected_archive_has_elf_format ? " in" : " not in";
2841 $msg .= " ELF format";
2842 gp_message ("debug", $subr_name, $msg);
2851 $msg = "number of files in archive $selected_archive is";
2852 $msg .= " " . $no_of_files_in_selected_archive;
2853 gp_message ("debug", $subr_name, $msg);
2858 $msg = "archive directory $exp_dir/archives is";
2859 $msg .= $is_empty ? " empty" : " not empty";
2860 gp_message ("debug", $subr_name, $msg);
2869 $msg = $exp_dir . " " . $object . " ";
2870 $msg .=
2872 gp_message ("debug", $subr_name, $msg);
2928 my $msg;
2948 $msg = "experiment_stats_line = " . $experiment_stats_line;
2949 gp_message ("debugXL", $subr_name, $msg);
2979 my $msg;
2992 $msg = "<i>\n";
2993 $msg .= "Output generated by the $driver_cmd command ";
2994 $msg .= "on $the_date ";
2995 $msg .= "(GNU binutils version " . $binutils_version . ")";
2996 $msg .= "\n";
2997 $msg .= "</i>";
3001 return (\$msg);
3080 my $msg = "i = $i html_table_line = $html_table_line";
3081 gp_message ("debugXL", $subr_name, $msg);
3105 my $msg;
3107 $msg = "entry_name = $entry_name key = $key";
3108 gp_message ("debugXL", $subr_name, $msg);
3123 $msg = "experiment_data[$i]{$key} does not exist";
3126 gp_message ("warning", $subr_name, $msg);
3148 my $msg;
3167 $msg = "html_header_line = " . $html_header_line;
3168 gp_message ("debugXL", $subr_name, $msg);
3184 my $msg;
3206 $msg = "directory $outputdir already exists";
3207 gp_message ("error", $subr_name, $msg);
3210 $msg = "use the -O/--overwrite option to overwrite an existing";
3211 $msg .= " directory";
3212 gp_message ("abort", $subr_name, $msg);
3226 $msg = "fatal error when trying to remove " . $outputdir;
3227 gp_message ("abort", $subr_name, $msg);
3231 $msg = "directory $outputdir has been removed";
3232 gp_message ("debug", $subr_name, $msg);
3242 $msg = "created output directory " . $outputdir;
3243 gp_message ("debug", $subr_name, $msg);
3247 $msg = "a fatal problem occurred when creating directory " . $outputdir;
3248 gp_message ("abort", $subr_name, $msg);
3268 my $msg;
3272 $msg = "base_va_executable = " . $base_va_executable;
3273 gp_message ("debugXL", $subr_name, $msg);
3274 $msg = "loadobj = " . $loadobj;
3275 gp_message ("debugXL", $subr_name, $msg);
3276 $msg = "routine = " . $routine;
3277 gp_message ("debugXL", $subr_name, $msg);
3300 $msg = "return base_va_address = $base_va_address";
3301 $msg .= " (decimal: $decimal_address)";
3302 gp_message ("debugXL", $subr_name, $msg);
3322 my $msg;
3339 $msg = "exp_dir = " . $exp_dir;
3340 gp_message ("debug", $subr_name, $msg);
3341 $msg = "full_path_exece = " . $full_path_exec;
3342 gp_message ("debug", $subr_name, $msg);
3343 $msg = "executable_name = " . $executable_name;
3344 gp_message ("debug", $subr_name, $msg);
3345 $msg = "va_executable_in_hex = " . $va_executable_in_hex;
3346 gp_message ("debug", $subr_name, $msg);
3367 my $msg;
3382 $msg = "failure to execute the command " . $target_cmd;
3383 gp_message ("error", $subr_name, $msg);
3407 $msg = "line from locale_info = " . $line;
3408 gp_message ("debug", $subr_name, $msg);
3431 $msg = "line $line matches the search, but the decimal";
3432 $msg .= " separator has the wrong format";
3433 gp_message ("warning", $subr_name, $msg);
3434 $msg = "the splitted line is [@split_line] and does not";
3435 $msg .= " contain 2 fields";
3436 gp_message ("warning", $subr_name, $msg);
3437 $msg = "the default decimal separator will be used";
3438 gp_message ("warning", $subr_name, $msg);
3447 $msg = "split_line[1] = " . $split_line[1];
3448 gp_message ("debug", $subr_name, $msg);
3460 $msg = "unexpected output from the $target_cmd command:";
3461 $msg .= " " . $field;
3462 gp_message ("error", $subr_name, $msg);
3470 $msg = "field = ->$field<-";
3471 gp_message ("debug", $subr_name, $msg);
3480 $msg = "decimal_separator = $decimal_separator--end";
3481 $msg .= " skip remainder of loop";
3482 gp_message ("debug", $subr_name, $msg);
3491 $msg = "cannot determine the decimal separator";
3492 $msg .= " - use the default " . $decimal_separator;
3493 gp_message ("warning", $subr_name, $msg);
3526 my $msg;
3528 $msg = "function_info for " . $name;
3529 gp_message ("debug", $subr_name, $msg);
3536 $msg = $kip . ": routine = " . ${$elm}{"routine"};
3537 gp_message ("debug", $subr_name, $msg);
3544 $msg = $kip . ": $key = " . ${$elm}{$key};
3545 gp_message ("debug", $subr_name, $msg);
3567 my $msg;
3575 $msg = $elf_arch . " is not a supported OS";
3576 gp_message ("error", $subr_name, $msg);
3610 $msg = "need to handle a return value of FALSE";
3611 gp_message ("error", $subr_name, $msg);
3641 my $msg;
3678 $msg = "masquerading arch_uname_s->$arch_uname_s elf_arch->$elf_arch";
3679 gp_message ("debug", $subr_name, $msg);
3737 my $msg;
3745 $msg = "elf_arch = $elf_arch loadobj = $loadobj routine = $routine";
3746 gp_message ("debug", $subr_name, $msg);
3750 $msg = "base = $base " . basename ($loadobj);
3751 gp_message ("debug", $subr_name, $msg);
3761 $msg = "masquerading arch_uname_s->" . $arch_uname_s;
3762 $msg .= " elf_arch->" . $elf_arch;
3763 gp_message ("debug", $subr_name, $msg);
3781 $msg = "executed command_string = " . $command_string;
3782 gp_message ("debug", $subr_name, $msg);
3783 $msg = "cmd_output = " . $cmd_output;
3784 gp_message ("debug", $subr_name, $msg);
3807 $msg = "call failure for " . $command_string;
3808 gp_message ("error", $subr_name, $msg);
3814 $msg = "executed command_string = " . $command_string;
3815 gp_message ("debug", $subr_name, $msg);
3816 $msg = "cmd_output = " . $cmd_output;
3817 gp_message ("debug", $subr_name, $msg);
3822 $msg = "elf_rats{$loadobjARC} does not exist";
3823 gp_message ("assertion", $subr_name, $msg);
3907 $msg = "single line version elf_offset = " . $elf_offset;
3908 gp_message ("debug", $subr_name, $msg);
3930 $msg = "two line version elf_offset = " . $elf_offset;
3931 gp_message ("debug", $subr_name, $msg);
3953 my $msg;
3963 $msg = "failure executing command " . $target_cmd;
3964 gp_message ("error", $subr_name, $msg);
3965 $msg = "error code = " . $error_code;
3966 gp_message ("error", $subr_name, $msg);
3967 $msg = "cmd_output = " . $cmd_output;
3969 gp_message ("error", $subr_name, $msg);
3974 $msg = "executed command " . $target_cmd;
3975 gp_message ("debugXL", $subr_name, $msg);
4003 my $msg;
4013 $msg = " - unable to open file $input_map_xml_file for reading:";
4015 or die ($subr_name . $msg . " " . $!);
4017 $msg = "opened file $input_map_xml_file for reading";
4018 gp_message ("debug", $subr_name, $msg);
4031 $msg = "read input_line = $input_line";
4032 gp_message ("debug", $subr_name, $msg);
4036 $msg = "target line = $input_line";
4037 gp_message ("debug", $subr_name, $msg);
4045 $msg = "extracted vaddr = $vaddr foffset = $foffset";
4046 $msg .= " modes = $modes";
4047 gp_message ("debug", $subr_name, $msg);
4049 $msg = "extracted name_path = $name_path name = $name";
4050 gp_message ("debug", $subr_name, $msg);
4065 $msg = "result_VA = $result_VA";
4066 gp_message ("debug", $subr_name, $msg);
4068 $msg = "va_executable_in_hex = $va_executable_in_hex";
4069 gp_message ("debug", $subr_name, $msg);
4084 $msg = "cannot find the necessary information in file";
4085 $msg .= " " . $input_map_xml_file;
4086 gp_message ("assertion", $subr_name, $msg);
4089 $msg = "full_path_exec = $full_path_exec";
4090 gp_message ("debug", $subr_name, $msg);
4091 $msg = "executable_name = $executable_name";
4092 gp_message ("debug", $subr_name, $msg);
4093 $msg = "va_executable_in_hex = $va_executable_in_hex";
4094 gp_message ("debug", $subr_name, $msg);
4194 my $msg;
4209 $msg = "option_name = $option_name";
4210 gp_message ("debug", $subr_name, $msg);
4211 $msg = "internal_option_name = $internal_option_name";
4212 gp_message ("debug", $subr_name, $msg);
4213 $msg = "no_of_occurrences = $no_of_occurrences";
4214 gp_message ("debug", $subr_name, $msg);
4224 $msg = "the number of fields is $no_of_occurrences";
4225 $msg .= " - should at least be 1";
4226 gp_message ("assertion", $subr_name, $msg);
4242 $msg = "enable special treatment of the option";
4243 gp_message ("debug", $subr_name, $msg);
4253 $msg = "multiple occurrences of the " . $option_name .
4256 gp_message ("debugM", $subr_name, $msg);
4258 gp_message ("warning", $subr_name, $g_html_new_line . $msg);
4297 $msg = "reset option value for $option_name from blank";
4298 $msg .= " to \"on\"";
4299 gp_message ("debug", $subr_name, $msg);
4313 $msg = "option_value = $option_value";
4314 gp_message ("debug", $subr_name, $msg);
4315 $msg = "after check_and_set_user_option: valid = $valid";
4316 $msg .= " option_value_missing = $option_value_missing";
4317 gp_message ("debug", $subr_name, $msg);
4327 $msg = "$option_name option - missing a value";
4337 $msg = "$option_name option - value = \"\"";
4341 $msg = "$option_name option - value = $option_value";
4343 $msg .= ($valid) ? " (valid value)" : " (invalid value)";
4346 gp_message ("debug", $subr_name, $msg);
4347 gp_message ("warning", $subr_name, $msg);
4358 $msg = "the $option_name option requires a value";
4362 $msg = "the value of $option_value for the $option_name";
4363 $msg .= " option is invalid";
4365 gp_message ("debug", $subr_name, $g_error_keyword . $msg);
4367 gp_message ("error", $subr_name, $msg);
4379 $msg = "all values but the last one shown above are ignored";
4381 gp_message ("debugM", $subr_name, $msg);
4382 gp_message ("warning", $subr_name, $msg);
4393 $msg = "<br>";
4394 $msg .= "the on/off syntax for option $option_name has been";
4395 $msg .= " deprecated";
4396 gp_message ("warning", $subr_name, $msg);
4398 $msg = "this option acts like a switch now";
4399 gp_message ("warning", $subr_name, $msg);
4401 $msg = "support for the old syntax may be terminated";
4402 $msg .= " in a future update";
4403 gp_message ("warning", $subr_name, $msg);
4405 $msg = "please check the man page of gp-display-html";
4406 $msg .= " for more details";
4407 gp_message ("warning", $subr_name, $msg);
4484 my $msg;
4510 $msg = "enabled autoflush for STDOUT";
4511 gp_message ("debug", $subr_name, $msg);
4577 my $msg = "index for $routine cannot be determined";
4578 gp_message ("assertion", $subr_name, $msg);
5207 my $msg = "unexpected line format in functions file $FUNC_FILE line->$line<-";
5208 gp_message ("assertion", $subr_name, $msg);
5293 my $msg;
5343 $msg = "building caller-callee file " . $outfile;
5344 gp_message ("debug", $subr_name, $msg);
5345 gp_message ("verbose", $subr_name, $msg);
5452 $msg = "loop over the caller-callee data - number of lines = ";
5453 $msg .= ($#caller_callee_data + 1);
5454 gp_message ("debugXL", $subr_name, $msg);
5461 $msg = "line = " . $line . " input_line = " . $input_line;
5462 gp_message ("debugXL", $subr_name, $msg);
5478 $msg = "RESULT full_hex_address = " . $hex_address;
5479 $msg .= " -- metric values = " . $list_with_metrics;
5480 $msg .= " -- marker = " . $marker;
5481 $msg .= " -- function name = " . $reduced_line;
5482 gp_message ("debugXL", $subr_name, $msg);
5511 $msg = "first metric found = " . $first_metric;
5512 gp_message ("debugXL", $subr_name, $msg);
5516 $msg = "fixed up $first_metric";
5517 gp_message ("debugXL", $subr_name, $msg);
5522 $msg = "first_metric = $first_metric " .
5524 gp_message ("debugXL", $subr_name, $msg);
5530 $msg = "the following function names have been found";
5531 gp_message ("debugM", $subr_name, $msg);
5534 $msg = "the_function_name{" . $i . "] = " . $the_function_name[$i];
5535 gp_message ("debugM", $subr_name, $msg);
5538 $msg = "final: g_max_length_first_metric = " . $g_max_length_first_metric;
5539 gp_message ("debugM", $subr_name, $msg);
5540 $msg = "\$#hex_addresses = " . $#hex_addresses;
5541 gp_message ("debugM", $subr_name, $msg);
5555 $msg = "line = " . $line . " encountered start of the header";
5556 $msg .= " scan_header = " . $scan_header . " first = " . $first;
5557 gp_message ("debugXL", $subr_name, $msg);
5562 $msg = "line = " . $line . " captured top level header: " .
5564 gp_message ("debugXL", $subr_name, $msg);
5575 $msg = "line = $line updated index_end = $index_end";
5576 gp_message ("debugXL", $subr_name, $msg);
5577 $msg = "line = $line input_line = " . $input_line;
5578 gp_message ("debugXL", $subr_name, $msg);
5579 $msg = "line = $line data_function_block = " . $data_function_block;
5580 gp_message ("debugXL", $subr_name, $msg);
5592 $msg = "new block";
5593 gp_message ("debugXL", $subr_name, $msg);
5594 $msg = "line = " . $line . " index_start = " . $index_start;
5595 gp_message ("debugXL", $subr_name, $msg);
5596 $msg = "line = " . $line . " index_end = " . $index_end;
5597 gp_message ("debugXL", $subr_name, $msg);
5599 $msg = "line = " . $line . " data_function_block = ";
5600 $msg .= $data_function_block;
5601 gp_message ("debugXL", $subr_name, $msg);
5629 $msg = "final html_code_function_block[" . $lines . "] = " .
5631 gp_message ("debugXL", $subr_name, $msg);
5642 $msg = "line = " . $line . " reset index_start = " . $index_start;
5643 gp_message ("debugXL", $subr_name, $msg);
5644 $msg = "line = " . $line . " reset index_end = " . $index_end;
5645 gp_message ("debugXL", $subr_name, $msg);
5697 my $msg = "entries[" . $k . "] = ". $entries[$k];
5698 gp_message ("debugXL", $subr_name, $k . $msg);
5705 $msg = "Parse and process function blocks - total blocks = ";
5706 $msg .= $#function_blocks + 1;
5707 gp_message ("verbose", $subr_name, $msg);
5711 $msg = "process function block " . $i;
5712 gp_message ("debugXL", $subr_name, $msg);
5714 $msg = "function_blocks[" . $i . "] = ". $function_blocks[$i];
5715 gp_message ("debugXL", $subr_name, $msg);
5733 $msg = "input_line = entries[" . $k . "] = ". $entries[$k];
5734 gp_message ("debugXL", $subr_name, $msg);
5745 $msg = "RESULT full_hex_address = " . $full_hex_address;
5746 $msg .= " -- metric values = " . $all_metrics;
5747 $msg .= " -- marker = " . $marker_target_function;
5748 $msg .= " -- function name = " . $routine;
5749 gp_message ("debugXL", $subr_name, $msg);
5762 $msg = "pushed " . $full_hex_address;
5763 $msg .= " to array address_field";
5764 gp_message ("debugXL", $subr_name, $msg);
5770 $msg = "pushed " . $all_metrics . " to array metric_values";
5771 gp_message ("debugXL", $subr_name, $msg);
5774 $msg = "pushed " . $routine . " to array function_names";
5775 gp_message ("debugXL", $subr_name, $msg);
5779 $msg = "total_header_lines = " . $total_header_lines;
5780 gp_message ("debugXL", $subr_name, $msg);
5789 $msg = $metric_values[$i] . " " . $marker[$i];
5790 $msg .= $function_names[$i] . " (" . $address_field[$i] . ")";
5791 gp_message ("debugXL", $subr_name, $msg);
5797 $msg = "check for multiple occurrences - function_names = ";
5798 $msg .= ($#function_names + 1);
5799 gp_message ("debugXL", $subr_name, $msg);
5821 $msg = $routine . ": occurrences = ";
5822 $msg .= $g_function_occurrences{$routine};
5823 gp_message ("debugXL", $subr_name, $msg);
5829 $msg = $routine . ": retrieving duplicate entry at ";
5830 $msg .= "ref_index = " . $ref_index;
5831 gp_message ("debugXL", $subr_name, $msg);
5832 $msg = $routine . ": function_info[" . $ref_index;
5833 $msg .= "]{alt_name} = ";
5834 $msg .= $function_info[$ref_index]{'alt_name'};
5835 gp_message ("debugXL", $subr_name, $msg);
5838 $msg = $routine . ": addr_offset = " . $addr_offset;
5839 gp_message ("debugXL", $subr_name, $msg);
5842 $msg = $routine . ": addr_offset = " . $addr_offset;
5843 gp_message ("debugXL", $subr_name, $msg);
5851 $msg = $function_info[$ref_index]{'alt_name'};
5852 $msg .= " is the actual function for i = " . $i . " ";
5853 $msg .= $found_a_match;
5854 gp_message ("debugXL", $subr_name, $msg);
5860 $msg = "completed the check for multiple occurrences";
5861 gp_message ("debugXL", $subr_name, $msg);
5877 $msg = "i = " . $i . " " . $word_index_values[$i][0] . " ";
5878 $msg .= $word_index_values[$i][1];
5879 gp_message ("debugXL", $subr_name, $msg);
5890 $msg = "erased contents of arrays function_names, metric_values, ";
5891 $msg .= "address_field, and marker";
5892 gp_message ("debugXL", $subr_name, $msg);
5928 $msg = "the caller-callee information has been generated";
5929 gp_message ("verbose", $subr_name, $msg);
6146 my $msg = "$input_line has an unexpected format";
6147 gp_message ("assertion", $subr_name, $msg);
6166 my $msg;
6167 $msg = "first_metric = $first_metric " .
6169 gp_message ("debugXL", $subr_name, $msg);
6177 my $msg;
6178 $msg = "found an instruction with a source line ref:";
6179 $msg .= " source_line[$line_no] = $source_line[$line_no]";
6180 gp_message ("debugXL", $subr_name, $msg);
6308 my $msg = " modified_html[$line_no] = $modified_html[$line_no]";
6309 gp_message ("debugXL", $subr_name, $msg);
6362 my $msg = "$filename row[" . $row . "] =";
6365 $msg .= " $hot_program_counters[$row][$col]";
6368 gp_message ("debugXL", $subr_name, "hot PC = $msg");
6372 my $msg = "$filename row[" . $row . "] =";
6375 $msg .= " $transposed_hot_pc[$row][$col]";
6377 gp_message ("debugXL", $subr_name, "$filename transposed = $msg");
6400 my $msg = "$filename maximum[$metric] = $max_metric_values[$metric]";
6401 gp_message ("debugM", $subr_name, $msg);
6466 my $msg;
6467 $msg = "$filename $func dec_instruction_start = " .
6469 gp_message ("debugXL", $subr_name, $msg);
6470 $msg = "$filename $func dec_instruction_end = " .
6472 gp_message ("debugXL", $subr_name, $msg);
6498 my $msg = "disassembly line: $1 $2 $3 $4 $5";
6501 $msg .= " \$6 = $6";
6506 gp_message ("debugXL", $subr_name, $msg);
6760 my $msg = "parsing line $input_line";
6761 gp_message ("assertion", $subr_name, $msg);
6791 my $msg = "parsing line $input_line";
6792 gp_message ("assertion", $subr_name, $msg);
6829 my $msg = "parsing line $input_line";
6830 gp_message ("assertion", $subr_name, $msg);
6906 my $msg;
7148 $msg = "line = " . $line . " input_line = " . $input_line;
7149 gp_message ("debugXL", $subr_name, $msg);
7231 my $msg;
7296 my $msg = "function_info[$i]{\"alt_name\"} is not defined";
7297 gp_message ("assertion", $subr_name, $msg);
7490 my $msg = "which_side = $which_side not supported";
7491 gp_message ("assertion", $subr_name, $msg);
7603 my $msg = "padding spaces = $spaces the_metrics[$k] = $the_metrics[$k]";
7604 gp_message ("debugXL", $subr_name, $msg);
7971 my $msg;
8062 $msg = "remainder = $remainder has an unexpected format";
8063 gp_message ("assertion", $subr_name, $msg);
8101 $msg = "executing $GP_DISPLAY_TEXT to get the experiment details";
8102 gp_message ("debug", $subr_name, $msg);
8206 my $msg;
8230 $msg = " - unable to open file $FSUMMARY_FILE for reading:";
8232 or die ($subr_name . $msg . " " . $!);
8233 $msg = "opened file $FSUMMARY_FILE for reading";
8234 gp_message ("debug", $subr_name, $msg);
8301 $msg = "line = " . $line;
8302 gp_message ("debugXL", $subr_name, $msg);
8369 $msg = "g_function_occurrences{$routine} = ";
8370 $msg .= $g_function_occurrences{$routine};
8371 gp_message ("debugXL", $subr_name, $msg);
8433 $msg = "initial - field = " . $field . " value = " . $value;
8434 gp_message ("debugM", $subr_name, $msg);
8438 $msg = "the input line pattern was not recognized";
8439 gp_message ("warning", $subr_name, $msg);
8440 gp_message ("debug", $subr_name, $msg);
8441 $msg = "execution continues, but there may be a problem later";
8442 gp_message ("warning", $subr_name, $msg);
8443 gp_message ("debug", $subr_name, $msg);
8460 $msg = "no mangled name found - use the routine name ";
8461 $msg .= $routine . " as the mangled name";
8462 gp_message ("debugM", $subr_name, $msg);
8468 $msg = "no value was found for this field - set to ";
8469 $msg .= $value;
8470 gp_message ("debugM", $subr_name, $msg);
8480 $msg = "final - field = " . $field . " value = " . $value;
8481 gp_message ("debugM", $subr_name, $msg);
8600 $msg = "function_address_and_index{$routine}{$value} = ";
8601 $msg .= $function_address_and_index{$routine}{$value};
8602 gp_message ("debugXL", $subr_name, $msg);
8606 $msg = "function_info: $FSUMMARY_FILE: function $routine";
8607 $msg .= " already has a PC Address";
8608 gp_message ("debugXL", $subr_name, $msg);
8679 … my $msg = "failed to extract the address offset from $address_field - use the full field";
8680 gp_message ("warning", $subr_name, $msg);
8742 my $msg = "function_info[$i]{\"alt_name\"} is not defined";
8743 gp_message ("assertion", $subr_name, $msg);
8784 my $msg = "g_function_occurrences{$base_function_name} does not exist";
8785 gp_message ("assertion", $subr_name, $msg);
8804 $msg = "target_function = $target_function html_line = $html_line";
8805 gp_message ("debugM", $subr_name, $msg);
8816 $msg = "html_source_functions{$i} = $html_source_functions{$i}";
8817 gp_message ("debugM", $subr_name, $msg);
8821 $msg = "function_info[$i]{\"html function block\"} = ";
8822 $msg .= $function_info[$i]{"html function block"};
8823 gp_message ("debugM", $subr_name, $msg);
8833 $msg = "on return: function_info[$i]{$role} = ";
8834 $msg .= $function_info[$i]{$role};
8835 gp_message ("debugM", $subr_name, $msg);
8845 $msg = "on return: function_address_and_index{$F}{$fields} = ";
8846 $msg .= $function_address_and_index{$F}{$fields};
8847 gp_message ("debugM", $subr_name, $msg);
8901 $msg = "Number of source files : " .
8903 gp_message ("debug", $subr_name, $msg);
8904 $msg = "Total number of functions : " .
8906 gp_message ("debug", $subr_name, $msg);
8907 $msg = "Number of functions with a unique name : " .
8909 gp_message ("debug", $subr_name, $msg);
8910 $msg = "Number of functions with more than one occurrence : " .
8912 gp_message ("debug", $subr_name, $msg);
8915 $msg = "Total number of multiple occurences of the same function name : " .
8917 gp_message ("debug", $subr_name, $msg);
9074 my $msg = "cannot find a setting for HOME - please set this";
9075 gp_message ("assertion", $subr_name, $msg);
9135 my $msg = "there are $number_of_elements in the metrics list";
9136 gp_message ("assertion", $subr_name, $msg);
9187 my $msg = "error code = $error_code - failure executing command $gp_display_text_cmd";
9188 gp_message ("abort", $subr_name, $msg);
9213 my $msg;
9219 $msg = "check for multiple occurrences";
9220 gp_message ("debugM", $subr_name, $msg);
9221 $msg = "target routine name = " . $routine;
9222 gp_message ("debugM", $subr_name, $msg);
9241 my $msg = "no entry for $routine in g_map_function_to_index";
9242 gp_message ("assertion", $subr_name, $msg);
9279 my $msg = "cannot find the mapping in function_info for function $routine";
9280 gp_message ("assertion", $subr_name, $msg);
9323 my $msg = "cannot find a setting for LANG - use a default setting";
9324 gp_message ("warning", $subr_name, $msg);
9461 my $msg;
9513 $msg = "the $machine instruction set architecture is not supported";
9514 gp_message ("error", $subr_name, $msg);
9515 gp_message ("diag", $subr_name, "Error: " . $msg);
9517 $msg = "temporarily ignored for development purposes";
9518 gp_message ("error", $subr_name, $msg);
9592 my $msg;
9655 $msg = $comment_line;
9656 $msg =~ s/$g_html_new_line//;
9657 $comment_line = $g_html_new_line . ucfirst ($msg);
9678 $msg = $comment_line;
9679 $msg =~ s/$g_html_new_line//;
9680 $comment_line = $g_html_new_line . ucfirst ($msg);
10318 my $msg;
10329 $msg = "filename = $filename not found";
10330 gp_message ("debug", $subr_name, $msg);
10340 $msg = "filename = $filename size = $size is_empty = $is_empty";
10341 gp_message ("debug", $subr_name, $msg);
10414 my $msg = "unexpected number of $number_of_bytes bytes " .
10416 gp_message ("assertion", $subr_name, $msg);
10430 my $msg = "permission_values{" . $k . "} = " .
10432 gp_message ("debugXL", $subr_name, $msg);
10457 my $msg;
10459 $msg = "error code = $error_code - failure executing the following command:";
10460 gp_message ("error", $subr_name, $msg);
10464 $msg = "check file $error_file for more details";
10465 gp_message ("error", $subr_name, $msg);
10836 my $msg;
11104 $msg = "the original command line options: " . join (", ", @CopyOfARGV);
11105 gp_message ("debug", $subr_name, $msg);
11107 $msg = "the command line options after the special options: " .
11109 gp_message ("debug", $subr_name, $msg);
11197 $msg = "the following experiment directories will be used:";
11198 gp_message ("debug", $subr_name, $msg);
11201 my $msg = "exp_dir_list[$i] = $exp_dir_list[$i]";
11202 gp_message ("debug", $subr_name, $msg);
11211 $msg = "experiment directory name(s) are either not valid, or missing";
11212 gp_message ("debug", $subr_name, $msg);
11245 my $msg;
11281 my $msg = "no function tag found for $target_function";
11282 gp_message ("assertion", $subr_name, $msg);
11317 $msg = "metric_ref after generate_dis_html is undefined";
11318 gp_message ("debug", $subr_name, $msg);
11461 my $msg;
11463 $msg = "The command line options (shown for ease of reference): ";
11464 printf ("%-9s %s\n", $identifier, ucfirst ($msg));
11466 $msg = join (", ", @CopyOfARGV);
11467 printf ("%-9s %s\n", $identifier, $msg);
11485 my $msg;
11510 $msg = "a total of " . $g_total_error_count;
11511 $msg .= " fatal " . $plural_or_single . " been detected:";
11512 printf ("%-9s %s\n", $identifier, ucfirst ($msg));
11516 $msg = $g_error_msgs[$key];
11517 printf ("%-11s %s\n", $identifier, ucfirst ($msg));
11764 my $msg = $struct_type_name."{$metric}[$fields]{$elems} = ";
11765 $msg .= $target_structure[$fields]{$elems};
11766 gp_message ("debugXL", $subr_name, $msg);
11812 my $msg = "sub-structure type '$sub_struct_type' is not supported";
11813 gp_message ("assertion", $subr_name, $msg);
11835 my $msg;
11853 $msg = "start $tool_name, generating directory $outputdir from $dir_list";
11855 gp_message ("verbose", $subr_name, $msg);
11859 $msg = "Handle at least ";
11863 $msg = "Handle ";
11866 $msg .= ($time_percentage_multiplier*100.0)."% of the time";
11868 gp_message ("verbose", $subr_name, $msg);
12081 my $msg;
12094 $msg = $g_warning_msgs[$i];
12095 if ($msg =~ /^$g_html_new_line/)
12097 $msg =~ s/$g_html_new_line//;
12100 printf ("%-9s %s\n", $g_warn_keyword, ucfirst ($msg));
12291 my $msg = "exp_id = $exp_id name = $exp_name file = $exp_data_file";
12292 gp_message ("debug", $subr_name, $msg);
12307 my $msg = "exp_id = $exp_id: input_line = $input_line";
12308 gp_message ("debugM", $subr_name, $msg);
12396 my $msg = "exp_id = $exp_id => sleep_time = $sleep_time " .
12398 gp_message ("debugM", $subr_name, $msg);
12407 my $msg = "experiment_data[$keys]{$fields} = " .
12409 gp_message ("debugM", $subr_name, $msg);
12850 my $msg;
12881 $msg = "enter subroutine " . $subr_name;
12882 gp_message ("debug", $subr_name, $msg);
12959 $msg = "remaining_part_header = $remaining_part_header";
12960 gp_message ("debugXL", $subr_name, $msg);
13006 $msg = "detected a line with function data";
13007 gp_message ("debugXL", $subr_name, $msg);
13018 $msg = "RESULT full_hex_address = " . $full_hex_address;
13019 $msg .= " -- metric values = " . $all_metrics;
13020 $msg .= " -- marker = " . $marker;
13021 $msg .= " -- function name = " . $routine;
13022 gp_message ("debugXL", $subr_name, $msg);
13029 $msg = "no_of_fields = " . $no_of_fields;
13030 $msg .= " elements_in_name = " . $elements_in_name;
13031 gp_message ("debugXL", $subr_name, $msg);
13061 $msg = "verify full_hex_address = " . $full_hex_address;
13062 gp_message ("debugXL", $subr_name, $msg);
13070 $msg = "full_hex_address = $full_hex_address has the wrong format";
13071 gp_message ("assertion", $subr_name, $msg);
13076 $msg = "pushed full_hex_address = " . $full_hex_address;
13077 gp_message ("debugXL", $subr_name, $msg);
13115 $msg = "address_field[" . $i ."] = " . $address_field[$i];
13116 gp_message ("debugM", $subr_name, $msg);
13132 my $msg;
13135 $msg = "on entry - routine = " . $routine;
13136 $msg .= " current_address = " . $current_address;
13137 gp_message ("debugM", $subr_name, $msg);
13146 $msg = "$g_multi_count_function{$routine} exists";
13147 gp_message ("debugXL", $subr_name, $msg);
13148 $msg = "g_function_occurrences{$routine} = ";
13149 $msg .= $g_function_occurrences{$routine};
13150 gp_message ("debugXL", $subr_name, $msg);
13198 $msg = "cannot find the index for $routine: found_a_match = ";
13199 $msg .= ($found_a_match == $TRUE) ? "TRUE" : "FALSE";
13200 gp_message ("assertion", $subr_name, $msg);
13297 $msg = "keyword $target_keyword not found in $remaining_part_header";
13298 gp_message ("assertion", $subr_name, $msg);
13425 $msg = "function_view_array[$i] = $function_view_array[$i]";
13426 gp_message ("debugXL", $subr_name, $msg);
13435 $msg = "leave subroutine " . $subr_name;
13436 gp_message ("debug", $subr_name, $msg);
13549 my $msg;
13558 $msg = "g_user_settings{default_metrics}{current_value} = ";
13559 $msg .= $g_user_settings{"default_metrics"}{"current_value"};
13560 gp_message ("debug", $subr_name, $msg);
13671 $msg = "metrictotals odd line rescued '$metric'=$value";
13672 gp_message ("debug", $subr_name, $msg);
14053 my $msg;
14076 my $msg = "search path list is empty";
14077 gp_message ("assertion", $subr_name, $msg);
14083 $msg = "number_of_paths = $number_of_paths rc_file_paths = @rc_file_paths";
14084 gp_message ("debug", $subr_name, $msg);
14090 $msg = "looking for configuration file " . $rc_config_file;
14091 gp_message ("debug", $subr_name, $msg);
14094 $msg = "found configuration file " . $rc_config_file;
14095 gp_message ("debug", $subr_name, $msg);
14106 $msg = "configuration file $rc_file_name not found";
14107 gp_message ("verbose", $subr_name, $msg);
14112 $msg = "unable to open file $rc_config_file for reading:";
14114 or die ($subr_name . " - " . $msg . " " . $!);
14118 $msg = "file $rc_config_file has been opened for reading";
14119 gp_message ("debug", $subr_name, $msg);
14122 $msg = "found configuration file $rc_config_file";
14123 gp_message ("verbose", $subr_name, $msg);
14124 $msg = "processing configuration file " . $rc_config_file;
14125 gp_message ("debug", $subr_name, $msg);
14193 $msg = "non-supported character(s) (\&,\^,\*,\@,\$) found: $line";
14194 $error_and_warning_msgs{"error"}{$line_number}{"message"} = $msg;
14213 $msg = "number of fields = " . $number_of_fields;
14214 gp_message ("debug", $subr_name, $msg);
14223 $msg = "more than 2 fields found: $first_part";
14224 $error_and_warning_msgs{"error"}{$line_number}{"message"} = $msg;
14239 $msg = "[line $line_number] $rc_config_file -";
14240 $msg .= " number of fields = $number_of_fields";
14241 gp_message ("assertion", $subr_name, $msg);
14254 $msg = "option $rc_keyword previously set at line";
14255 $msg .= " $prev_line_number: new value '$rc_value'";
14256 $msg .= " ' overrides '$prev_value'";
14260 $msg = "option $rc_keyword previously set to the same value";
14261 $msg .= " at line $prev_line_number";
14263 $error_and_warning_msgs{"warning"}{$line_number}{"message"} = $msg;
14285 $msg = "keyword = " . $keyword . " value = " . $key_value;
14286 gp_message ("debug", $subr_name, $msg);
14293 $msg = "before config file: $rc_keyword $fields =";
14294 $msg .= " " . $g_user_settings{$rc_keyword}{$fields};
14295 gp_message ("debug", $subr_name, $msg);
14345 $msg = "input value '$input_value' for keyword";
14346 $msg .= " $rc_keyword is not valid";
14348 = $msg;
14359 $msg = "missing value for keyword '$rc_keyword'";
14361 = $msg;
14380 my $msg = "cannot handle $no_of_arguments in the input";
14381 gp_message ("assertion", $subr_name, $msg);
14391 $msg = "keyword $rc_keyword is not supported";
14392 $error_and_warning_msgs{"error"}{$line_number}{"message"} = $msg;
14399 $msg = "after config file: $rc_keyword $fields =";
14400 $msg .= " " . $g_user_settings{$rc_keyword}{$fields};
14401 gp_message ("debug", $subr_name, $msg);
14408 $msg = "successfully parsed and processed the configuration file";
14409 gp_message ("verbose", $subr_name, $msg);
14416 $msg = $g_error_keyword . "found $parse_errors fatal";
14417 $msg .= " " . $plural_or_single . " in the configuration file:";
14418 gp_message ("debug", $subr_name, $msg);
14426 $msg = $g_error_keyword . "[line $line_no] in file";
14427 $msg .= $rc_config_file . " - ";
14428 $msg .= $error_and_warning_msgs{"error"}{$line_no}{"message"};
14429 gp_message ("debug", $subr_name, $msg);
14437 $msg = $g_warn_keyword . " found $parse_warnings warnings in";
14438 $msg .= " the configuration file:";
14439 gp_message ("debug", $subr_name, $msg);
14443 $msg = $g_warn_keyword;
14444 $msg .= " [line $line_no] in file $rc_config_file - ";
14445 $msg .= $error_and_warning_msgs{"warning"}{$line_no}{"message"};
14446 gp_message ("debug", $subr_name, $msg);
14530 my $msg;
14577 my $msg = "cannot retrieve routine name for file_id = $file_id";
14578 gp_message ("assertion", $subr_name, $msg);
14713 my $msg = "found a function - name = $func_name_in_src_file";
14714 gp_message ("debugXL", $subr_name, $msg);
14720 my $msg = "end_target_source = $end_target_source";
14721 gp_message ("debugXL", $subr_name, $msg);
14739 my $msg = "parsing line $input_line";
14740 gp_message ("assertion", $subr_name, $msg);
14752 my $msg;
14754 $msg = "target function $routine not found in $base - " .
14756 gp_message ("debug", $subr_name, $msg);
14757 gp_message ("warning", $subr_name, $msg);
14814 my $msg = "row[" . $row . "] =";
14817 $msg .= " $hot_source_lines[$row][$col]";
14828 my $msg = "row[" . $row . "] =";
14831 $msg .= " $transposed_hot_lines[$row][$col]";
14833 gp_message ("debugXL", $subr_name, "hot lines = $msg");
14858 my $msg = "$input_filename max_metric_values[$metric] = " .
14860 gp_message ("debugXL", $subr_name, $msg);
15021 my $msg = "no ftag found for $target_function";
15022 gp_message ("assertion", $subr_name, $msg);
15119 my $msg;
15139 $msg = "the -o/--output and -O/--overwrite options are both set, " .
15141 gp_message ("error", $subr_name, $msg);
15143 $msg = "(setting for -o = $dir_o_option, " .
15145 gp_message ("error", $subr_name, $msg);
15160 $msg = "<br>" . "the --warnings option has been deprecated and";
15161 $msg .= " will be ignored";
15162 gp_message ("warning", $subr_name, $msg);
15166 $msg = "since the --nowarnings option is also used, warnings";
15167 $msg .= " are disabled";
15168 gp_message ("warning", $subr_name, $msg);
15172 $msg = "by default, warnings are enabled and can be disabled with";
15173 gp_message ("warning", $subr_name, $msg);
15174 $msg = " the --nowarnings option";
15175 gp_message ("warning", $subr_name, $msg);
15186 $msg = "<br>" . "the -hp option has been deprecated and";
15187 $msg .= " will be ignored";
15188 gp_message ("warning", $subr_name, $msg);
15192 $msg = "since the --highlight-percentage option is also used,";
15193 $msg .= " the value of ";
15194 $msg .= $g_user_settings{"highlight_percentage"}{"current_value"};
15195 $msg .= " will be applied";
15196 gp_message ("warning", $subr_name, $msg);
15218 $msg = "for now, the value of " .
15222 gp_message ("warning", $subr_name, $msg);
15241 $msg = "the value for the highlight percentage is set to $hp_value,";
15242 $msg .= " but must be in the range [0, 100]";
15243 gp_message ("error", $subr_name, $msg);
15255 $msg = "reset the highlight percentage value from 0.0 to";
15256 $msg .= " " . $g_user_settings{"highlight_percentage"}{"current_value"};
15257 gp_message ("debug", $subr_name, $msg);
15268 $msg = "the value for the total percentage is set to $tp_value,";
15269 $msg .= " but must be in the range (0, 100]";
15270 gp_message ("error", $subr_name, $msg);
15289 $msg = "value of time_percentage_multiplier = " .
15291 gp_message ("debugM", $subr_name, $msg);
15292 $msg = "value of process_all_functions = " .
15294 gp_message ("debugM", $subr_name, $msg);
15315 my $msg = "ignored_metrics{$metric} = $ignored_metrics{$metric}";
15316 gp_message ("debugM", $subr_name, $msg);
15330 $msg = "directory $exp_dir_list[$i] exists";
15331 gp_message ("debugM", $subr_name, $msg);
15358 my $msg;
15366 $msg = "removed any occurrence of " . $redundant_string;
15367 gp_message ("debugM", $subr_name, $msg);
15421 my $msg = "metric $metric_name has an unknown format";
15422 gp_message ("assertion", $subr_name, $msg);
15431 my $msg = "description for normalized metric $normalized_metric not found";
15432 gp_message ("assertion", $subr_name, $msg);
15533 my $msg;
15535 $msg = "color = $color input_string = $input_string";
15536 gp_message ("debugXL", $subr_name, $msg);
15541 $msg = "color = $color background_color_string = " .
15543 gp_message ("debugXL", $subr_name, $msg);
15803 my $msg;
15834 $msg = "unexpected error encountered parsing $filename";
15835 gp_message ("assertion", $subr_name, $msg);
15850 $msg = "unexpected error encountered parsing $filename";
15851 gp_message ("assertion", $subr_name, $msg);
15858 $msg = "called from unknown routine - $from_where";
15859 gp_message ("assertion", $subr_name, $msg);
15900 $msg = "unable to open disassembly file $filename for reading:";
15902 or die ($subr_name . " - " . $msg . " " . $!);
15915 $msg = "file $filename is empty";
15916 gp_message ("debugM", $subr_name, $msg);
15965 my $msg;
16004 $msg = "the target output directory is $outputdir";
16005 gp_message ("debug", $subr_name, $msg);
16014 $msg = "directory $outputdir already exists";
16015 gp_message ("error", $subr_name, $msg);
16016 $msg = "use the -O/--overwite option to overwrite an";
16017 $msg .= " existing directory";
16018 gp_message ("error", $subr_name, $msg);
16035 $msg = "it is not allowed to use * as a value for the -O option";
16036 gp_message ("error", $subr_name, $msg);
16053 $msg = "fatal error when trying to remove $outputdir";
16055 gp_message ("error", $subr_name, $msg);
16063 $msg = "directory $outputdir has been removed";
16064 gp_message ("debug", $subr_name, $msg);
16080 $msg = "a fatal problem occurred when creating directory $outputdir";
16082 gp_message ("error", $subr_name, $msg);
16090 $msg = "created output directory $outputdir";
16091 gp_message ("debug", $subr_name, $msg);
16118 my $msg;
16143 $msg = "full_hex_address = " . $full_hex_address;
16144 gp_message ("debugXL", $subr_name, $msg);
16145 $msg = "reduced_line = " . $reduced_line;
16146 gp_message ("debugXL", $subr_name, $msg);
16151 $msg = "remainder = " . $remainder;
16152 gp_message ("debugXL", $subr_name, $msg);
16160 $msg = "before list_with_metrics = " . $list_with_metrics;
16161 gp_message ("debugXL", $subr_name, $msg);
16164 $msg = "after list_with_metrics = " . $list_with_metrics;
16165 gp_message ("debugXL", $subr_name, $msg);
16173 $msg = "length remainder = " . $length_remainder;
16174 gp_message ("debugXL", $subr_name, $msg);
16176 $msg = "length list_with_metrics = " . $length_metric_list;
16177 gp_message ("debugXL", $subr_name, $msg);
16184 $msg = "new function_name = " . $function_name;
16185 gp_message ("debugXL", $subr_name, $msg);
16190 $msg = "reduced_line = " . $reduced_line;
16191 gp_message ("debugXL", $subr_name, $msg);
16203 $msg = "found the marker = " . $marker;
16204 gp_message ("debugXL", $subr_name, $msg);
16208 $msg = "first character in " . $reduced_line ;
16209 $msg .= " is not expected";
16210 gp_message ("assertion", $subr_name, $msg);
16220 $msg = "failure to find metric values following the ";
16221 $msg .= "function name";
16222 gp_message ("assertion", $subr_name, $msg);
16227 $msg = "cannot find metric values in remainder";
16228 gp_message ("debugXL", $subr_name, $msg);
16229 gp_message ("assertion", $subr_name, $msg);
16243 $msg = "pushed full_hex_address = " . $full_hex_address;
16244 gp_message ("debugXL", $subr_name, $msg);
16249 $msg = "full_hex_address = $full_hex_address has an unknown format";
16250 gp_message ("assertion", $subr_name, $msg);
16263 $msg = "RESULT full_hex_address = " . $full_hex_address;
16264 $msg .= " -- metric values = " . $list_with_metrics;
16265 $msg .= " -- marker = " . $marker;
16266 $msg .= " -- function name = " . $reduced_line;
16267 gp_message ("debugXL", $subr_name, $msg);
16288 my $msg;
16310 $msg = "target_name = $target_name is already defined: ";
16311 $msg .= $g_tagged_names{$target_name};
16312 gp_message ("debug", $subr_name, $msg);
16314 $msg = "target_name on return = $target_name";
16315 gp_message ("debug", $subr_name, $msg);
16325 $msg = "target_name = $target_name is new and added: ";
16326 $msg .= "g_tagged_names{$target_name} = $g_tagged_names{$target_name}";
16327 gp_message ("debug", $subr_name, $msg);
16329 $msg = "target_name on return = $target_name";
16330 gp_message ("debug", $subr_name, $msg);
16368 my $msg;
16387 $msg = "ref_executable_name = " . $ref_executable_name;
16388 gp_message ("debug", $subr_name, $msg);
16393 $msg = "full_path_executable_name = " . $full_path_executable_name;
16394 gp_message ("debug", $subr_name, $msg);
16399 $msg = $full_path_executable_name . " does not match";
16400 $msg .= " " . $ref_executable_name;
16401 gp_message ("debug", $subr_name, $msg);
16422 my $msg;
16572 $msg = "the $data_type data type for input $input_item is not supported";
16573 gp_message ("assertion", $subr_name, $msg);
16598 my $msg;
16603 $msg = "items in ARGV: " . join (" ", @ARGV);
16604 gp_message ("debugXL", $subr_name, $msg);
16611 $msg = "ARGV[$i] = $current_option";
16623 gp_message ("debugXL", $subr_name, $msg . " (option delimiter)");
16632 gp_message ("debugXL", $subr_name, $msg . " (ignored)");
16641 gp_message ("debugXL", $subr_name, $msg . " (unsupported)");
16648 gp_message ("debugXL", $subr_name, $msg .
16659 $msg = "the following input is out of place:";
16662 $msg .= " " . $opt_ignored[$i];
16664 gp_message ("error", $subr_name, $msg);
16670 $msg = "the following items in the input are not supported:";
16673 $msg .= " " . $opt_unsupported[$i];
16675 gp_message ("error", $subr_name, $msg);
16677 $msg = "perhaps an error in the option name, or an option value";
16678 $msg .= " is missing?";
16679 gp_message ("error", $subr_name, $msg);