OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [sim/] [igen/] [gen-itable.c] - Blame information for rev 840

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
/* The IGEN simulator generator for GDB, the GNU Debugger.
2
 
3
   Copyright 2002, 2007, 2008 Free Software Foundation, Inc.
4
 
5
   Contributed by Andrew Cagney.
6
 
7
   This file is part of GDB.
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
 
23
 
24
#include "misc.h"
25
#include "lf.h"
26
#include "table.h"
27
#include "filter.h"
28
#include "igen.h"
29
 
30
#include "ld-insn.h"
31
#include "ld-decode.h"
32
 
33
#include "gen.h"
34
 
35
#include "gen-itable.h"
36
 
37
#ifndef NULL
38
#define NULL 0
39
#endif
40
 
41
 
42
 
43
typedef struct _itable_info
44
{
45
  int sizeof_form;
46
  int sizeof_name;
47
  int sizeof_file;
48
}
49
itable_info;
50
 
51
 
52
static void
53
itable_h_insn (lf *file,
54
               insn_table *entry, insn_entry * instruction, void *data)
55
{
56
  int len;
57
  itable_info *info = data;
58
  lf_print__line_ref (file, instruction->line);
59
  lf_printf (file, "  ");
60
  print_function_name (file,
61
                       instruction->name,
62
                       instruction->format_name,
63
                       NULL, NULL, function_name_prefix_itable);
64
  lf_printf (file, ",\n");
65
  /* update summary info */
66
  len = strlen (instruction->format_name);
67
  if (info->sizeof_form <= len)
68
    info->sizeof_form = len + 1;
69
  len = strlen (instruction->name);
70
  if (info->sizeof_name <= len)
71
    info->sizeof_name = len + 1;
72
  len = strlen (filter_filename (instruction->line->file_name));
73
  if (info->sizeof_file <= len)
74
    info->sizeof_file = len + 1;
75
}
76
 
77
 
78
/* print the list of all the different options */
79
 
80
static void
81
itable_print_enum (lf *file, filter *set, char *name)
82
{
83
  char *elem;
84
  lf_printf (file, "typedef enum {\n");
85
  lf_indent (file, +2);
86
  for (elem = filter_next (set, "");
87
       elem != NULL; elem = filter_next (set, elem))
88
    {
89
      lf_printf (file, "%sitable_%s_%s,\n",
90
                 options.module.itable.prefix.l, name, elem);
91
      if (strlen (options.module.itable.prefix.l) > 0)
92
        {
93
          lf_indent_suppress (file);
94
          lf_printf (file, "#define itable_%s_%s %sitable_%s_%s\n",
95
                     name, elem, options.module.itable.prefix.l, name, elem);
96
        }
97
    }
98
  lf_printf (file, "nr_%sitable_%ss,\n", options.module.itable.prefix.l,
99
             name);
100
 
101
  lf_indent (file, -2);
102
  lf_printf (file, "} %sitable_%ss;\n", options.module.itable.prefix.l, name);
103
  if (strlen (options.module.itable.prefix.l) > 0)
104
    {
105
      lf_indent_suppress (file);
106
      lf_printf (file, "#define itable_%ss %sitable_%ss\n",
107
                 name, options.module.itable.prefix.l, name);
108
      lf_indent_suppress (file);
109
      lf_printf (file, "#define nr_itable_%ss nr_%sitable_%ss\n",
110
                 name, options.module.itable.prefix.l, name);
111
    }
112
}
113
 
114
/* print an array of the option names as strings */
115
 
116
static void
117
itable_print_names (lf *file, filter *set, char *name)
118
{
119
  char *elem;
120
  lf_printf (file, "const char *%sitable_%s_names[nr_%sitable_%ss + 1] = {\n",
121
             options.module.itable.prefix.l, name,
122
             options.module.itable.prefix.l, name);
123
  lf_indent (file, +2);
124
  for (elem = filter_next (set, "");
125
       elem != NULL; elem = filter_next (set, elem))
126
    {
127
      lf_printf (file, "\"%s\",\n", elem);
128
    }
129
  lf_printf (file, "0,\n");
130
  lf_indent (file, -2);
131
  lf_printf (file, "};\n");
132
}
133
 
134
extern void
135
gen_itable_h (lf *file, insn_table *isa)
136
{
137
  itable_info *info = ZALLOC (itable_info);
138
 
139
  /* output an enumerated type for each instruction */
140
  lf_printf (file, "typedef enum {\n");
141
  insn_table_traverse_insn (file, isa, itable_h_insn, info);
142
  lf_printf (file, "  nr_%sitable_entries,\n",
143
             options.module.itable.prefix.l);
144
  lf_printf (file, "} %sitable_index;\n", options.module.itable.prefix.l);
145
  lf_printf (file, "\n");
146
 
147
  /* output an enumeration type for each flag */
148
  itable_print_enum (file, isa->flags, "flag");
149
  lf_printf (file, "extern const char *%sitable_flag_names[];\n",
150
             options.module.itable.prefix.l);
151
  lf_printf (file, "\n");
152
 
153
  /* output an enumeration of all the possible options */
154
  itable_print_enum (file, isa->options, "option");
155
  lf_printf (file, "extern const char *%sitable_option_names[];\n",
156
             options.module.itable.prefix.l);
157
  lf_printf (file, "\n");
158
 
159
  /* output an enumeration of all the processor models */
160
  itable_print_enum (file, isa->model->processors, "processor");
161
  lf_printf (file, "extern const char *%sitable_processor_names[];\n",
162
             options.module.itable.prefix.l);
163
  lf_printf (file, "\n");
164
 
165
  /* output the table that contains the actual instruction info */
166
  lf_printf (file, "typedef struct _%sitable_instruction_info {\n",
167
             options.module.itable.prefix.l);
168
  lf_printf (file, "  %sitable_index nr;\n", options.module.itable.prefix.l);
169
  lf_printf (file, "  char *format;\n");
170
  lf_printf (file, "  char *form;\n");
171
  lf_printf (file, "  char *flags;\n");
172
 
173
  /* nr_itable_* may be zero, so we add 1 to avoid an
174
     illegal zero-sized array. */
175
  lf_printf (file, "  char flag[nr_%sitable_flags + 1];\n",
176
             options.module.itable.prefix.l);
177
  lf_printf (file, "  char *options;\n");
178
  lf_printf (file, "  char option[nr_%sitable_options + 1];\n",
179
             options.module.itable.prefix.l);
180
  lf_printf (file, "  char *processors;\n");
181
  lf_printf (file, "  char processor[nr_%sitable_processors + 1];\n",
182
             options.module.itable.prefix.l);
183
  lf_printf (file, "  char *name;\n");
184
  lf_printf (file, "  char *file;\n");
185
  lf_printf (file, "  int line_nr;\n");
186
  lf_printf (file, "} %sitable_info;\n", options.module.itable.prefix.l);
187
  lf_printf (file, "\n");
188
  lf_printf (file, "extern %sitable_info %sitable[nr_%sitable_entries];\n",
189
             options.module.itable.prefix.l, options.module.itable.prefix.l,
190
             options.module.itable.prefix.l);
191
  if (strlen (options.module.itable.prefix.l) > 0)
192
    {
193
      lf_indent_suppress (file);
194
      lf_printf (file, "#define itable %sitable\n",
195
                 options.module.itable.prefix.l);
196
    }
197
  lf_printf (file, "\n");
198
 
199
  /* output an enum defining the max size of various itable members */
200
  lf_printf (file, "enum {\n");
201
  lf_printf (file, "  sizeof_%sitable_form = %d,\n",
202
             options.module.itable.prefix.l, info->sizeof_form);
203
  lf_printf (file, "  sizeof_%sitable_name = %d,\n",
204
             options.module.itable.prefix.l, info->sizeof_name);
205
  lf_printf (file, "  sizeof_%sitable_file = %d,\n",
206
             options.module.itable.prefix.l, info->sizeof_file);
207
  lf_printf (file, "};\n");
208
}
209
 
210
 
211
/****************************************************************/
212
 
213
static void
214
itable_print_set (lf *file, filter *set, filter *members)
215
{
216
  char *elem;
217
  lf_printf (file, "\"");
218
  elem = filter_next (members, "");
219
  if (elem != NULL)
220
    {
221
      while (1)
222
        {
223
          lf_printf (file, "%s", elem);
224
          elem = filter_next (members, elem);
225
          if (elem == NULL)
226
            break;
227
          lf_printf (file, ",");
228
        }
229
    }
230
  lf_printf (file, "\",\n");
231
 
232
  lf_printf (file, "{");
233
  for (elem = filter_next (set, "");
234
       elem != NULL; elem = filter_next (set, elem))
235
    {
236
      if (filter_is_member (members, elem))
237
        {
238
          lf_printf (file, " 1,");
239
        }
240
      else
241
        {
242
          lf_printf (file, " 0,");
243
        }
244
 
245
    }
246
  /* always print a dummy element, to avoid empty initializers. */
247
  lf_printf (file, " 99 },\n");
248
}
249
 
250
 
251
static void
252
itable_c_insn (lf *file,
253
               insn_table *isa, insn_entry * instruction, void *data)
254
{
255
  lf_printf (file, "{ ");
256
  lf_indent (file, +2);
257
  print_function_name (file,
258
                       instruction->name,
259
                       instruction->format_name,
260
                       NULL, NULL, function_name_prefix_itable);
261
  lf_printf (file, ",\n");
262
  lf_printf (file, "\"");
263
  print_insn_words (file, instruction);
264
  lf_printf (file, "\",\n");
265
  lf_printf (file, "\"%s\",\n", instruction->format_name);
266
 
267
  itable_print_set (file, isa->flags, instruction->flags);
268
  itable_print_set (file, isa->options, instruction->options);
269
  itable_print_set (file, isa->model->processors, instruction->processors);
270
 
271
  lf_printf (file, "\"%s\",\n", instruction->name);
272
  lf_printf (file, "\"%s\",\n",
273
             filter_filename (instruction->line->file_name));
274
  lf_printf (file, "%d,\n", instruction->line->line_nr);
275
  lf_printf (file, "},\n");
276
  lf_indent (file, -2);
277
}
278
 
279
 
280
extern void
281
gen_itable_c (lf *file, insn_table *isa)
282
{
283
  /* leader */
284
  lf_printf (file, "#include \"%sitable.h\"\n",
285
             options.module.itable.prefix.l);
286
  lf_printf (file, "\n");
287
 
288
  /* FIXME - output model data??? */
289
  /* FIXME - output assembler data??? */
290
 
291
  /* output the flag, option and processor name tables */
292
  itable_print_names (file, isa->flags, "flag");
293
  itable_print_names (file, isa->options, "option");
294
  itable_print_names (file, isa->model->processors, "processor");
295
 
296
  /* output the table that contains the actual instruction info */
297
  lf_printf (file, "%sitable_info %sitable[nr_%sitable_entries] = {\n",
298
             options.module.itable.prefix.l,
299
             options.module.itable.prefix.l, options.module.itable.prefix.l);
300
  insn_table_traverse_insn (file, isa, itable_c_insn, NULL);
301
 
302
  lf_printf (file, "};\n");
303
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.