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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.1/] [sim/] [igen/] [gen-support.c] - Blame information for rev 252

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 227 jeremybenn
/* The IGEN simulator generator for GDB, the GNU Debugger.
2
 
3
   Copyright 2002, 2007, 2008, 2009, 2010 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
#include "misc.h"
24
#include "lf.h"
25
#include "table.h"
26
#include "filter.h"
27
 
28
#include "igen.h"
29
 
30
#include "ld-insn.h"
31
#include "ld-decode.h"
32
 
33
#include "gen.h"
34
 
35
#include "gen-semantics.h"
36
#include "gen-support.h"
37
 
38
static void
39
print_support_function_name (lf *file,
40
                             function_entry * function,
41
                             int is_function_definition)
42
{
43
  if (function->is_internal)
44
    {
45
      lf_print__function_type_function (file, print_semantic_function_type,
46
                                        "INLINE_SUPPORT",
47
                                        (is_function_definition ? "\n" :
48
                                         " "));
49
      print_function_name (file, function->name, NULL, NULL, NULL,
50
                           function_name_prefix_semantics);
51
      lf_printf (file, "\n(");
52
      lf_indent (file, +1);
53
      print_semantic_function_formal (file, 0);
54
      lf_indent (file, -1);
55
      lf_printf (file, ")");
56
      if (!is_function_definition)
57
        lf_printf (file, ";");
58
      lf_printf (file, "\n");
59
    }
60
  else
61
    {
62
      /* map the name onto a globally valid name */
63
      if (!is_function_definition
64
          && strcmp (options.module.support.prefix.l, "") != 0)
65
        {
66
          lf_indent_suppress (file);
67
          lf_printf (file, "#define %s %s%s\n",
68
                     function->name,
69
                     options.module.support.prefix.l, function->name);
70
        }
71
      lf_print__function_type (file,
72
                               function->type,
73
                               "INLINE_SUPPORT",
74
                               (is_function_definition ? "\n" : " "));
75
      lf_printf (file, "%s%s\n(",
76
                 options.module.support.prefix.l, function->name);
77
      if (options.gen.smp)
78
        lf_printf (file,
79
                   "sim_cpu *cpu, %sinstruction_address cia, int MY_INDEX",
80
                   options.module.support.prefix.l);
81
      else
82
        lf_printf (file,
83
                   "SIM_DESC sd, %sinstruction_address cia, int MY_INDEX",
84
                   options.module.support.prefix.l);
85
      if (function->param != NULL && strlen (function->param) > 0)
86
        lf_printf (file, ", %s", function->param);
87
      lf_printf (file, ")%s", (is_function_definition ? "\n" : ";\n"));
88
    }
89
}
90
 
91
 
92
static void
93
support_h_function (lf *file, function_entry * function, void *data)
94
{
95
  ASSERT (function->type != NULL);
96
  print_support_function_name (file, function, 0 /*!is_definition */ );
97
  lf_printf (file, "\n");
98
}
99
 
100
 
101
extern void
102
gen_support_h (lf *file, insn_table *table)
103
{
104
  /* output the definition of `SD_' */
105
  if (options.gen.smp)
106
    {
107
      lf_printf (file, "#define SD CPU_STATE (cpu)\n");
108
      lf_printf (file, "#define CPU cpu\n");
109
      lf_printf (file, "#define CPU_ cpu\n");
110
    }
111
  else
112
    {
113
      lf_printf (file, "#define SD sd\n");
114
      lf_printf (file, "#define CPU (STATE_CPU (sd, 0))\n");
115
      lf_printf (file, "#define CPU_ sd\n");
116
    }
117
 
118
  lf_printf (file, "#define CIA_ cia\n");
119
  if (options.gen.delayed_branch)
120
    {
121
      lf_printf (file, "#define CIA cia.ip\n");
122
      lf_printf (file,
123
                 "/* #define NIA nia.dp -- do not define, ambigious */\n");
124
    }
125
  else
126
    {
127
      lf_printf (file, "#define CIA cia\n");
128
      lf_printf (file, "#define NIA nia\n");
129
    }
130
  lf_printf (file, "\n");
131
 
132
  lf_printf (file, "#define SD_ CPU_, CIA_, MY_INDEX\n");
133
  lf_printf (file, "#define _SD SD_ /* deprecated */\n");
134
  lf_printf (file, "\n");
135
 
136
  /* Map <PREFIX>_xxxx onto the shorter xxxx for the following names:
137
 
138
     instruction_word
139
     idecode_issue
140
     semantic_illegal
141
 
142
     Map defined here as name space problems are created when the name is
143
     defined in idecode.h  */
144
  if (strcmp (options.module.idecode.prefix.l, "") != 0)
145
    {
146
      lf_indent_suppress (file);
147
      lf_printf (file, "#define %s %s%s\n",
148
                 "instruction_word",
149
                 options.module.idecode.prefix.l, "instruction_word");
150
      lf_printf (file, "\n");
151
      lf_indent_suppress (file);
152
      lf_printf (file, "#define %s %s%s\n",
153
                 "idecode_issue",
154
                 options.module.idecode.prefix.l, "idecode_issue");
155
      lf_printf (file, "\n");
156
      lf_indent_suppress (file);
157
      lf_printf (file, "#define %s %s%s\n",
158
                 "semantic_illegal",
159
                 options.module.idecode.prefix.l, "semantic_illegal");
160
      lf_printf (file, "\n");
161
    }
162
 
163
  /* output a declaration for all functions */
164
  function_entry_traverse (file, table->functions, support_h_function, NULL);
165
  lf_printf (file, "\n");
166
  lf_printf (file, "#if defined(SUPPORT_INLINE)\n");
167
  lf_printf (file, "# if ((SUPPORT_INLINE & INCLUDE_MODULE)\\\n");
168
  lf_printf (file, "      && (SUPPORT_INLINE & INCLUDED_BY_MODULE))\n");
169
  lf_printf (file, "#  include \"%ssupport.c\"\n",
170
             options.module.support.prefix.l);
171
  lf_printf (file, "# endif\n");
172
  lf_printf (file, "#endif\n");
173
}
174
 
175
static void
176
support_c_function (lf *file, function_entry * function, void *data)
177
{
178
  ASSERT (function->type != NULL);
179
  print_support_function_name (file, function, 1 /*!is_definition */ );
180
  lf_printf (file, "{\n");
181
  lf_indent (file, +2);
182
  if (function->code == NULL)
183
    error (function->line, "Function without body (or null statement)");
184
  lf_print__line_ref (file, function->code->line);
185
  table_print_code (file, function->code);
186
  if (function->is_internal)
187
    {
188
      lf_printf (file,
189
                 "sim_engine_abort (SD, CPU, cia, \"Internal function must longjump\\n\");\n");
190
      lf_printf (file, "return cia;\n");
191
    }
192
  lf_indent (file, -2);
193
  lf_printf (file, "}\n");
194
  lf_print__internal_ref (file);
195
  lf_printf (file, "\n");
196
}
197
 
198
 
199
void
200
gen_support_c (lf *file, insn_table *table)
201
{
202
  lf_printf (file, "#include \"sim-main.h\"\n");
203
  lf_printf (file, "#include \"%sidecode.h\"\n",
204
             options.module.idecode.prefix.l);
205
  lf_printf (file, "#include \"%sitable.h\"\n",
206
             options.module.itable.prefix.l);
207
  lf_printf (file, "#include \"%ssupport.h\"\n",
208
             options.module.support.prefix.l);
209
  lf_printf (file, "\n");
210
 
211
  /* output a definition (c-code) for all functions */
212
  function_entry_traverse (file, table->functions, support_c_function, NULL);
213
}

powered by: WebSVN 2.1.0

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