2 Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
3 Free Software Foundation, Inc.
4 Contributed by Steven Bosscher
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 3, or (at your option) any later
13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
28 /* Enum for what the compiler is currently doing. */
31 COMP_NONE
, COMP_PROGRAM
, COMP_MODULE
, COMP_SUBROUTINE
, COMP_FUNCTION
,
32 COMP_BLOCK_DATA
, COMP_INTERFACE
, COMP_DERIVED
, COMP_DERIVED_CONTAINS
,
34 COMP_DO
, COMP_SELECT
, COMP_FORALL
, COMP_WHERE
, COMP_CONTAINS
, COMP_ENUM
,
35 COMP_SELECT_TYPE
, COMP_OMP_STRUCTURED_BLOCK
, COMP_CRITICAL
39 /* Stack element for the current compilation state. These structures
40 are allocated as automatic variables. */
41 typedef struct gfc_state_data
43 gfc_compile_state state
;
44 gfc_symbol
*sym
; /* Block name associated with this level */
45 gfc_symtree
*do_variable
; /* For DO blocks the iterator variable. */
47 struct gfc_code
*head
, *tail
;
48 struct gfc_state_data
*previous
;
50 /* Block-specific state data. */
53 gfc_st_label
*end_do_label
;
59 extern gfc_state_data
*gfc_state_stack
;
61 #define gfc_current_block() (gfc_state_stack->sym)
62 #define gfc_current_state() (gfc_state_stack->state)
64 int gfc_check_do_variable (gfc_symtree
*);
65 gfc_try
gfc_find_state (gfc_compile_state
);
66 gfc_state_data
*gfc_enclosing_unit (gfc_compile_state
*);
67 const char *gfc_ascii_statement (gfc_statement
);
68 match
gfc_match_enum (void);
69 match
gfc_match_enumerator_def (void);
70 void gfc_free_enum_history (void);
71 extern bool gfc_matching_function
;
72 match
gfc_match_prefix (gfc_typespec
*);
73 gfc_namespace
* gfc_build_block_ns (gfc_namespace
*);
74 #endif /* GFC_PARSE_H */