/*
* This file is part of cparser.
- * Copyright (C) 2007-2008 Matthias Braun <matze@braunis.de>
+ * Copyright (C) 2007-2009 Matthias Braun <matze@braunis.de>
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
#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_UNKNOWN = 0,
- EXPR_INVALID,
+/**
+ * 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_CHARACTER_CONSTANT,
- EXPR_WIDE_CHARACTER_CONSTANT,
+ 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_WIDE_STRING_LITERAL,
EXPR_COMPOUND_LITERAL,
EXPR_CALL,
EXPR_CONDITIONAL,
EXPR_CLASSIFY_TYPE,
EXPR_ALIGNOF,
- EXPR_FUNCTION,
- EXPR_PRETTY_FUNCTION,
- EXPR_BUILTIN_SYMBOL,
+ EXPR_FUNCNAME,
EXPR_BUILTIN_CONSTANT_P,
- EXPR_BUILTIN_PREFETCH,
+ EXPR_BUILTIN_TYPES_COMPATIBLE_P,
EXPR_OFFSETOF,
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_PREFIX_INCREMENT,
EXPR_UNARY_PREFIX_DECREMENT,
EXPR_UNARY_CAST,
- EXPR_UNARY_CAST_IMPLICIT, /**< compiler generated cast */
EXPR_UNARY_ASSUME, /**< MS __assume() */
- EXPR_UNARY_BITFIELD_EXTRACT,
- EXPR_UNARY_LAST = EXPR_UNARY_BITFIELD_EXTRACT,
+ EXPR_UNARY_DELETE,
+ EXPR_UNARY_DELETE_ARRAY,
+ EXPR_UNARY_THROW,
+ EXPR_UNARY_LAST = EXPR_UNARY_THROW,
EXPR_BINARY_FIRST,
EXPR_BINARY_ADD = EXPR_BINARY_FIRST,
EXPR_BINARY_BITWISE_OR_ASSIGN,
EXPR_BINARY_COMMA,
- EXPR_BINARY_BUILTIN_EXPECT,
EXPR_BINARY_ISGREATER,
EXPR_BINARY_ISGREATEREQUAL,
EXPR_BINARY_ISLESS,
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 \
- case 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_BUILTIN_EXPECT: \
- case EXPR_BINARY_ISGREATER: \
- case EXPR_BINARY_ISGREATEREQUAL: \
- case EXPR_BINARY_ISLESS: \
- case EXPR_BINARY_ISLESSEQUAL: \
- case EXPR_BINARY_ISLESSGREATER: \
- case EXPR_BINARY_ISUNORDERED:
-
-#define EXPR_UNARY_CASES \
- case EXPR_UNARY_NEGATE: \
- case EXPR_UNARY_PLUS: \
- case EXPR_UNARY_BITWISE_NEGATE: \
- 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_CAST_IMPLICIT: \
- case EXPR_UNARY_ASSUME: \
- case EXPR_UNARY_BITFIELD_EXTRACT:
+#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
/**
- * A scope containing declarations.
+ * unary expression with mandatory operand
*/
-struct scope_t {
- declaration_t *declarations; /**< List of declarations in this scope. */
- declaration_t *last_declaration; /**< last declaration in this scope. */
-};
+#define EXPR_UNARY_CASES_MANDATORY \
+ EXPR_UNARY_NEGATE: \
+ case EXPR_UNARY_PLUS: \
+ case EXPR_UNARY_BITWISE_NEGATE: \
+ 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
+
+/**
+ * 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;
- type_t *type;
- source_position_t source_position;
+ 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 */
};
-struct const_expression_t {
- expression_base_t base;
- union {
- long long int_value;
- long double float_value;
- string_t character;
- wide_string_t wide_character;
- } v;
+/**
+ * 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;
};
+/**
+ * string and character literals
+ */
struct string_literal_expression_t {
- expression_base_t base;
- string_t value;
+ expression_base_t base;
+ string_t value;
};
-struct wide_string_literal_expression_t {
+struct funcname_expression_t {
expression_base_t base;
- wide_string_t value;
+ funcname_kind_t kind;
};
struct compound_literal_expression_t {
expression_base_t base;
type_t *type;
initializer_t *initializer;
-};
-
-struct builtin_symbol_expression_t {
- expression_base_t base;
- symbol_t *symbol;
+ bool global_scope;
};
struct builtin_constant_expression_t {
expression_t *value;
};
-struct builtin_prefetch_expression_t {
+struct builtin_types_compatible_expression_t {
expression_base_t base;
- expression_t *adr;
- expression_t *rw;
- expression_t *locality;
+ type_t *left;
+ type_t *right;
};
struct reference_expression_t {
expression_base_t base;
- symbol_t *symbol;
- declaration_t *declaration;
+ 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_base_t base;
- expression_t *function;
- call_argument_t *arguments;
+ 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_base_t base;
- expression_t *value;
+ expression_t *value; /**< The unary operand. */
};
struct binary_expression_t {
struct select_expression_t {
expression_base_t base;
expression_t *compound;
- symbol_t *symbol;
-
- declaration_t *compound_entry;
+ entity_t *compound_entry;
};
struct array_access_expression_t {
expression_base_t base;
- expression_t *array_ref;
- expression_t *index;
- bool flipped; /* index/ref was written in a 5[a] way */
+ 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 typeprop_expression_t {
};
struct designator_t {
- source_position_t source_position;
- symbol_t *symbol;
- expression_t *array_index;
- designator_t *next;
+ position_t pos;
+ symbol_t *symbol; /**< the symbol if any */
+ expression_t *array_index; /**< the array index if any */
+ designator_t *next;
};
struct offsetof_expression_t {
struct va_start_expression_t {
expression_base_t base;
expression_t *ap;
- declaration_t *parameter;
+ expression_t *parameter;
};
struct va_arg_expression_t {
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_base_t base;
expression_t *condition;
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;
- const_expression_t conste;
- string_literal_expression_t string;
- wide_string_literal_expression_t wide_string;
- compound_literal_expression_t compound_literal;
- builtin_symbol_expression_t builtin_symbol;
- builtin_constant_expression_t builtin_constant;
- builtin_prefetch_expression_t builtin_prefetch;
- 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;
- conditional_expression_t conditional;
- statement_expression_t statement;
- classify_type_expression_t classify_type;
-};
-
-typedef enum {
- STORAGE_CLASS_NONE,
- STORAGE_CLASS_EXTERN,
- STORAGE_CLASS_STATIC,
- STORAGE_CLASS_TYPEDEF,
- STORAGE_CLASS_AUTO,
- STORAGE_CLASS_REGISTER,
- STORAGE_CLASS_ENUM_ENTRY,
- STORAGE_CLASS_THREAD,
- STORAGE_CLASS_THREAD_EXTERN,
- STORAGE_CLASS_THREAD_STATIC,
-} storage_class_tag_t;
-
-typedef enum {
- NAMESPACE_NORMAL,
- NAMESPACE_STRUCT,
- NAMESPACE_UNION,
- NAMESPACE_ENUM,
- NAMESPACE_LABEL,
-} namespace_t;
-
-typedef enum {
+ 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_WIDE_STRING,
INITIALIZER_DESIGNATOR
} initializer_kind_t;
initializer_t *initializers[];
};
-struct initializer_string_t {
- initializer_base_t base;
- string_t string;
-};
-
-struct initializer_wide_string_t {
- initializer_base_t base;
- wide_string_t string;
-};
-
struct initializer_designator_t {
initializer_base_t base;
designator_t *designator;
initializer_base_t base;
initializer_value_t value;
initializer_list_t list;
- initializer_string_t string;
- initializer_wide_string_t wide_string;
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;
+}
+
/**
- * Extended microsoft modifier.
+ * The statement kinds.
*/
-typedef enum {
- DM_DLLIMPORT = (1 << 0),
- DM_DLLEXPORT = (1 << 1),
- DM_THREAD = (1 << 2),
- DM_NAKED = (1 << 3),
- DM_MICROSOFT_INLINE = (1 << 4),
- DM_FORCEINLINE = (1 << 5),
- DM_SELECTANY = (1 << 6),
- DM_NOTHROW = (1 << 7),
- DM_NOVTABLE = (1 << 8),
- DM_NORETURN = (1 << 9),
- DM_NOINLINE = (1 << 10),
- DM_DEPRECATED = (1 << 11),
- DM_RESTRICT = (1 << 12),
- DM_NOALIAS = (1 << 13)
-} decl_modifier_t;
-
-typedef unsigned short decl_modifiers_t;
-
-struct declaration_t {
- unsigned char namespc;
- unsigned char declared_storage_class;
- unsigned char storage_class;
- unsigned char alignment; /**< Alignmnet of the declaration, 0 for default. */
- decl_modifiers_t modifiers; /**< MS __declspec modifiers. */
- const char *deprecated_string; /**< MS deprecated string if any. */
- symbol_t *get_property_sym; /**< MS get property. */
- symbol_t *put_property_sym; /**< MS put property. */
- unsigned int address_taken : 1;
- unsigned int is_inline : 1;
- unsigned int used : 1; /**< Set if the declaration is used. */
- type_t *type;
- symbol_t *symbol;
- source_position_t source_position;
- union {
- bool is_defined;
- statement_t *statement;
- initializer_t *initializer;
- expression_t *enum_value;
- } init;
- scope_t scope; /**< The scope that this declaration opens. */
- scope_t *parent_scope; /**< The parant scope where this declaration lives. */
-
- /** next declaration in a scope */
- declaration_t *next;
- /** next declaration with same symbol */
- declaration_t *symbol_next;
-
- /* the following fields are used in ast2firm module */
- unsigned char declaration_kind;
- union {
- unsigned int value_number;
- ir_entity *entity;
- ir_node *block;
- ir_node *vla_base;
- tarval *enum_val;
- ir_type *irtype;
- } v;
-};
-
-typedef enum {
- STATEMENT_INVALID,
+typedef enum statement_kind_t {
+ STATEMENT_ERROR = 1,
STATEMENT_EMPTY,
STATEMENT_COMPOUND,
STATEMENT_RETURN,
STATEMENT_EXPRESSION,
STATEMENT_CONTINUE,
STATEMENT_BREAK,
+ STATEMENT_COMPUTED_GOTO,
STATEMENT_GOTO,
STATEMENT_LABEL,
STATEMENT_CASE_LABEL,
- STATEMENT_WHILE,
STATEMENT_DO_WHILE,
STATEMENT_FOR,
- STATEMENT_ASM
+ 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;
- source_position_t source_position;
-};
-
-struct invalid_statement_t {
- statement_base_t base;
-};
-
-struct empty_statement_t {
- statement_base_t base;
+ 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_base_t base;
- expression_t *value;
+ expression_t *value; /**< The return value if any. */
};
struct compound_statement_t {
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_base_t base;
- declaration_t *declarations_begin;
- declaration_t *declarations_end;
+ entity_t *declarations_begin;
+ entity_t *declarations_end;
};
struct if_statement_t {
statement_base_t base;
+ scope_t scope;
expression_t *condition;
statement_t *true_statement;
statement_t *false_statement;
};
struct switch_statement_t {
- statement_base_t base;
+ statement_base_t base;
+ scope_t scope;
expression_t *expression;
statement_t *body;
- case_label_statement_t *first_case, *last_case;
+ 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_base_t base;
- declaration_t *label; /**< The destination label. */
- goto_statement_t *next; /**< links all goto statements of a function */
+ 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_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. */
+ 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;
- case_label_statement_t *next; /**< link to the next case label in switch */
+ 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_base_t base;
- declaration_t *label;
+ label_t *label;
statement_t *statement;
label_statement_t *next; /**< links all label statements of a function */
};
expression_t *expression;
};
-struct while_statement_t {
- statement_base_t base;
- expression_t *condition;
- statement_t *body;
-};
-
struct do_while_statement_t {
statement_base_t base;
+ scope_t scope;
expression_t *condition;
statement_t *body;
};
struct for_statement_t {
statement_base_t base;
+ scope_t scope;
expression_t *initialisation;
expression_t *condition;
expression_t *step;
statement_t *body;
- scope_t scope;
+ bool condition_reachable:1;
+ bool step_reachable:1;
};
-struct asm_constraint_t {
- string_t constraints;
- expression_t *expression;
- symbol_t *symbol;
- asm_constraint_t *next;
+struct asm_argument_t {
+ string_t constraints;
+ expression_t *expression;
+ symbol_t *symbol;
+ asm_argument_t *next;
};
struct asm_clobber_t {
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;
- string_t asm_text;
- asm_constraint_t *inputs;
- asm_constraint_t *outputs;
- asm_clobber_t *clobbers;
- bool is_volatile;
};
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;
- goto_statement_t gotos;
- case_label_statement_t case_label;
- label_statement_t label;
- expression_statement_t expression;
- while_statement_t whiles;
- do_while_statement_t do_while;
- for_statement_t fors;
- asm_statement_t asms;
+ 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 {
- scope_t scope;
+ scope_t scope;
+ statement_t *global_asm;
};
-static inline
-void *_allocate_ast(size_t size)
-{
- return obstack_alloc(&ast_obstack, size);
-}
-
-static inline
-bool is_invalid_expression(expression_t *expression)
-{
- return expression->base.kind == EXPR_INVALID;
-}
-
-static inline
-bool is_invalid_statement(statement_t *statement)
+/**
+ * Allocate an AST node with given size and
+ * initialize all fields with zero.
+ */
+static inline void *allocate_ast_zero(size_t size)
{
- return statement->base.kind == STATEMENT_INVALID;
+ 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
projects / cparser / blobdiff