diff options
| -rw-r--r-- | sim/igen/ChangeLog | 4 | ||||
| -rwxr-xr-x | sim/igen/compare_igen_models | 113 |
2 files changed, 117 insertions, 0 deletions
diff --git a/sim/igen/ChangeLog b/sim/igen/ChangeLog index 8ef6284..436ba3b 100644 --- a/sim/igen/ChangeLog +++ b/sim/igen/ChangeLog @@ -1,3 +1,7 @@ +2002-08-22 Chris Demetriou <cgd@broadcom.com> + + * compare_igen_models: New script. + 2002-06-17 Andrew Cagney <cagney@redhat.com> * gen.c (gen_entry_expand_opcode): Initialize ``value'' to -1 and diff --git a/sim/igen/compare_igen_models b/sim/igen/compare_igen_models new file mode 100755 index 0000000..3c3e46a --- /dev/null +++ b/sim/igen/compare_igen_models @@ -0,0 +1,113 @@ +#!/bin/sh + +# Script to compare functions and instructions used by different igen models. +# Copyright (C) 2002 Free Software Foundation, Inc. +# Contributed by Broadcom Corporation (SiByte). +# +# This file is part of GDB, the GNU debugger. +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along +# with this program; if not, write to the Free Software Foundation, Inc., +# 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +# This is a simple-minded script to compare the functions and instructions +# listed for two different models in one or more .igen files. +# +# It was intended to be useful to help factor models into common subsets. +# +# Things to note: +# +# * igen include directives are not processed! +# +# * functions and instructions with multiple definitions (e.g., based +# on model names) are treated as being different. In other words, +# if two models have different functions named 'foo', this +# script will say that one has one of the function definitions, and +# the other has the other. + +if [ "$#" -lt 2 ]; then + echo "usage: $0 model1 model2 [file ...]" 1>&2 + exit 1 +fi +model1="$1" +model2="$2" +shift; shift + +gawk -v model1="$model1" -v model2="$model2" -F: -- ' +BEGIN { + thang_count = 0 +} +function thang_has_model(t, m) { +# printf("thang_has_model(%s, %s) (@ %s:%d)\n", t, m, +# thangs[t,"file"], thangs[t,"line"]); + if (thangs[t,"nmodels"] == 0) return 1; + + for (j = 0; j < thangs[t,"nmodels"]; j++) { +# printf("\tmodel \"%s\"\n", thangs[t,"models",j]); + if (thangs[t,"models",j] == m) return 1; + } +# printf("\t-> 0\n"); + return 0 +} +function compare_models(m1, m2) { +# printf("compare_models(%s, %s)\n", m1, m2); + seen_any=0 + for (i = 0; i < thang_count; i++) { + if (thang_has_model(i, m1) && !thang_has_model(i, m2)) { + if (!seen_any) { + printf("Things in %s but not in %s:\n", m1, m2); + seen_any = 1 + } + printf("%s:%d: %s\n", thangs[i,"file"], + thangs[i,"line"], thangs[i,"contents"]); + } + } +} +$0 ~ /^:/ && $2 == "model" { + # ignore. + # print "model " $0 +} +($0 ~ /^:/ && $2 == "function") || \ +($0 ~ /^:/ && $2 == "internal") || \ +($0 ~ /^[0-9]/) { + # a function, internal, or instruction. + + current_thang = thang_count + thang_count++ + + thangs[current_thang,"file"] = FILENAME + thangs[current_thang,"line"] = NR + thangs[current_thang,"contents"] = $0 + thangs[current_thang,"nmodels"] = 0 + + if ($0 ~ /^:/) { + thangs[current_thang,"type"] = $2 + } else { + thangs[current_thang,"type"] = "instruction" + } +} +$0 ~ /^\*/ { + split(substr($1, 2), tmp_models, /,/) + for (key in tmp_models) { + current_model = thangs[current_thang,"nmodels"] + thangs[current_thang,"nmodels"]++ + thangs[current_thang,"models",current_model] = tmp_models[key] + } +} +END { + compare_models(model1, model2) + if (seen_any) printf("\n"); + compare_models(model2, model1) +}' "$@" + +exit "$?" |