simple support for __attribute__((alias("symbol")))
[cparser] / ast_t.h
diff --git a/ast_t.h b/ast_t.h
index d80860c..8a16c2f 100644 (file)
--- a/ast_t.h
+++ b/ast_t.h
+/*
+ * This file is part of cparser.
+ * Copyright (C) 2012 Matthias Braun <matze@braunis.de>
+ */
 #ifndef AST_T_H
 #define AST_T_H
 
+#include <libfirm/firm_types.h>
+#include <assert.h>
+
 #include "ast.h"
 #include "symbol.h"
-#include "token_t.h"
 #include "type.h"
+#include "entity_t.h"
 #include "adt/obst.h"
 
+/** The AST obstack contains all data that must stay in the AST. */
 extern struct obstack ast_obstack;
 
-typedef enum {
-       EXPR_INVALID = 0,
+/**
+ * Operator precedence classes
+ */
+typedef enum precedence_t {
+       PREC_BOTTOM,
+       PREC_EXPRESSION,     /* ,                                  left to right */
+       PREC_ASSIGNMENT,     /* = += -= *= /= %= <<= >>= &= ^= |=  right to left */
+       PREC_CONDITIONAL,    /* ?:                                 right to left */
+       PREC_LOGICAL_OR,     /* ||                                 left to right */
+       PREC_LOGICAL_AND,    /* &&                                 left to right */
+       PREC_OR,             /* |                                  left to right */
+       PREC_XOR,            /* ^                                  left to right */
+       PREC_AND,            /* &                                  left to right */
+       PREC_EQUALITY,       /* == !=                              left to right */
+       PREC_RELATIONAL,     /* < <= > >=                          left to right */
+       PREC_SHIFT,          /* << >>                              left to right */
+       PREC_ADDITIVE,       /* + -                                left to right */
+       PREC_MULTIPLICATIVE, /* * / %                              left to right */
+       PREC_CAST,           /* (type)                             right to left */
+       PREC_UNARY,          /* ! ~ ++ -- + - * & sizeof           right to left */
+       PREC_POSTFIX,        /* () [] -> .                         left to right */
+       PREC_PRIMARY,
+       PREC_TOP
+} precedence_t;
+
+/**
+ * Expression kinds.
+ */
+typedef enum expression_kind_t {
+       EXPR_ERROR = 1,
        EXPR_REFERENCE,
-       EXPR_CONST,
+       EXPR_ENUM_CONSTANT,
+       EXPR_LITERAL_BOOLEAN,
+       EXPR_LITERAL_INTEGER,
+       EXPR_LITERAL_FLOATINGPOINT,
+       EXPR_LITERAL_CHARACTER,
+       EXPR_LITERAL_MS_NOOP, /**< MS __noop extension */
        EXPR_STRING_LITERAL,
+       EXPR_COMPOUND_LITERAL,
        EXPR_CALL,
-       EXPR_UNARY,
-       EXPR_BINARY,
+       EXPR_CONDITIONAL,
        EXPR_SELECT,
        EXPR_ARRAY_ACCESS,
        EXPR_SIZEOF,
+       EXPR_CLASSIFY_TYPE,
+       EXPR_ALIGNOF,
 
-       EXPR_FUNCTION,
-       EXPR_PRETTY_FUNCTION,
-       EXPR_BUILTIN_SYMBOL,
+       EXPR_FUNCNAME,
+       EXPR_BUILTIN_CONSTANT_P,
+       EXPR_BUILTIN_TYPES_COMPATIBLE_P,
        EXPR_OFFSETOF,
-       EXPR_STATEMENT
-} expresion_type_t;
+       EXPR_VA_START,
+       EXPR_VA_ARG,
+       EXPR_VA_COPY,
+       EXPR_STATEMENT,
+       EXPR_LABEL_ADDRESS, /**< GCC extension &&label operator */
+
+       EXPR_UNARY_FIRST,
+       EXPR_UNARY_NEGATE = EXPR_UNARY_FIRST,
+       EXPR_UNARY_PLUS,
+       EXPR_UNARY_COMPLEMENT,
+       EXPR_UNARY_NOT,
+       EXPR_UNARY_DEREFERENCE,
+       EXPR_UNARY_TAKE_ADDRESS,
+       EXPR_UNARY_POSTFIX_INCREMENT,
+       EXPR_UNARY_POSTFIX_DECREMENT,
+       EXPR_UNARY_PREFIX_INCREMENT,
+       EXPR_UNARY_PREFIX_DECREMENT,
+       EXPR_UNARY_CAST,
+       EXPR_UNARY_ASSUME,        /**< MS __assume() */
+       EXPR_UNARY_DELETE,
+       EXPR_UNARY_DELETE_ARRAY,
+       EXPR_UNARY_THROW,
+       EXPR_UNARY_REAL,
+       EXPR_UNARY_IMAG,
+       EXPR_UNARY_LAST = EXPR_UNARY_IMAG,
+
+       EXPR_BINARY_FIRST,
+       EXPR_BINARY_ADD = EXPR_BINARY_FIRST,
+       EXPR_BINARY_SUB,
+       EXPR_BINARY_MUL,
+       EXPR_BINARY_DIV,
+       EXPR_BINARY_MOD,
+       EXPR_BINARY_EQUAL,
+       EXPR_BINARY_NOTEQUAL,
+       EXPR_BINARY_LESS,
+       EXPR_BINARY_LESSEQUAL,
+       EXPR_BINARY_GREATER,
+       EXPR_BINARY_GREATEREQUAL,
+       EXPR_BINARY_BITWISE_AND,
+       EXPR_BINARY_BITWISE_OR,
+       EXPR_BINARY_BITWISE_XOR,
+       EXPR_BINARY_LOGICAL_AND,
+       EXPR_BINARY_LOGICAL_OR,
+       EXPR_BINARY_SHIFTLEFT,
+       EXPR_BINARY_SHIFTRIGHT,
+       EXPR_BINARY_ASSIGN,
+       EXPR_BINARY_MUL_ASSIGN,
+       EXPR_BINARY_DIV_ASSIGN,
+       EXPR_BINARY_MOD_ASSIGN,
+       EXPR_BINARY_ADD_ASSIGN,
+       EXPR_BINARY_SUB_ASSIGN,
+       EXPR_BINARY_SHIFTLEFT_ASSIGN,
+       EXPR_BINARY_SHIFTRIGHT_ASSIGN,
+       EXPR_BINARY_BITWISE_AND_ASSIGN,
+       EXPR_BINARY_BITWISE_XOR_ASSIGN,
+       EXPR_BINARY_BITWISE_OR_ASSIGN,
+       EXPR_BINARY_COMMA,
+
+       EXPR_BINARY_ISGREATER,
+       EXPR_BINARY_ISGREATEREQUAL,
+       EXPR_BINARY_ISLESS,
+       EXPR_BINARY_ISLESSEQUAL,
+       EXPR_BINARY_ISLESSGREATER,
+       EXPR_BINARY_ISUNORDERED,
+       EXPR_BINARY_LAST = EXPR_BINARY_ISUNORDERED,
+} expression_kind_t;
+
+typedef enum funcname_kind_t {
+       FUNCNAME_FUNCTION,           /**< C99 __func__, older __FUNCTION__ */
+       FUNCNAME_PRETTY_FUNCTION,    /**< GNUC __PRETTY_FUNCTION__ */
+       FUNCNAME_FUNCSIG,            /**< MS __FUNCSIG__ */
+       FUNCNAME_FUNCDNAME           /**< MS __FUNCDNAME__ */
+} funcname_kind_t;
+
+/* convenience macros */
+#define EXPR_BINARY_CASES              \
+            EXPR_BINARY_ADD:                \
+       case EXPR_BINARY_SUB:                \
+       case EXPR_BINARY_MUL:                \
+       case EXPR_BINARY_DIV:                \
+       case EXPR_BINARY_MOD:                \
+       case EXPR_BINARY_EQUAL:              \
+       case EXPR_BINARY_NOTEQUAL:           \
+       case EXPR_BINARY_LESS:               \
+       case EXPR_BINARY_LESSEQUAL:          \
+       case EXPR_BINARY_GREATER:            \
+       case EXPR_BINARY_GREATEREQUAL:       \
+       case EXPR_BINARY_BITWISE_AND:        \
+       case EXPR_BINARY_BITWISE_OR:         \
+       case EXPR_BINARY_BITWISE_XOR:        \
+       case EXPR_BINARY_LOGICAL_AND:        \
+       case EXPR_BINARY_LOGICAL_OR:         \
+       case EXPR_BINARY_SHIFTLEFT:          \
+       case EXPR_BINARY_SHIFTRIGHT:         \
+       case EXPR_BINARY_ASSIGN:             \
+       case EXPR_BINARY_MUL_ASSIGN:         \
+       case EXPR_BINARY_DIV_ASSIGN:         \
+       case EXPR_BINARY_MOD_ASSIGN:         \
+       case EXPR_BINARY_ADD_ASSIGN:         \
+       case EXPR_BINARY_SUB_ASSIGN:         \
+       case EXPR_BINARY_SHIFTLEFT_ASSIGN:   \
+       case EXPR_BINARY_SHIFTRIGHT_ASSIGN:  \
+       case EXPR_BINARY_BITWISE_AND_ASSIGN: \
+       case EXPR_BINARY_BITWISE_XOR_ASSIGN: \
+       case EXPR_BINARY_BITWISE_OR_ASSIGN:  \
+       case EXPR_BINARY_COMMA:              \
+       case EXPR_BINARY_ISGREATER:          \
+       case EXPR_BINARY_ISGREATEREQUAL:     \
+       case EXPR_BINARY_ISLESS:             \
+       case EXPR_BINARY_ISLESSEQUAL:        \
+       case EXPR_BINARY_ISLESSGREATER:      \
+       case EXPR_BINARY_ISUNORDERED
+
+/**
+ * unary expression with mandatory operand
+ */
+#define EXPR_UNARY_CASES_MANDATORY   \
+            EXPR_UNARY_NEGATE:            \
+       case EXPR_UNARY_PLUS:              \
+       case EXPR_UNARY_COMPLEMENT:        \
+       case EXPR_UNARY_NOT:               \
+       case EXPR_UNARY_DEREFERENCE:       \
+       case EXPR_UNARY_TAKE_ADDRESS:      \
+       case EXPR_UNARY_POSTFIX_INCREMENT: \
+       case EXPR_UNARY_POSTFIX_DECREMENT: \
+       case EXPR_UNARY_PREFIX_INCREMENT:  \
+       case EXPR_UNARY_PREFIX_DECREMENT:  \
+       case EXPR_UNARY_CAST:              \
+       case EXPR_UNARY_ASSUME:            \
+       case EXPR_UNARY_DELETE:            \
+       case EXPR_UNARY_DELETE_ARRAY:      \
+       case EXPR_UNARY_IMAG:              \
+       case EXPR_UNARY_REAL
+
+/**
+ * unary expression with optional operand
+ */
+#define EXPR_UNARY_CASES_OPTIONAL \
+       EXPR_UNARY_THROW
+
+#define EXPR_UNARY_CASES           \
+            EXPR_UNARY_CASES_MANDATORY: \
+       case EXPR_UNARY_CASES_OPTIONAL
+
+#define EXPR_LITERAL_CASES                     \
+            EXPR_LITERAL_BOOLEAN:                   \
+       case EXPR_LITERAL_INTEGER:                   \
+       case EXPR_LITERAL_FLOATINGPOINT:             \
+       case EXPR_LITERAL_MS_NOOP
+
+/**
+ * The base class of every expression.
+ */
+struct expression_base_t {
+       expression_kind_t kind;     /**< The expression kind. */
+       type_t           *type;     /**< The type of the expression. */
+       position_t        pos;      /**< The source position of this expression. */
+       bool              parenthesized : 1;
+#ifndef NDEBUG
+       bool              transformed : 1; /**< Set if this expression was transformed. */
+#endif
+       bool              implicit : 1;  /**< compiler generated expression.
+                                           Examples: select into anonymous structs,
+                                           implicit casts */
+};
+
+/**
+ * integer, float and boolean constants
+ */
+struct literal_expression_t {
+       expression_base_t base;
+       string_t          value;
+       char const       *suffix; /**< Start of the suffix in value. */
+
+       /* ast2firm data */
+       ir_tarval        *target_value;
+};
 
-struct context_t {
-       declaration_t   *declarations;
-       compound_type_t *structs;
-       compound_type_t *unions;
-       enum_type_t     *enums;
+/**
+ * string and character literals
+ */
+struct string_literal_expression_t {
+       expression_base_t base;
+       string_t          value;
 };
 
-struct expression_t {
-       expresion_type_t   type;
-       type_t            *datatype;
-       source_position_t  source_position;
+struct funcname_expression_t {
+       expression_base_t  base;
+       funcname_kind_t    kind;
 };
 
-struct const_t {
-       expression_t  expression;
-       int           value;
+struct compound_literal_expression_t {
+       expression_base_t  base;
+       type_t            *type;
+       initializer_t     *initializer;
+       bool               global_scope;
 };
 
-struct string_literal_t {
-       expression_t  expression;
-       const char   *value;
+struct builtin_constant_expression_t {
+       expression_base_t  base;
+       expression_t      *value;
 };
 
-struct builtin_symbol_expression_t {
-       symbol_t     *symbol;
-       expression_t  expression;
+struct builtin_types_compatible_expression_t {
+       expression_base_t  base;
+       type_t            *left;
+       type_t            *right;
 };
 
 struct reference_expression_t {
-       expression_t   expression;
-       symbol_t      *symbol;
-       declaration_t *declaration;
+       expression_base_t  base;
+       entity_t          *entity;
 };
 
+/**
+ * An argument of a call.
+ */
 struct call_argument_t {
-       expression_t    *expression;
-       call_argument_t *next;
+       expression_t    *expression;  /**< The expression which value is transmitted. */
+       call_argument_t *next;        /**< Links to the next argument of this call. */
 };
 
+
 struct call_expression_t {
-       expression_t     expression;
-       expression_t    *method;
-       call_argument_t *arguments;
-};
-
-typedef enum {
-       UNEXPR_INVALID = 0,
-       UNEXPR_NEGATE,
-       UNEXPR_PLUS,
-       UNEXPR_BITWISE_NEGATE,
-       UNEXPR_NOT,
-       UNEXPR_DEREFERENCE,
-       UNEXPR_TAKE_ADDRESS,
-       UNEXPR_POSTFIX_INCREMENT,
-       UNEXPR_POSTFIX_DECREMENT,
-       UNEXPR_PREFIX_INCREMENT,
-       UNEXPR_PREFIX_DECREMENT,
-       UNEXPR_CAST
-} unary_expression_type_t;
+       expression_base_t  base;
+       expression_t      *function;  /**< The address of the function to call. */
+       call_argument_t   *arguments; /**< List of arguments of this call. */
+};
+
 
 struct unary_expression_t {
-       expression_t             expression;
-       unary_expression_type_t  type;
-       expression_t            *value;
-};
-
-typedef enum {
-       BINEXPR_INVALID = 0,
-       BINEXPR_ADD,
-       BINEXPR_SUB,
-       BINEXPR_MUL,
-       BINEXPR_DIV,
-       BINEXPR_MOD,
-       BINEXPR_EQUAL,
-       BINEXPR_NOTEQUAL,
-       BINEXPR_LESS,
-       BINEXPR_LESSEQUAL,
-       BINEXPR_GREATER,
-       BINEXPR_GREATEREQUAL,
-       BINEXPR_BITWISE_AND,
-       BINEXPR_BITWISE_OR,
-       BINEXPR_BITWISE_XOR,
-       BINEXPR_LOGICAL_AND,
-       BINEXPR_LOGICAL_OR,
-       BINEXPR_SHIFTLEFT,
-       BINEXPR_SHIFTRIGHT,
-       BINEXPR_ASSIGN,
-       BINEXPR_MUL_ASSIGN,
-       BINEXPR_DIV_ASSIGN,
-       BINEXPR_MOD_ASSIGN,
-       BINEXPR_ADD_ASSIGN,
-       BINEXPR_SUB_ASSIGN,
-       BINEXPR_SHIFTLEFT_ASSIGN,
-       BINEXPR_SHIFTRIGHT_ASSIGN,
-       BINEXPR_BITWISE_AND_ASSIGN,
-       BINEXPR_BITWISE_XOR_ASSIGN,
-       BINEXPR_BITWISE_OR_ASSIGN,
-       BINEXPR_COMMA
-} binary_expression_type_t;
+       expression_base_t  base;
+       expression_t      *value;     /**< The unary operand. */
+};
 
 struct binary_expression_t {
-       expression_t              expression;
-       binary_expression_type_t  type;
-       expression_t             *left;
-       expression_t             *right;
+       expression_base_t  base;
+       expression_t      *left;
+       expression_t      *right;
 };
 
 struct select_expression_t {
-       expression_t   expression;
-       expression_t  *compound;
-       symbol_t      *symbol;
-
-       declaration_t *compound_entry;
+       expression_base_t  base;
+       expression_t      *compound;
+       entity_t          *compound_entry;
 };
 
 struct array_access_expression_t {
-       expression_t  expression;
-       expression_t *array_ref;
-       expression_t *index;
+       expression_base_t  base;
+       expression_t      *array_ref; /**< the referenced array */
+       expression_t      *index;     /**< the index used */
+       bool               flipped;   /**< True if index/ref was written in a 5[a] way */
 };
 
-struct sizeof_expression_t {
-       expression_t  expression;
-       type_t       *type;
-       expression_t *size_expression;
+struct typeprop_expression_t {
+       expression_base_t  base;
+       type_t            *type;
+       expression_t      *tp_expression;
 };
 
-struct member_designator_t {
-       symbol_t            *symbol;
-       expression_t        *array_access;
-       member_designator_t *next;
+struct designator_t {
+       position_t    pos;
+       symbol_t     *symbol;      /**< the symbol if any */
+       expression_t *array_index; /**< the array index if any */
+       expression_t *range_last;  /**< last index of a range initializer, if any */
+       designator_t *next;
 };
 
 struct offsetof_expression_t {
-       expression_t         expression;
-       type_t              *type;
-       member_designator_t *member_designators;
+       expression_base_t  base;
+       type_t            *type;
+       designator_t      *designator;
+};
+
+struct va_start_expression_t {
+       expression_base_t  base;
+       expression_t      *ap;
+       expression_t      *parameter;
+};
+
+struct va_arg_expression_t {
+       expression_base_t  base;
+       expression_t      *ap;
+};
+
+struct va_copy_expression_t {
+       expression_base_t  base;
+       expression_t      *dst;    /**< destination argument */
+       expression_t      *src;    /**< source argument */
 };
 
 struct conditional_expression_t {
-       expression_t  expression;
-       expression_t *condition;
-       expression_t *true_expression;
-       expression_t *false_expression;
+       expression_base_t  base;
+       expression_t      *condition;
+       expression_t      *true_expression;
+       expression_t      *false_expression;
 };
 
 struct statement_expression_t {
-       expression_t  expression;
-       statement_t  *statement;
-};
-
-typedef enum {
-       STORAGE_CLASS_NONE,
-       STORAGE_CLASS_TYPEDEF,
-       STORAGE_CLASS_EXTERN,
-       STORAGE_CLASS_STATIC,
-       STORAGE_CLASS_AUTO,
-       STORAGE_CLASS_REGISTER,
-       STORAGE_CLASS_ENUM_ENTRY
-} storage_class_t;
-
-struct declaration_t {
-       storage_class_t     storage_class;
-       type_t             *type;
-       symbol_t           *symbol;
-       statement_t        *statement;
-       expression_t       *initializer;
-       source_position_t   source_position;
-       context_t           context;
-
-       declaration_t      *next;
-};
-
-typedef enum {
-       STATEMENT_INVALID,
+       expression_base_t  base;
+       statement_t       *statement;
+};
+
+struct classify_type_expression_t {
+       expression_base_t  base;
+       expression_t      *type_expression;
+};
+
+struct label_address_expression_t {
+       expression_base_t  base;
+       label_t           *label;
+};
+
+union expression_t {
+       expression_kind_t                     kind;
+       expression_base_t                     base;
+       literal_expression_t                  literal;
+       string_literal_expression_t           string_literal;
+       funcname_expression_t                 funcname;
+       compound_literal_expression_t         compound_literal;
+       builtin_constant_expression_t         builtin_constant;
+       builtin_types_compatible_expression_t builtin_types_compatible;
+       reference_expression_t                reference;
+       call_expression_t                     call;
+       unary_expression_t                    unary;
+       binary_expression_t                   binary;
+       select_expression_t                   select;
+       array_access_expression_t             array_access;
+       typeprop_expression_t                 typeprop;
+       offsetof_expression_t                 offsetofe;
+       va_start_expression_t                 va_starte;
+       va_arg_expression_t                   va_arge;
+       va_copy_expression_t                  va_copye;
+       conditional_expression_t              conditional;
+       statement_expression_t                statement;
+       classify_type_expression_t            classify_type;
+       label_address_expression_t            label_address;
+};
+
+typedef enum initializer_kind_t {
+       INITIALIZER_VALUE,
+       INITIALIZER_LIST,
+       INITIALIZER_STRING,
+       INITIALIZER_DESIGNATOR
+} initializer_kind_t;
+
+struct initializer_base_t {
+       initializer_kind_t kind;
+};
+
+struct initializer_value_t {
+       initializer_base_t  base;
+       expression_t       *value;
+};
+
+struct initializer_list_t {
+       initializer_base_t  base;
+       size_t              len;
+       initializer_t      *initializers[];
+};
+
+struct initializer_designator_t {
+       initializer_base_t  base;
+       designator_t       *designator;
+};
+
+union initializer_t {
+       initializer_kind_t        kind;
+       initializer_base_t        base;
+       initializer_value_t       value;
+       initializer_list_t        list;
+       initializer_designator_t  designator;
+};
+
+static inline string_literal_expression_t const *get_init_string(initializer_t const *const init)
+{
+       assert(init->kind == INITIALIZER_STRING);
+       assert(init->value.value->kind == EXPR_STRING_LITERAL);
+       return &init->value.value->string_literal;
+}
+
+/**
+ * The statement kinds.
+ */
+typedef enum statement_kind_t {
+       STATEMENT_ERROR = 1,
+       STATEMENT_EMPTY,
        STATEMENT_COMPOUND,
        STATEMENT_RETURN,
        STATEMENT_DECLARATION,
@@ -211,105 +463,195 @@ typedef enum {
        STATEMENT_EXPRESSION,
        STATEMENT_CONTINUE,
        STATEMENT_BREAK,
+       STATEMENT_COMPUTED_GOTO,
        STATEMENT_GOTO,
        STATEMENT_LABEL,
        STATEMENT_CASE_LABEL,
-       STATEMENT_WHILE,
        STATEMENT_DO_WHILE,
-       STATEMENT_FOR
-} statement_type_t;
-
-struct statement_t {
-       statement_type_t   type;
-       statement_t       *next;
-       source_position_t  source_position;
+       STATEMENT_FOR,
+       STATEMENT_ASM,
+       STATEMENT_MS_TRY,          /**< MS __try/__finally or __try/__except */
+       STATEMENT_LEAVE            /**< MS __leave */
+} statement_kind_t;
+
+/**
+ * The base class of every statement.
+ */
+struct statement_base_t {
+       statement_kind_t kind;
+       statement_t     *next;      /**< Point to the next statement in a compound statement. */
+       position_t       pos;
+       statement_t     *parent;    /**< The Parent statement that controls the execution. */
+       bool             reachable; /**< True, if this statement is reachable. */
+#ifndef NDEBUG
+       bool             transformed;
+#endif
 };
 
 struct return_statement_t {
-       statement_t   statement;
-       expression_t *return_value;
+       statement_base_t  base;
+       expression_t     *value;    /**< The return value if any. */
 };
 
 struct compound_statement_t {
-       statement_t  statement;
-       statement_t *statements;
-       context_t    context;
+       statement_base_t  base;
+       statement_t      *statements;
+       scope_t           scope;
+       bool              stmt_expr; /**< True if this compound statement is a statement expression. */
 };
 
 struct declaration_statement_t {
-       statement_t    statement;
-       declaration_t *declarations_begin;
-       declaration_t *declarations_end;
-
-       int            value_number; /**< filled in by semantic phase */
-       int            refs;
+       statement_base_t  base;
+       entity_t         *declarations_begin;
+       entity_t         *declarations_end;
 };
 
 struct if_statement_t {
-       statement_t   statement;
-       expression_t *condition;
-       statement_t  *true_statement;
-       statement_t  *false_statement;
+       statement_base_t  base;
+       scope_t           scope;
+       expression_t     *condition;
+       statement_t      *true_statement;
+       statement_t      *false_statement;
 };
 
 struct switch_statement_t {
-       statement_t   statement;
-       expression_t *expression;
-       statement_t  *body;
+       statement_base_t        base;
+       scope_t                 scope;
+       expression_t           *expression;
+       statement_t            *body;
+       case_label_statement_t *first_case, *last_case; /**< List of all cases, including default. */
+       case_label_statement_t *default_label;          /**< The default label if existent. */
 };
 
 struct goto_statement_t {
-       statement_t        statement;
-       symbol_t          *label_symbol;
-       label_statement_t *label;
+       statement_base_t  base;
+       label_t          *label;         /**< The destination label. */
+       goto_statement_t *next;          /**< links all goto statements of a function */
+};
+
+struct computed_goto_statement_t {
+       statement_base_t  base;
+       expression_t     *expression; /**< The expression for the computed goto. */
 };
 
 struct case_label_statement_t {
-       statement_t   statement;
-       expression_t *expression;
+       statement_base_t        base;
+       expression_t           *expression;    /**< The case label expression, NULL for default label. */
+       expression_t           *end_range;     /**< For GNUC case a .. b: the end range expression, NULL else. */
+       case_label_statement_t *next;          /**< link to the next case label in switch */
+       statement_t            *statement;
+       ir_tarval              *first_case;
+       ir_tarval              *last_case;
+       bool                   is_bad;         /**< If set marked as bad to suppress warnings. */
+       bool                   is_empty_range; /**< If set marked this as an empty range. */
+       long                   pn;
 };
 
 struct label_statement_t {
-       statement_t        statement;
-       symbol_t          *symbol;
+       statement_base_t   base;
+       label_t           *label;
+       statement_t       *statement;
+       label_statement_t *next;    /**< links all label statements of a function */
 };
 
 struct expression_statement_t {
-       statement_t   statement;
-       expression_t *expression;
-};
-
-struct while_statement_t {
-       statement_t   statement;
-       expression_t *condition;
-       statement_t  *body;
+       statement_base_t  base;
+       expression_t     *expression;
 };
 
 struct do_while_statement_t {
-       statement_t   statement;
-       expression_t *condition;
-       statement_t  *body;
+       statement_base_t  base;
+       scope_t           scope;
+       expression_t     *condition;
+       statement_t      *body;
 };
 
 struct for_statement_t {
-       statement_t   statement;
-       expression_t  *initialisation;
-       expression_t  *condition;
-       expression_t  *step;
-       statement_t   *body;
-       context_t      context;
+       statement_base_t  base;
+       scope_t           scope;
+       expression_t     *initialisation;
+       expression_t     *condition;
+       expression_t     *step;
+       statement_t      *body;
+       bool              condition_reachable:1;
+       bool              step_reachable:1;
+};
+
+struct asm_argument_t {
+       string_t        constraints;
+       expression_t   *expression;
+       symbol_t       *symbol;
+       asm_argument_t *next;
+};
+
+struct asm_clobber_t {
+       string_t       clobber;
+       asm_clobber_t *next;
+};
+
+struct asm_label_t {
+       label_t     *label;
+       asm_label_t *next;
+};
+
+struct asm_statement_t {
+       statement_base_t base;
+       string_t         asm_text;
+       asm_argument_t  *inputs;
+       asm_argument_t  *outputs;
+       asm_clobber_t   *clobbers;
+       asm_label_t     *labels;
+       bool             is_volatile;
+};
+
+struct ms_try_statement_t {
+       statement_base_t  base;
+       statement_t      *try_statement;
+       expression_t     *except_expression; /**< non-null for except, NULL for finally */
+       statement_t      *final_statement;
+};
+
+struct leave_statement_t {
+       statement_base_t  base;
+};
+
+union statement_t {
+       statement_kind_t          kind;
+       statement_base_t          base;
+       return_statement_t        returns;
+       compound_statement_t      compound;
+       declaration_statement_t   declaration;
+       if_statement_t            ifs;
+       switch_statement_t        switchs;
+       computed_goto_statement_t computed_goto;
+       goto_statement_t          gotos;
+       case_label_statement_t    case_label;
+       label_statement_t         label;
+       expression_statement_t    expression;
+       do_while_statement_t      do_while;
+       for_statement_t           fors;
+       asm_statement_t           asms;
+       ms_try_statement_t        ms_try;
+       leave_statement_t         leave;
 };
 
 struct translation_unit_t {
-       context_t context;
+       scope_t      scope;
+       statement_t *global_asm;
 };
 
-static inline
-void *_allocate_ast(size_t size)
+/**
+ * Allocate an AST node with given size and
+ * initialize all fields with zero.
+ */
+static inline void *allocate_ast_zero(size_t size)
 {
-       return obstack_alloc(&ast_obstack, size);
+       return memset(obstack_alloc(&ast_obstack, size), 0, size);
 }
 
-#define allocate_ast(size)                 _allocate_ast(size)
+/** If set, implicit casts are printed. */
+extern bool print_implicit_casts;
+/** If set parenthesis are printed to indicate operator precedence. */
+extern bool print_parenthesis;
 
 #endif