diff options
author | Stan Shebs <shebs@codesourcery.com> | 1999-04-16 01:35:26 +0000 |
---|---|---|
committer | Stan Shebs <shebs@codesourcery.com> | 1999-04-16 01:35:26 +0000 |
commit | c906108c21474dfb4ed285bcc0ac6fe02cd400cc (patch) | |
tree | a0015aa5cedc19ccbab307251353a41722a3ae13 /sim/igen/ld-cache.c | |
parent | cd946cff9ede3f30935803403f06f6ed30cad136 (diff) | |
download | gdb-c906108c21474dfb4ed285bcc0ac6fe02cd400cc.zip gdb-c906108c21474dfb4ed285bcc0ac6fe02cd400cc.tar.gz gdb-c906108c21474dfb4ed285bcc0ac6fe02cd400cc.tar.bz2 |
Initial creation of sourceware repositorygdb-4_18-branchpoint
Diffstat (limited to 'sim/igen/ld-cache.c')
-rw-r--r-- | sim/igen/ld-cache.c | 114 |
1 files changed, 114 insertions, 0 deletions
diff --git a/sim/igen/ld-cache.c b/sim/igen/ld-cache.c new file mode 100644 index 0000000..63bd111 --- /dev/null +++ b/sim/igen/ld-cache.c @@ -0,0 +1,114 @@ +/* This file is part of the program psim. + + Copyright (C) 1994,1995,1996, Andrew Cagney <cagney@highland.com.au> + + 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 of the License, 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. + + */ + + +#include "misc.h" +#include "lf.h" +#include "table.h" +#include "filter.h" +#include "igen.h" + +#include "ld-insn.h" +#include "ld-cache.h" + +#ifndef NULL +#define NULL 0 +#endif + + +enum { + ca_type, + ca_field_name, + ca_derived_name, + ca_type_def, + ca_expression, + nr_cache_rule_fields, +}; + +static const name_map cache_type_map[] = { + { "cache", cache_value }, + { "compute", compute_value }, + { "scratch", scratch_value }, + { NULL, 0 }, +}; + + +cache_entry * +load_cache_table (char *file_name) +{ + cache_entry *cache = NULL; + cache_entry **last = &cache; + table *file = table_open (file_name); + table_entry *entry; + while ((entry = table_read (file)) != NULL) + { + cache_entry *new_rule = ZALLOC (cache_entry); + new_rule->line = entry->line; + new_rule->entry_type = name2i (entry->field[ca_type], cache_type_map); + new_rule->name = entry->field[ca_derived_name]; + filter_parse (&new_rule->original_fields, + entry->field[ca_field_name]); + new_rule->type = entry->field[ca_type_def]; + /* expression is the concatenation of the remaining fields */ + if (entry->nr_fields > ca_expression) + { + int len = 0; + int chi; + for (chi = ca_expression; chi < entry->nr_fields; chi++) + { + len += strlen (" : ") + strlen (entry->field[chi]); + } + new_rule->expression = NZALLOC (char, len); + strcpy (new_rule->expression, entry->field[ca_expression]); + for (chi = ca_expression + 1; chi < entry->nr_fields; chi++) + { + strcat (new_rule->expression, " : "); + strcat (new_rule->expression, entry->field[chi]); + } + } + /* insert it */ + *last = new_rule; + last = &new_rule->next; + } + return cache; +} + + + +#ifdef MAIN + +igen_options options; + +int +main(int argc, char **argv) +{ + cache_entry *rules = NULL; + lf *l; + + if (argc != 2) + error (NULL, "Usage: cache <cache-file>\n"); + + rules = load_cache_table (argv[1]); + l = lf_open ("-", "stdout", lf_omit_references, lf_is_text, "tmp-ld-insn"); + dump_cache_entries (l, "(", rules, ")\n"); + + return 0; +} +#endif |