sim/igen/compare_igen_models

   1 #!/bin/sh
   2
   3 # Script to compare functions and instructions used by different igen models.
   4 # Copyright (C) 2002-2021 Free Software Foundation, Inc.
   5 # Contributed by Chris Demetriou of Broadcom Corporation (SiByte).
   6 #
   7 # This file is part of GDB, the GNU debugger.
   8 #
   9 # This program is free software; you can redistribute it and/or modify
  10 # it under the terms of the GNU General Public License as published by
  11 # the Free Software Foundation; either version 3 of the License, or
  12 # (at your option) any later version.
  13 #
  14 # This program is distributed in the hope that it will be useful,
  15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 # GNU General Public License for more details.
  18 #
  19 # You should have received a copy of the GNU General Public License
  20 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 # This is a simple-minded script to compare the functions and instructions
  23 # listed for two different models in one or more .igen files.
  24 #
  25 # It was intended to be useful to help factor models into common subsets.
  26 #
  27 # Things to note:
  28 #
  29 #    * igen include directives are not processed!
  30 #
  31 #    * functions and instructions with multiple definitions (e.g., based
  32 #      on model names) are treated as being different.  In other words,
  33 #      if two models have different functions named 'foo', this
  34 #      script will say that one has one of the function definitions, and
  35 #      the other has the other.
  36
  37 if [ "$#" -lt 2 ]; then
  38         echo "usage: $0 model1 model2 [file ...]" 1>&2
  39         exit 1
  40 fi
  41 model1="$1"
  42 model2="$2"
  43 shift; shift
  44
  45 gawk -v model1="$model1" -v model2="$model2" -F: -- '
  46 BEGIN {
  47         thang_count = 0
  48 }
  49 function thang_has_model(t, m) {
  50 #       printf("thang_has_model(%s, %s) (@ %s:%d)\n", t, m,
  51 #              thangs[t,"file"], thangs[t,"line"]);
  52         if (thangs[t,"nmodels"] == 0) return 1;
  53
  54         for (j = 0; j < thangs[t,"nmodels"]; j++) {
  55 #               printf("\tmodel \"%s\"\n", thangs[t,"models",j]);
  56                 if (thangs[t,"models",j] == m) return 1;
  57         }
  58 #       printf("\t-> 0\n");
  59         return 0
  60 }
  61 function compare_models(m1, m2) {
  62 #       printf("compare_models(%s, %s)\n", m1, m2);
  63         seen_any=0
  64         for (i = 0; i < thang_count; i++) {
  65                 if (thang_has_model(i, m1) && !thang_has_model(i, m2)) {
  66                         if (!seen_any) {
  67                                 printf("Things in %s but not in %s:\n", m1, m2);
  68                                 seen_any = 1
  69                         }
  70                         printf("%s:%d: %s\n", thangs[i,"file"],
  71                                thangs[i,"line"], thangs[i,"contents"]);
  72                 }
  73         }
  74 }
  75 $0 ~ /^:/ && $2 == "model" {
  76         # ignore.
  77         # print "model " $0
  78 }
  79 ($0 ~ /^:/ && $2 == "function") || \
  80 ($0 ~ /^:/ && $2 == "internal") || \
  81 ($0 ~ /^[0-9]/) {
  82         # a function, internal, or instruction.
  83
  84         current_thang = thang_count
  85         thang_count++
  86
  87         thangs[current_thang,"file"] = FILENAME
  88         thangs[current_thang,"line"] = NR
  89         thangs[current_thang,"contents"] = $0
  90         thangs[current_thang,"nmodels"] = 0
  91
  92         if ($0 ~ /^:/) {
  93                 thangs[current_thang,"type"] = $2
  94         } else {
  95                 thangs[current_thang,"type"] = "instruction"
  96         }
  97 }
  98 $0 ~ /^\*/ {
  99         split(substr($1, 2), tmp_models, /,/)
 100         for (key in tmp_models) {
 101                 current_model = thangs[current_thang,"nmodels"]
 102                 thangs[current_thang,"nmodels"]++
 103                 thangs[current_thang,"models",current_model] = tmp_models[key]
 104         }
 105 }
 106 END {
 107         compare_models(model1, model2)
 108         if (seen_any) printf("\n");
 109         compare_models(model2, model1)
 110 }' "$@"
 111
 112 exit "$?"