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