OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-dev/] [fsf-gcc-snapshot-1-mar-12/] [or1k-gcc/] [gcc/] [genconstants.c] - Diff between revs 684 and 783

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 684 Rev 783
/* Generate from machine description:
/* Generate from machine description:
   a series of #define statements, one for each constant named in
   a series of #define statements, one for each constant named in
   a (define_constants ...) pattern.
   a (define_constants ...) pattern.
 
 
   Copyright (C) 1987, 1991, 1995, 1998, 1999, 2000, 2001, 2003, 2004,
   Copyright (C) 1987, 1991, 1995, 1998, 1999, 2000, 2001, 2003, 2004,
   2007, 2010  Free Software Foundation, Inc.
   2007, 2010  Free Software Foundation, Inc.
 
 
This file is part of GCC.
This file is part of GCC.
 
 
GCC is free software; you can redistribute it and/or modify
GCC is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
the Free Software Foundation; either version 3, or (at your option)
any later version.
any later version.
 
 
GCC is distributed in the hope that it will be useful,
GCC is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
GNU General Public License for more details.
 
 
You should have received a copy of the GNU General Public License
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING3.  If not see
along with GCC; see the file COPYING3.  If not see
<http://www.gnu.org/licenses/>.  */
<http://www.gnu.org/licenses/>.  */
 
 
/* This program does not use gensupport.c because it does not need to
/* This program does not use gensupport.c because it does not need to
   look at insn patterns, only (define_constants), and we want to
   look at insn patterns, only (define_constants), and we want to
   minimize dependencies.  */
   minimize dependencies.  */
 
 
#include "bconfig.h"
#include "bconfig.h"
#include "system.h"
#include "system.h"
#include "coretypes.h"
#include "coretypes.h"
#include "errors.h"
#include "errors.h"
#include "read-md.h"
#include "read-md.h"
 
 
/* Called via traverse_md_constants; emit a #define for
/* Called via traverse_md_constants; emit a #define for
   the current constant definition.  */
   the current constant definition.  */
 
 
static int
static int
print_md_constant (void **slot, void *info ATTRIBUTE_UNUSED)
print_md_constant (void **slot, void *info ATTRIBUTE_UNUSED)
{
{
  struct md_constant *def = (struct md_constant *) *slot;
  struct md_constant *def = (struct md_constant *) *slot;
 
 
  if (!def->parent_enum)
  if (!def->parent_enum)
    printf ("#define %s %s\n", def->name, def->value);
    printf ("#define %s %s\n", def->name, def->value);
  return 1;
  return 1;
}
}
 
 
/* Called via traverse_enums.  Emit an enum definition for
/* Called via traverse_enums.  Emit an enum definition for
   enum_type *SLOT.  */
   enum_type *SLOT.  */
 
 
static int
static int
print_enum_type (void **slot, void *info ATTRIBUTE_UNUSED)
print_enum_type (void **slot, void *info ATTRIBUTE_UNUSED)
{
{
  struct enum_type *def;
  struct enum_type *def;
  struct enum_value *value;
  struct enum_value *value;
  char *value_name;
  char *value_name;
 
 
  def = (struct enum_type *) *slot;
  def = (struct enum_type *) *slot;
  printf ("\nenum %s {", def->name);
  printf ("\nenum %s {", def->name);
  for (value = def->values; value; value = value->next)
  for (value = def->values; value; value = value->next)
    {
    {
      printf ("\n  %s = %s", value->def->name, value->def->value);
      printf ("\n  %s = %s", value->def->name, value->def->value);
      if (value->next)
      if (value->next)
        putc (',', stdout);
        putc (',', stdout);
    }
    }
  printf ("\n};\n");
  printf ("\n};\n");
 
 
  /* Define NUM_<enum>_VALUES to be the largest enum value + 1.  */
  /* Define NUM_<enum>_VALUES to be the largest enum value + 1.  */
  value_name = ACONCAT (("num_", def->name, "_values", NULL));
  value_name = ACONCAT (("num_", def->name, "_values", NULL));
  upcase_string (value_name);
  upcase_string (value_name);
  printf ("#define %s %d\n", value_name, def->num_values);
  printf ("#define %s %d\n", value_name, def->num_values);
 
 
  /* Declare the array that is generated by genenum.  */
  /* Declare the array that is generated by genenum.  */
  printf ("extern const char *const %s_strings[];\n", def->name);
  printf ("extern const char *const %s_strings[];\n", def->name);
 
 
  return 1;
  return 1;
}
}
 
 
int
int
main (int argc, char **argv)
main (int argc, char **argv)
{
{
  progname = "genconstants";
  progname = "genconstants";
 
 
  if (!read_md_files (argc, argv, NULL, NULL))
  if (!read_md_files (argc, argv, NULL, NULL))
    return (FATAL_EXIT_CODE);
    return (FATAL_EXIT_CODE);
 
 
  /* Initializing the MD reader has the side effect of loading up
  /* Initializing the MD reader has the side effect of loading up
     the constants table that we wish to scan.  */
     the constants table that we wish to scan.  */
 
 
  puts ("/* Generated automatically by the program `genconstants'");
  puts ("/* Generated automatically by the program `genconstants'");
  puts ("   from the machine description file `md'.  */\n");
  puts ("   from the machine description file `md'.  */\n");
  puts ("#ifndef GCC_INSN_CONSTANTS_H");
  puts ("#ifndef GCC_INSN_CONSTANTS_H");
  puts ("#define GCC_INSN_CONSTANTS_H\n");
  puts ("#define GCC_INSN_CONSTANTS_H\n");
 
 
  traverse_md_constants (print_md_constant, 0);
  traverse_md_constants (print_md_constant, 0);
  traverse_enum_types (print_enum_type, 0);
  traverse_enum_types (print_enum_type, 0);
 
 
  puts ("\n#endif /* GCC_INSN_CONSTANTS_H */");
  puts ("\n#endif /* GCC_INSN_CONSTANTS_H */");
 
 
  if (ferror (stdout) || fflush (stdout) || fclose (stdout))
  if (ferror (stdout) || fflush (stdout) || fclose (stdout))
    return FATAL_EXIT_CODE;
    return FATAL_EXIT_CODE;
 
 
  return SUCCESS_EXIT_CODE;
  return SUCCESS_EXIT_CODE;
}
}
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.