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

   1 /* stw.h -- Private #include File (module.h template V1.0)
   2    Copyright (C) 1995 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       stw.c
  24
  25    Modifications:
  26 */
  27
  28 /* Allow multiple inclusion to work. */
  29
  30 #ifndef GCC_F_STW_H
  31 #define GCC_F_STW_H
  32
  33 /* Simple definitions and enumerations. */
  34
  35
  36 /* Typedefs. */
  37
  38 typedef struct _ffestw_ *ffestw;
  39 typedef struct _ffestw_case_ *ffestwCase;
  40 typedef struct _ffestw_select_ *ffestwSelect;
  41 typedef void (*ffestwShriek) (bool ok);
  42
  43 /* Include files needed by this one. */
  44
  45 #include "bld.h"
  46 #include "com.h"
  47 #include "info.h"
  48 #include "lab.h"
  49 #include "lex.h"
  50 #include "malloc.h"
  51 #include "stv.h"
  52 #include "symbol.h"
  53 #include "where.h"
  54
  55 /* Structure definitions. */
  56
  57 struct _ffestw_
  58   {
  59     ffestw next_;               /* Next (unused) block, or NULL. */
  60     ffestw previous_;           /* Previous block, NULL if this is NIL state. */
  61     ffestw top_do_;             /* Previous or current DO state, or NULL. */
  62     unsigned long blocknum_;    /* Block # w/in procedure/program. */
  63     ffestwShriek shriek_;       /* Call me to pop block in a hurry. */
  64     ffesymbol sym_;             /* Related symbol (if there is one). */
  65     ffelexToken name_;          /* Construct name (IFTHEN, SELECT, DO only). */
  66     ffestwSelect select_;       /* Info for SELECT CASE blocks. */
  67     ffelab label_;              /* For DO blocks w/labels, the target label. */
  68     ffesymbol do_iter_var_;     /* For iter DO blocks, the iter var or NULL. */
  69     ffelexToken do_iter_var_t_; /* The token for do_iter_var. */
  70     ffewhereLine line_;         /* Where first token of statement triggering
  71                                    state */
  72     ffewhereColumn col_;        /* was seen in source file. */
  73     int uses_;                  /* # uses (new+use-kill calls). */
  74     ffestvState state_;
  75     int substate_;              /* Used on a per-block-state basis. */
  76     struct nesting *do_hook_;   /* backend id for given loop (EXIT/CYCLE). */
  77     tree do_tvar_;              /* tree form of do_iter_var. */
  78     tree do_incr_saved_;        /* tree SAVED_EXPR of incr expr. */
  79     tree do_count_var_;         /* tree of countdown variable. */
  80     tree select_texpr_;         /* tree for end case. */
  81     bool select_break_;         /* TRUE when CASE should start with gen
  82                                    "break;". */
  83     int ifthen_fake_else_;      /* Number of fake `else' introductions.  */
  84   };
  85
  86 struct _ffestw_case_
  87   {
  88     ffestwCase next_rel;        /* Next case range in relational order. */
  89     ffestwCase previous_rel;    /* Previous case range in relational order. */
  90     ffestwCase next_stmt;       /* Next range in stmt or first in next stmt. */
  91     ffestwCase previous_stmt;   /* Previous range. */
  92     ffebldConstant low;         /* Low value in range. */
  93     ffebldConstant high;        /* High value in range. */
  94     unsigned long casenum;      /* CASE stmt index for this range/value. */
  95     ffelexToken t;              /* Token for this range/value; ffestc only. */
  96   };
  97
  98 struct _ffestw_select_
  99   {
 100     ffestwCase first_rel;       /* First CASE range (after low) in order. */
 101     ffestwCase last_rel;        /* Last CASE range (before high) in order. */
 102     ffestwCase first_stmt;      /* First range in first CASE stmt. */
 103     ffestwCase last_stmt;       /* Last range in last CASE stmt. */
 104     mallocPool pool;            /* Pool in which this and all cases are
 105                                    allocated. */
 106     unsigned long cases;        /* Number of CASE stmts seen so far. */
 107     ffelexToken t;              /* First token of selected expression; ffestc
 108                                    only. */
 109     ffeinfoBasictype type;      /* Basic type (integer, character, or
 110                                    logical). */
 111     ffeinfoKindtype kindtype;   /* Kind type. */
 112   };
 113
 114 /* Global objects accessed by users of this module. */
 115
 116 extern ffestw ffestw_stack_top_;
 117
 118 /* Declare functions with prototypes. */
 119
 120 void ffestw_display_state (void);
 121 void ffestw_kill (ffestw block);
 122 void ffestw_init_0 (void);
 123 ffestw ffestw_new (void);
 124 ffestw ffestw_pop (void);
 125 ffestw ffestw_push (ffestw block);
 126 ffestw ffestw_update (ffestw block);
 127 ffestw ffestw_use (ffestw block);
 128
 129 /* Define macros. */
 130
 131 #define ffestw_blocknum(b) ((b)->blocknum_)
 132 #define ffestw_col(b) ((b)->col_)
 133 #define ffestw_do_count_var(b) ((b)->do_count_var_)
 134 #define ffestw_do_hook(b) ((b)->do_hook_)
 135 #define ffestw_do_incr_saved(b) ((b)->do_incr_saved_)
 136 #define ffestw_do_iter_var(b) ((b)->do_iter_var_)
 137 #define ffestw_do_iter_var_t(b) ((b)->do_iter_var_t_)
 138 #define ffestw_do_tvar(b) ((b)->do_tvar_)
 139 #define ffestw_ifthen_fake_else(b) ((b)->ifthen_fake_else_)
 140 #define ffestw_init_1()
 141 #define ffestw_init_2()
 142 #define ffestw_init_3()
 143 #define ffestw_init_4()
 144 #define ffestw_label(b) ((b)->label_)
 145 #define ffestw_line(b) ((b)->line_)
 146 #define ffestw_name(b) ((b)->name_)
 147 #define ffestw_previous(b) ((b)->previous_)
 148 #define ffestw_select(b) ((b)->select_)
 149 #define ffestw_select_break(b) ((b)->select_break_)
 150 #define ffestw_select_texpr(b) ((b)->select_texpr_)
 151 #define ffestw_set_blocknum(b,bl) ((b)->blocknum_ = (bl))
 152 #define ffestw_set_col(b,c) ((b)->col_ = (c))
 153 #define ffestw_set_do_count_var(b,d) ((b)->do_count_var_ = (d))
 154 #define ffestw_set_do_hook(b,d) ((b)->do_hook_ = (d))
 155 #define ffestw_set_do_incr_saved(b,d) ((b)->do_incr_saved_ = (d))
 156 #define ffestw_set_do_iter_var(b,v) ((b)->do_iter_var_ = (v))
 157 #define ffestw_set_do_iter_var_t(b,t) ((b)->do_iter_var_t_ = (t))
 158 #define ffestw_set_do_tvar(b,d) ((b)->do_tvar_ = (d))
 159 #define ffestw_set_ifthen_fake_else(b,e) ((b)->ifthen_fake_else_ = (e))
 160 #define ffestw_set_label(b,l) ((b)->label_ = (l))
 161 #define ffestw_set_line(b,l) ((b)->line_ = (l))
 162 #define ffestw_set_name(b,n) ((b)->name_ = (n))
 163 #define ffestw_set_select(b,s) ((b)->select_ = (s))
 164 #define ffestw_set_select_break(b,br) ((b)->select_break_ = (br))
 165 #define ffestw_set_select_texpr(b,t) ((b)->select_texpr_ = (t))
 166 #define ffestw_set_shriek(b,s) ((b)->shriek_ = (s))
 167 #define ffestw_set_state(b,s) ((b)->state_ = (s))
 168 #define ffestw_set_substate(b,s) ((b)->substate_ = (s))
 169 #define ffestw_set_sym(b,s) ((b)->sym_= (s))
 170 #define ffestw_set_top_do(b,t) ((b)->top_do_ = (t))
 171 #define ffestw_shriek(b) ((b)->shriek_)
 172 #define ffestw_stack_top() ffestw_stack_top_
 173 #define ffestw_state(b) ((b)->state_)
 174 #define ffestw_substate(b) ((b)->substate_)
 175 #define ffestw_sym(b) ((b)->sym_)
 176 #define ffestw_terminate_0()
 177 #define ffestw_terminate_1()
 178 #define ffestw_terminate_2()
 179 #define ffestw_terminate_3()
 180 #define ffestw_terminate_4()
 181 #define ffestw_top_do(b) ((b)->top_do_)
 182
 183 /* End of #include file. */
 184
 185 #endif /* ! GCC_F_STW_H */