This commit was generated by cvs2svn to track changes on a CVS vendor
[external/binutils.git] / sim / ppc / gen-support.c
1 /*  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 }
89
90 static void
91 support_c_function(insn_table *table,
92                    lf *file,
93                    void *data,
94                    table_entry *function)
95 {
96   ASSERT(function->fields[function_type] != NULL);
97   print_support_function_name(file,
98                               function,
99                               1/*!is_definition*/);
100   table_entry_print_cpp_line_nr(file, function);
101   lf_printf(file, "{\n");
102   lf_indent(file, +2);
103   lf_print__c_code(file, function->annex);
104   if (it_is("internal", function->fields[insn_flags])) {
105     lf_printf(file, "error(\"Internal function must longjump\\n\");\n");
106     lf_printf(file, "return 0;\n");
107   }
108   lf_indent(file, -2);
109   lf_printf(file, "}\n");
110   lf_print__internal_reference(file);
111   lf_printf(file, "\n");
112 }
113
114
115 void
116 gen_support_c(insn_table *table,
117               lf *file)
118 {
119   lf_printf(file, "#include \"cpu.h\"\n");
120   lf_printf(file, "#include \"idecode.h\"\n");
121   lf_printf(file, "#include \"support.h\"\n");
122   lf_printf(file, "\n");
123
124   /* output a definition (c-code) for all functions */
125   insn_table_traverse_function(table,
126                                file, NULL,
127                                support_c_function);
128 }