X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ast_t.h;h=8a16c2fd76c723a5728b66ebaa020fd7897f7596;hb=refs%2Fheads%2Falias;hp=d80860c293a4f29516db2a1b5a0b2da84131a337;hpb=dad2cfa20847b2ec1de207f807c41c4ed3471b81;p=cparser diff --git a/ast_t.h b/ast_t.h index d80860c..8a16c2f 100644 --- a/ast_t.h +++ b/ast_t.h @@ -1,208 +1,460 @@ +/* + * This file is part of cparser. + * Copyright (C) 2012 Matthias Braun + */ #ifndef AST_T_H #define AST_T_H +#include +#include + #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