1 /* This file is part of the program psim.
3 Copyright (C) 1994-1997, Andrew Cagney <cagney@highland.com.au>
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.
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.
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.
26 #include "ld-decode.h"
32 #include "gen-semantics.h"
33 #include "gen-support.h"
36 print_support_function_name(lf
*file
,
37 table_entry
*function
,
38 int is_function_definition
)
40 if (it_is("internal", function
->fields
[insn_flags
])) {
41 lf_print_function_type_function(file
, print_semantic_function_type
, "INLINE_SUPPORT",
42 (is_function_definition
? "\n" : " "));
43 print_function_name(file
,
44 function
->fields
[function_name
],
46 function_name_prefix_semantics
);
47 lf_printf(file
, "\n(");
48 print_semantic_function_formal(file
);
50 if (!is_function_definition
)
52 lf_printf(file
, "\n");
55 /* map the name onto a globally valid name */
56 if (!is_function_definition
&& strcmp(global_name_prefix
, "") != 0) {
57 lf_indent_suppress(file
);
58 lf_printf(file
, "#define %s %s%s\n",
59 function
->fields
[function_name
],
61 function
->fields
[function_name
]);
63 lf_print_function_type(file
,
64 function
->fields
[function_type
],
66 (is_function_definition
? "\n" : " "));
67 lf_printf(file
, "%s%s\n(",
69 function
->fields
[function_name
]);
71 lf_printf(file
, "sim_cpu *cpu");
73 lf_printf(file
, "SIM_DESC sd");
74 if (strcmp(function
->fields
[function_param
], "") != 0)
75 lf_printf(file
, ", %s", function
->fields
[function_param
]);
76 lf_printf(file
, ")%s", (is_function_definition
? "\n" : ";\n"));
82 support_h_function(insn_table
*entry
,
85 table_entry
*function
)
87 ASSERT(function
->fields
[function_type
] != NULL
);
88 ASSERT(function
->fields
[function_param
] != NULL
);
89 print_support_function_name(file
,
92 lf_printf(file
, "\n");
97 gen_support_h(insn_table
*table
,
100 /* output the definition of `_SD'*/
102 lf_printf(file
, "#define _SD cpu\n");
103 lf_printf(file
, "#define SD cpu->sd\n");
104 lf_printf(file
, "#define CPU cpu\n");
107 lf_printf(file
, "#define _SD sd\n");
108 lf_printf(file
, "#define SD sd\n");
109 lf_printf(file
, "#define CPU (&sd->cpu)\n");
111 lf_printf(file
, "\n");
112 /* output a declaration for all functions */
113 insn_table_traverse_function(table
,
116 lf_printf(file
, "\n");
117 lf_printf(file
, "#if defined(SUPPORT_INLINE)\n");
118 lf_printf(file
, "# if ((SUPPORT_INLINE & INCLUDE_MODULE)\\\n");
119 lf_printf(file
, " && (SUPPORT_INLINE & INCLUDED_BY_MODULE))\n");
120 lf_printf(file
, "# include \"%ssupport.c\"\n", global_name_prefix
);
121 lf_printf(file
, "# endif\n");
122 lf_printf(file
, "#endif\n");
126 support_c_function(insn_table
*table
,
129 table_entry
*function
)
131 ASSERT (function
->fields
[function_type
] != NULL
);
132 print_support_function_name (file
,
134 1/*!is_definition*/);
135 table_entry_print_cpp_line_nr (file
, function
);
136 lf_printf (file
, "{\n");
137 lf_indent (file
, +2);
138 if (function
->annex
== NULL
)
139 error ("%s:%d: Function without body (or null statement)",
142 lf_print__c_code (file
, function
->annex
);
143 if (it_is ("internal", function
->fields
[insn_flags
]))
145 lf_printf (file
, "sim_io_error (sd, \"Internal function must longjump\\n\");\n");
146 lf_printf (file
, "return cia;\n");
148 lf_indent (file
, -2);
149 lf_printf (file
, "}\n");
150 lf_print__internal_reference (file
);
151 lf_printf (file
, "\n");
156 gen_support_c(insn_table
*table
,
159 lf_printf(file
, "#include \"sim-main.h\"\n");
160 lf_printf(file
, "#include \"%sidecode.h\"\n", global_name_prefix
);
161 lf_printf(file
, "#include \"%ssupport.h\"\n", global_name_prefix
);
162 lf_printf(file
, "\n");
164 /* output a definition (c-code) for all functions */
165 insn_table_traverse_function(table
,