1 /* This file is part of the program psim.
2
3 Copyright 1994, 1995, 2003 Andrew Cagney
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 3 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, see <http://www.gnu.org/licenses/>.
17
18 */
19
20 #include "misc.h"
21 #include "lf.h"
22 #include "table.h"
23 #include "filter.h"
24
25 #include "ld-decode.h"
26 #include "ld-cache.h"
27 #include "ld-insn.h"
28
29 #include "igen.h"
30
31 #include "gen-semantics.h"
32 #include "gen-support.h"
33
34 static void
print_support_function_name(lf * file,table_entry * function,int is_function_definition)35 print_support_function_name(lf *file,
36 table_entry *function,
37 int is_function_definition)
38 {
39 if (it_is("internal", function->fields[insn_flags])) {
40 lf_print_function_type(file, SEMANTIC_FUNCTION_TYPE, "PSIM_INLINE_SUPPORT",
41 (is_function_definition ? "\n" : " "));
42 print_function_name(file,
43 function->fields[function_name],
44 NULL,
45 function_name_prefix_semantics);
46 lf_printf(file, "\n(%s)", SEMANTIC_FUNCTION_FORMAL);
47 if (!is_function_definition)
48 lf_printf(file, ";");
49 lf_printf(file, "\n");
50 }
51 else {
52 lf_print_function_type(file,
53 function->fields[function_type],
54 "PSIM_INLINE_SUPPORT",
55 (is_function_definition ? "\n" : " "));
56 lf_printf(file, "%s\n(%s)%s",
57 function->fields[function_name],
58 function->fields[function_param],
59 (is_function_definition ? "\n" : ";\n"));
60 }
61 }
62
63
64 static void
support_h_function(insn_table * entry,lf * file,void * data,table_entry * function)65 support_h_function(insn_table *entry,
66 lf *file,
67 void *data,
68 table_entry *function)
69 {
70 ASSERT(function->fields[function_type] != NULL);
71 ASSERT(function->fields[function_param] != NULL);
72 print_support_function_name(file,
73 function,
74 0/*!is_definition*/);
75 lf_printf(file, "\n");
76 }
77
78
79 extern void
gen_support_h(insn_table * table,lf * file)80 gen_support_h(insn_table *table,
81 lf *file)
82 {
83 /* output a declaration for all functions */
84 insn_table_traverse_function(table,
85 file, NULL,
86 support_h_function);
87 lf_printf(file, "\n");
88 lf_printf(file, "#if (SUPPORT_INLINE & INCLUDE_MODULE)\n");
89 lf_printf(file, "# include \"support.c\"\n");
90 lf_printf(file, "#endif\n");
91 }
92
93 static void
support_c_function(insn_table * table,lf * file,void * data,table_entry * function)94 support_c_function(insn_table *table,
95 lf *file,
96 void *data,
97 table_entry *function)
98 {
99 ASSERT(function->fields[function_type] != NULL);
100 print_support_function_name(file,
101 function,
102 1/*!is_definition*/);
103 table_entry_print_cpp_line_nr(file, function);
104 lf_printf(file, "{\n");
105 lf_indent(file, +2);
106 lf_print__c_code(file, function->annex);
107 if (it_is("internal", function->fields[insn_flags])) {
108 lf_printf(file, "error(\"Internal function must longjump\\n\");\n");
109 lf_printf(file, "return 0;\n");
110 }
111 lf_indent(file, -2);
112 lf_printf(file, "}\n");
113 lf_print__internal_reference(file);
114 lf_printf(file, "\n");
115 }
116
117
118 void
gen_support_c(insn_table * table,lf * file)119 gen_support_c(insn_table *table,
120 lf *file)
121 {
122 lf_printf(file, "#include \"cpu.h\"\n");
123 lf_printf(file, "#include \"idecode.h\"\n");
124 lf_printf(file, "#ifdef HAVE_COMMON_FPU\n");
125 lf_printf(file, "#include \"sim-inline.h\"\n");
126 lf_printf(file, "#include \"sim-fpu.h\"\n");
127 lf_printf(file, "#endif\n");
128 lf_printf(file, "#include \"support.h\"\n");
129 lf_printf(file, "\n");
130
131 /* output a definition (c-code) for all functions */
132 insn_table_traverse_function(table,
133 file, NULL,
134 support_c_function);
135 }
136