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 }