mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2024-11-25 05:00:01 +00:00
115 lines
2.8 KiB
C
115 lines
2.8 KiB
C
/* 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
|