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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [sim/] [ppc/] [gen-support.c] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
/*  This file is part of the program psim.
2
 
3
    Copyright (C) 1994-1995, Andrew Cagney <cagney@highland.com.au>
4
 
5
    This program is free software; you can redistribute it and/or modify
6
    it under the terms of the GNU General Public License as published by
7
    the Free Software Foundation; either version 2 of the License, or
8
    (at your option) any later version.
9
 
10
    This program is distributed in the hope that it will be useful,
11
    but WITHOUT ANY WARRANTY; without even the implied warranty of
12
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13
    GNU General Public License for more details.
14
 
15
    You should have received a copy of the GNU General Public License
16
    along with this program; if not, write to the Free Software
17
    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
18
 
19
    */
20
 
21
#include "misc.h"
22
#include "lf.h"
23
#include "table.h"
24
#include "filter.h"
25
 
26
#include "ld-decode.h"
27
#include "ld-cache.h"
28
#include "ld-insn.h"
29
 
30
#include "igen.h"
31
 
32
#include "gen-semantics.h"
33
#include "gen-support.h"
34
 
35
static void
36
print_support_function_name(lf *file,
37
                            table_entry *function,
38
                            int is_function_definition)
39
{
40
  if (it_is("internal", function->fields[insn_flags])) {
41
    lf_print_function_type(file, SEMANTIC_FUNCTION_TYPE, "INLINE_SUPPORT",
42
                           (is_function_definition ? "\n" : " "));
43
    print_function_name(file,
44
                        function->fields[function_name],
45
                        NULL,
46
                        function_name_prefix_semantics);
47
    lf_printf(file, "\n(%s)", SEMANTIC_FUNCTION_FORMAL);
48
    if (!is_function_definition)
49
      lf_printf(file, ";");
50
    lf_printf(file, "\n");
51
  }
52
  else {
53
    lf_print_function_type(file,
54
                           function->fields[function_type],
55
                           "INLINE_SUPPORT",
56
                           (is_function_definition ? "\n" : " "));
57
    lf_printf(file, "%s\n(%s)%s",
58
              function->fields[function_name],
59
              function->fields[function_param],
60
              (is_function_definition ? "\n" : ";\n"));
61
  }
62
}
63
 
64
 
65
static void
66
support_h_function(insn_table *entry,
67
                   lf *file,
68
                   void *data,
69
                   table_entry *function)
70
{
71
  ASSERT(function->fields[function_type] != NULL);
72
  ASSERT(function->fields[function_param] != NULL);
73
  print_support_function_name(file,
74
                              function,
75
                              0/*!is_definition*/);
76
  lf_printf(file, "\n");
77
}
78
 
79
 
80
extern void
81
gen_support_h(insn_table *table,
82
              lf *file)
83
{
84
  /* output a declaration for all functions */
85
  insn_table_traverse_function(table,
86
                               file, NULL,
87
                               support_h_function);
88
  lf_printf(file, "\n");
89
  lf_printf(file, "#if (SUPPORT_INLINE & INCLUDE_MODULE)\n");
90
  lf_printf(file, "# include \"support.c\"\n");
91
  lf_printf(file, "#endif\n");
92
}
93
 
94
static void
95
support_c_function(insn_table *table,
96
                   lf *file,
97
                   void *data,
98
                   table_entry *function)
99
{
100
  ASSERT(function->fields[function_type] != NULL);
101
  print_support_function_name(file,
102
                              function,
103
                              1/*!is_definition*/);
104
  table_entry_print_cpp_line_nr(file, function);
105
  lf_printf(file, "{\n");
106
  lf_indent(file, +2);
107
  lf_print__c_code(file, function->annex);
108
  if (it_is("internal", function->fields[insn_flags])) {
109
    lf_printf(file, "error(\"Internal function must longjump\\n\");\n");
110
    lf_printf(file, "return 0;\n");
111
  }
112
  lf_indent(file, -2);
113
  lf_printf(file, "}\n");
114
  lf_print__internal_reference(file);
115
  lf_printf(file, "\n");
116
}
117
 
118
 
119
void
120
gen_support_c(insn_table *table,
121
              lf *file)
122
{
123
  lf_printf(file, "#include \"cpu.h\"\n");
124
  lf_printf(file, "#include \"idecode.h\"\n");
125
  lf_printf(file, "#include \"support.h\"\n");
126
  lf_printf(file, "\n");
127
 
128
  /* output a definition (c-code) for all functions */
129
  insn_table_traverse_function(table,
130
                               file, NULL,
131
                               support_c_function);
132
}

powered by: WebSVN 2.1.0

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