sim/ppc/gen-support.c

   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
  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
  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
  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
  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
 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 }