Use new tail-calling mechanism on ARM.
[official-gcc.git] / gcc / f / equiv.h
blob0a0ce92f423649e785784f07430e1baa094b48a8
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.
5 This file is part of GNU Fortran.
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.
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.
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.
22 Owning Modules:
23 equiv.c
25 Modifications:
28 /* Allow multiple inclusion to work. */
30 #ifndef _H_f_equiv
31 #define _H_f_equiv
33 /* Simple definitions and enumerations. */
36 /* Typedefs. */
38 typedef struct _ffeequiv_ *ffeequiv;
40 /* Include files needed by this one. */
42 #include "bld.h"
43 #include "lex.h"
44 #include "storag.h"
45 #include "symbol.h"
47 /* Structure definitions. */
49 struct _ffeequiv_
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? */
59 /* Global objects accessed by users of this module. */
62 /* Declare functions with prototypes. */
64 void ffeequiv_add (ffeequiv eq, ffebld list, ffelexToken t);
65 #if FFECOM_targetCURRENT == FFECOM_targetFFE
66 void ffeequiv_dump (ffeequiv eq);
67 #endif
68 void ffeequiv_exec_transition (void);
69 void ffeequiv_init_2 (void);
70 void ffeequiv_kill (ffeequiv victim);
71 bool ffeequiv_layout_cblock (ffestorag st);
72 ffeequiv ffeequiv_merge (ffeequiv eq1, ffeequiv eq2, ffelexToken t);
73 ffeequiv ffeequiv_new (void);
74 ffesymbol ffeequiv_symbol (ffebld expr);
75 void ffeequiv_update_init (ffeequiv eq);
76 void ffeequiv_update_save (ffeequiv eq);
78 /* Define macros. */
80 #define ffeequiv_common(e) ((e)->common)
81 #define ffeequiv_init_0()
82 #define ffeequiv_init_1()
83 #define ffeequiv_init_3()
84 #define ffeequiv_init_4()
85 #define ffeequiv_is_init(e) ((e)->is_init)
86 #define ffeequiv_is_save(e) ((e)->is_save)
87 #define ffeequiv_list(e) ((e)->list)
88 #define ffeequiv_next(e) ((e)->next)
89 #define ffeequiv_previous(e) ((e)->previous)
90 #define ffeequiv_set_common(e,c) ((e)->common = (c))
91 #define ffeequiv_set_init(e,i) ((e)->init = (i))
92 #define ffeequiv_set_is_init(e,in) ((e)->is_init = (in))
93 #define ffeequiv_set_is_save(e,sa) ((e)->is_save = (sa))
94 #define ffeequiv_set_list(e,l) ((e)->list = (l))
95 #define ffeequiv_terminate_0()
96 #define ffeequiv_terminate_1()
97 #define ffeequiv_terminate_2()
98 #define ffeequiv_terminate_3()
99 #define ffeequiv_terminate_4()
101 /* End of #include file. */
103 #endif