contrib/gcc-3.4/gcc/f/equiv.h

   1 /* equiv.h -- Public #include File (module.h template V1.0)
   2    Copyright (C) 1995, 1996 Free Software Foundation, Inc.
   3    Contributed by James Craig Burley.
   4
   5 This file is part of GNU Fortran.
   6
   7 GNU Fortran is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 2, or (at your option)
  10 any later version.
  11
  12 GNU Fortran is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GNU Fortran; see the file COPYING.  If not, write to
  19 the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  20 02111-1307, USA.
  21
  22    Owning Modules:
  23       equiv.c
  24
  25    Modifications:
  26 */
  27
  28 /* Allow multiple inclusion to work. */
  29
  30 #ifndef GCC_F_EQUIV_H
  31 #define GCC_F_EQUIV_H
  32
  33 /* Simple definitions and enumerations. */
  34
  35
  36 /* Typedefs. */
  37
  38 typedef struct _ffeequiv_ *ffeequiv;
  39
  40 /* Include files needed by this one. */
  41
  42 #include "bld.h"
  43 #include "lex.h"
  44 #include "storag.h"
  45 #include "symbol.h"
  46
  47 /* Structure definitions. */
  48
  49 struct _ffeequiv_
  50   {
  51     ffeequiv next;
  52     ffeequiv previous;
  53     ffesymbol common;           /* Common area for this equiv, if any. */
  54     ffebld list;                /* List of lists of equiv exprs. */
  55     bool is_save;               /* Any SAVEd members? */
  56     bool is_init;               /* Any initialized members? */
  57   };
  58
  59 /* Global objects accessed by users of this module. */
  60
  61
  62 /* Declare functions with prototypes. */
  63
  64 void ffeequiv_add (ffeequiv eq, ffebld list, ffelexToken t);
  65 void ffeequiv_exec_transition (void);
  66 void ffeequiv_init_2 (void);
  67 void ffeequiv_kill (ffeequiv victim);
  68 bool ffeequiv_layout_cblock (ffestorag st);
  69 ffeequiv ffeequiv_merge (ffeequiv eq1, ffeequiv eq2, ffelexToken t);
  70 ffeequiv ffeequiv_new (void);
  71 ffesymbol ffeequiv_symbol (ffebld expr);
  72 void ffeequiv_update_init (ffeequiv eq);
  73 void ffeequiv_update_save (ffeequiv eq);
  74
  75 /* Define macros. */
  76
  77 #define ffeequiv_common(e) ((e)->common)
  78 #define ffeequiv_init_0()
  79 #define ffeequiv_init_1()
  80 #define ffeequiv_init_3()
  81 #define ffeequiv_init_4()
  82 #define ffeequiv_is_init(e) ((e)->is_init)
  83 #define ffeequiv_is_save(e) ((e)->is_save)
  84 #define ffeequiv_list(e) ((e)->list)
  85 #define ffeequiv_next(e) ((e)->next)
  86 #define ffeequiv_previous(e) ((e)->previous)
  87 #define ffeequiv_set_common(e,c) ((e)->common = (c))
  88 #define ffeequiv_set_init(e,i) ((e)->init = (i))
  89 #define ffeequiv_set_is_init(e,in) ((e)->is_init = (in))
  90 #define ffeequiv_set_is_save(e,sa) ((e)->is_save = (sa))
  91 #define ffeequiv_set_list(e,l) ((e)->list = (l))
  92 #define ffeequiv_terminate_0()
  93 #define ffeequiv_terminate_1()
  94 #define ffeequiv_terminate_2()
  95 #define ffeequiv_terminate_3()
  96 #define ffeequiv_terminate_4()
  97
  98 /* End of #include file. */
  99
 100 #endif /* ! GCC_F_EQUIV_H */