fix cases where compoundlits are constant/get an entity
[cparser] / ast_t.h
1 /*
2  * This file is part of cparser.
3  * Copyright (C) 2007-2009 Matthias Braun <matze@braunis.de>
4  *
5  * This program is free software; you can redistribute it and/or
6  * modify it under the terms of the GNU General Public License
7  * as published by the Free Software Foundation; either version 2
8  * of the License, or (at your option) any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with this program; if not, write to the Free Software
17  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
18  * 02111-1307, USA.
19  */
20 #ifndef AST_T_H
21 #define AST_T_H
22
23 #include <libfirm/firm_types.h>
24 #include <assert.h>
25
26 #include "ast.h"
27 #include "symbol.h"
28 #include "token_t.h"
29 #include "type.h"
30 #include "entity_t.h"
31 #include "adt/obst.h"
32
33 /** The AST obstack contains all data that must stay in the AST. */
34 extern struct obstack ast_obstack;
35
36 /**
37  * Operator precedence classes
38  */
39 typedef enum precedence_t {
40         PREC_BOTTOM,
41         PREC_EXPRESSION,     /* ,                                  left to right */
42         PREC_ASSIGNMENT,     /* = += -= *= /= %= <<= >>= &= ^= |=  right to left */
43         PREC_CONDITIONAL,    /* ?:                                 right to left */
44         PREC_LOGICAL_OR,     /* ||                                 left to right */
45         PREC_LOGICAL_AND,    /* &&                                 left to right */
46         PREC_OR,             /* |                                  left to right */
47         PREC_XOR,            /* ^                                  left to right */
48         PREC_AND,            /* &                                  left to right */
49         PREC_EQUALITY,       /* == !=                              left to right */
50         PREC_RELATIONAL,     /* < <= > >=                          left to right */
51         PREC_SHIFT,          /* << >>                              left to right */
52         PREC_ADDITIVE,       /* + -                                left to right */
53         PREC_MULTIPLICATIVE, /* * / %                              left to right */
54         PREC_CAST,           /* (type)                             right to left */
55         PREC_UNARY,          /* ! ~ ++ -- + - * & sizeof           right to left */
56         PREC_POSTFIX,        /* () [] -> .                         left to right */
57         PREC_PRIMARY,
58         PREC_TOP
59 } precedence_t;
60
61 /**
62  * Expression kinds.
63  */
64 typedef enum expression_kind_t {
65         EXPR_ERROR = 1,
66         EXPR_REFERENCE,
67         EXPR_ENUM_CONSTANT,
68         EXPR_LITERAL_BOOLEAN,
69         EXPR_LITERAL_INTEGER,
70         EXPR_LITERAL_FLOATINGPOINT,
71         EXPR_LITERAL_CHARACTER,
72         EXPR_LITERAL_MS_NOOP, /**< MS __noop extension */
73         EXPR_STRING_LITERAL,
74         EXPR_COMPOUND_LITERAL,
75         EXPR_CALL,
76         EXPR_CONDITIONAL,
77         EXPR_SELECT,
78         EXPR_ARRAY_ACCESS,
79         EXPR_SIZEOF,
80         EXPR_CLASSIFY_TYPE,
81         EXPR_ALIGNOF,
82
83         EXPR_FUNCNAME,
84         EXPR_BUILTIN_CONSTANT_P,
85         EXPR_BUILTIN_TYPES_COMPATIBLE_P,
86         EXPR_OFFSETOF,
87         EXPR_VA_START,
88         EXPR_VA_ARG,
89         EXPR_VA_COPY,
90         EXPR_STATEMENT,
91         EXPR_LABEL_ADDRESS, /**< GCC extension &&label operator */
92
93         EXPR_UNARY_FIRST,
94         EXPR_UNARY_NEGATE = EXPR_UNARY_FIRST,
95         EXPR_UNARY_PLUS,
96         EXPR_UNARY_BITWISE_NEGATE,
97         EXPR_UNARY_NOT,
98         EXPR_UNARY_DEREFERENCE,
99         EXPR_UNARY_TAKE_ADDRESS,
100         EXPR_UNARY_POSTFIX_INCREMENT,
101         EXPR_UNARY_POSTFIX_DECREMENT,
102         EXPR_UNARY_PREFIX_INCREMENT,
103         EXPR_UNARY_PREFIX_DECREMENT,
104         EXPR_UNARY_CAST,
105         EXPR_UNARY_ASSUME,        /**< MS __assume() */
106         EXPR_UNARY_DELETE,
107         EXPR_UNARY_DELETE_ARRAY,
108         EXPR_UNARY_THROW,
109         EXPR_UNARY_LAST = EXPR_UNARY_THROW,
110
111         EXPR_BINARY_FIRST,
112         EXPR_BINARY_ADD = EXPR_BINARY_FIRST,
113         EXPR_BINARY_SUB,
114         EXPR_BINARY_MUL,
115         EXPR_BINARY_DIV,
116         EXPR_BINARY_MOD,
117         EXPR_BINARY_EQUAL,
118         EXPR_BINARY_NOTEQUAL,
119         EXPR_BINARY_LESS,
120         EXPR_BINARY_LESSEQUAL,
121         EXPR_BINARY_GREATER,
122         EXPR_BINARY_GREATEREQUAL,
123         EXPR_BINARY_BITWISE_AND,
124         EXPR_BINARY_BITWISE_OR,
125         EXPR_BINARY_BITWISE_XOR,
126         EXPR_BINARY_LOGICAL_AND,
127         EXPR_BINARY_LOGICAL_OR,
128         EXPR_BINARY_SHIFTLEFT,
129         EXPR_BINARY_SHIFTRIGHT,
130         EXPR_BINARY_ASSIGN,
131         EXPR_BINARY_MUL_ASSIGN,
132         EXPR_BINARY_DIV_ASSIGN,
133         EXPR_BINARY_MOD_ASSIGN,
134         EXPR_BINARY_ADD_ASSIGN,
135         EXPR_BINARY_SUB_ASSIGN,
136         EXPR_BINARY_SHIFTLEFT_ASSIGN,
137         EXPR_BINARY_SHIFTRIGHT_ASSIGN,
138         EXPR_BINARY_BITWISE_AND_ASSIGN,
139         EXPR_BINARY_BITWISE_XOR_ASSIGN,
140         EXPR_BINARY_BITWISE_OR_ASSIGN,
141         EXPR_BINARY_COMMA,
142
143         EXPR_BINARY_ISGREATER,
144         EXPR_BINARY_ISGREATEREQUAL,
145         EXPR_BINARY_ISLESS,
146         EXPR_BINARY_ISLESSEQUAL,
147         EXPR_BINARY_ISLESSGREATER,
148         EXPR_BINARY_ISUNORDERED,
149         EXPR_BINARY_LAST = EXPR_BINARY_ISUNORDERED,
150 } expression_kind_t;
151
152 typedef enum funcname_kind_t {
153         FUNCNAME_FUNCTION,           /**< C99 __func__, older __FUNCTION__ */
154         FUNCNAME_PRETTY_FUNCTION,    /**< GNUC __PRETTY_FUNCTION__ */
155         FUNCNAME_FUNCSIG,            /**< MS __FUNCSIG__ */
156         FUNCNAME_FUNCDNAME           /**< MS __FUNCDNAME__ */
157 } funcname_kind_t;
158
159 /* convenience macros */
160 #define EXPR_BINARY_CASES              \
161              EXPR_BINARY_ADD:                \
162         case EXPR_BINARY_SUB:                \
163         case EXPR_BINARY_MUL:                \
164         case EXPR_BINARY_DIV:                \
165         case EXPR_BINARY_MOD:                \
166         case EXPR_BINARY_EQUAL:              \
167         case EXPR_BINARY_NOTEQUAL:           \
168         case EXPR_BINARY_LESS:               \
169         case EXPR_BINARY_LESSEQUAL:          \
170         case EXPR_BINARY_GREATER:            \
171         case EXPR_BINARY_GREATEREQUAL:       \
172         case EXPR_BINARY_BITWISE_AND:        \
173         case EXPR_BINARY_BITWISE_OR:         \
174         case EXPR_BINARY_BITWISE_XOR:        \
175         case EXPR_BINARY_LOGICAL_AND:        \
176         case EXPR_BINARY_LOGICAL_OR:         \
177         case EXPR_BINARY_SHIFTLEFT:          \
178         case EXPR_BINARY_SHIFTRIGHT:         \
179         case EXPR_BINARY_ASSIGN:             \
180         case EXPR_BINARY_MUL_ASSIGN:         \
181         case EXPR_BINARY_DIV_ASSIGN:         \
182         case EXPR_BINARY_MOD_ASSIGN:         \
183         case EXPR_BINARY_ADD_ASSIGN:         \
184         case EXPR_BINARY_SUB_ASSIGN:         \
185         case EXPR_BINARY_SHIFTLEFT_ASSIGN:   \
186         case EXPR_BINARY_SHIFTRIGHT_ASSIGN:  \
187         case EXPR_BINARY_BITWISE_AND_ASSIGN: \
188         case EXPR_BINARY_BITWISE_XOR_ASSIGN: \
189         case EXPR_BINARY_BITWISE_OR_ASSIGN:  \
190         case EXPR_BINARY_COMMA:              \
191         case EXPR_BINARY_ISGREATER:          \
192         case EXPR_BINARY_ISGREATEREQUAL:     \
193         case EXPR_BINARY_ISLESS:             \
194         case EXPR_BINARY_ISLESSEQUAL:        \
195         case EXPR_BINARY_ISLESSGREATER:      \
196         case EXPR_BINARY_ISUNORDERED
197
198 /**
199  * unary expression with mandatory operand
200  */
201 #define EXPR_UNARY_CASES_MANDATORY   \
202              EXPR_UNARY_NEGATE:            \
203         case EXPR_UNARY_PLUS:              \
204         case EXPR_UNARY_BITWISE_NEGATE:    \
205         case EXPR_UNARY_NOT:               \
206         case EXPR_UNARY_DEREFERENCE:       \
207         case EXPR_UNARY_TAKE_ADDRESS:      \
208         case EXPR_UNARY_POSTFIX_INCREMENT: \
209         case EXPR_UNARY_POSTFIX_DECREMENT: \
210         case EXPR_UNARY_PREFIX_INCREMENT:  \
211         case EXPR_UNARY_PREFIX_DECREMENT:  \
212         case EXPR_UNARY_CAST:              \
213         case EXPR_UNARY_ASSUME:            \
214         case EXPR_UNARY_DELETE:            \
215         case EXPR_UNARY_DELETE_ARRAY
216
217 /**
218  * unary expression with optional operand
219  */
220 #define EXPR_UNARY_CASES_OPTIONAL \
221         EXPR_UNARY_THROW
222
223 #define EXPR_UNARY_CASES           \
224              EXPR_UNARY_CASES_MANDATORY: \
225         case EXPR_UNARY_CASES_OPTIONAL
226
227 #define EXPR_LITERAL_CASES                     \
228              EXPR_LITERAL_BOOLEAN:                   \
229         case EXPR_LITERAL_INTEGER:                   \
230         case EXPR_LITERAL_FLOATINGPOINT:             \
231         case EXPR_LITERAL_MS_NOOP
232
233 /**
234  * The base class of every expression.
235  */
236 struct expression_base_t {
237         expression_kind_t   kind;            /**< The expression kind. */
238         type_t             *type;            /**< The type of the expression. */
239         source_position_t   source_position; /**< The source position of this expression. */
240         bool                parenthesized : 1;
241 #ifndef NDEBUG
242         bool                transformed : 1;     /**< Set if this expression was transformed. */
243 #endif
244         bool                implicit : 1;    /**< compiler generated expression.
245                                                   Examples:
246                                                      select into anonymous structs
247                                                      implicit casts
248                                               */
249 };
250
251 /**
252  * integer, float and boolean constants
253  */
254 struct literal_expression_t {
255         expression_base_t base;
256         string_t          value;
257         char const       *suffix; /**< Start of the suffix in value. */
258
259         /* ast2firm data */
260         ir_tarval        *target_value;
261 };
262
263 /**
264  * string and character literals
265  */
266 struct string_literal_expression_t {
267         expression_base_t base;
268         string_t          value;
269 };
270
271 struct funcname_expression_t {
272         expression_base_t  base;
273         funcname_kind_t    kind;
274 };
275
276 struct compound_literal_expression_t {
277         expression_base_t  base;
278         type_t            *type;
279         initializer_t     *initializer;
280         bool               global_scope;
281 };
282
283 struct builtin_constant_expression_t {
284         expression_base_t  base;
285         expression_t      *value;
286 };
287
288 struct builtin_types_compatible_expression_t {
289         expression_base_t  base;
290         type_t            *left;
291         type_t            *right;
292 };
293
294 struct reference_expression_t {
295         expression_base_t  base;
296         entity_t          *entity;
297 };
298
299 /**
300  * An argument of a call.
301  */
302 struct call_argument_t {
303         expression_t    *expression;  /**< The expression which value is transmitted. */
304         call_argument_t *next;        /**< Links to the next argument of this call. */
305 };
306
307
308 struct call_expression_t {
309         expression_base_t  base;
310         expression_t      *function;  /**< The address of the function to call. */
311         call_argument_t   *arguments; /**< List of arguments of this call. */
312 };
313
314
315 struct unary_expression_t {
316         expression_base_t  base;
317         expression_t      *value;     /**< The unary operand. */
318 };
319
320 struct binary_expression_t {
321         expression_base_t  base;
322         expression_t      *left;
323         expression_t      *right;
324 };
325
326 struct select_expression_t {
327         expression_base_t  base;
328         expression_t      *compound;
329         entity_t          *compound_entry;
330 };
331
332 struct array_access_expression_t {
333         expression_base_t  base;
334         expression_t      *array_ref; /**< the referenced array */
335         expression_t      *index;     /**< the index used */
336         bool               flipped;   /**< True if index/ref was written in a 5[a] way */
337 };
338
339 struct typeprop_expression_t {
340         expression_base_t  base;
341         type_t            *type;
342         expression_t      *tp_expression;
343 };
344
345 struct designator_t {
346         source_position_t  source_position;
347         symbol_t          *symbol;      /**< the symbol if any */
348         expression_t      *array_index; /**< the array index if any */
349         designator_t      *next;
350 };
351
352 struct offsetof_expression_t {
353         expression_base_t  base;
354         type_t            *type;
355         designator_t      *designator;
356 };
357
358 struct va_start_expression_t {
359         expression_base_t  base;
360         expression_t      *ap;
361         expression_t      *parameter;
362 };
363
364 struct va_arg_expression_t {
365         expression_base_t  base;
366         expression_t      *ap;
367 };
368
369 struct va_copy_expression_t {
370         expression_base_t  base;
371         expression_t      *dst;    /**< destination argument */
372         expression_t      *src;    /**< source argument */
373 };
374
375 struct conditional_expression_t {
376         expression_base_t  base;
377         expression_t      *condition;
378         expression_t      *true_expression;
379         expression_t      *false_expression;
380 };
381
382 struct statement_expression_t {
383         expression_base_t  base;
384         statement_t       *statement;
385 };
386
387 struct classify_type_expression_t {
388         expression_base_t  base;
389         expression_t      *type_expression;
390 };
391
392 struct label_address_expression_t {
393         expression_base_t  base;
394         label_t           *label;
395 };
396
397 union expression_t {
398         expression_kind_t                     kind;
399         expression_base_t                     base;
400         literal_expression_t                  literal;
401         string_literal_expression_t           string_literal;
402         funcname_expression_t                 funcname;
403         compound_literal_expression_t         compound_literal;
404         builtin_constant_expression_t         builtin_constant;
405         builtin_types_compatible_expression_t builtin_types_compatible;
406         reference_expression_t                reference;
407         call_expression_t                     call;
408         unary_expression_t                    unary;
409         binary_expression_t                   binary;
410         select_expression_t                   select;
411         array_access_expression_t             array_access;
412         typeprop_expression_t                 typeprop;
413         offsetof_expression_t                 offsetofe;
414         va_start_expression_t                 va_starte;
415         va_arg_expression_t                   va_arge;
416         va_copy_expression_t                  va_copye;
417         conditional_expression_t              conditional;
418         statement_expression_t                statement;
419         classify_type_expression_t            classify_type;
420         label_address_expression_t            label_address;
421 };
422
423 typedef enum initializer_kind_t {
424         INITIALIZER_VALUE,
425         INITIALIZER_LIST,
426         INITIALIZER_STRING,
427         INITIALIZER_DESIGNATOR
428 } initializer_kind_t;
429
430 struct initializer_base_t {
431         initializer_kind_t kind;
432 };
433
434 struct initializer_value_t {
435         initializer_base_t  base;
436         expression_t       *value;
437 };
438
439 struct initializer_list_t {
440         initializer_base_t  base;
441         size_t              len;
442         initializer_t      *initializers[];
443 };
444
445 struct initializer_designator_t {
446         initializer_base_t  base;
447         designator_t       *designator;
448 };
449
450 union initializer_t {
451         initializer_kind_t        kind;
452         initializer_base_t        base;
453         initializer_value_t       value;
454         initializer_list_t        list;
455         initializer_designator_t  designator;
456 };
457
458 static inline string_literal_expression_t const *get_init_string(initializer_t const *const init)
459 {
460         assert(init->kind == INITIALIZER_STRING);
461         assert(init->value.value->kind == EXPR_STRING_LITERAL);
462         return &init->value.value->string_literal;
463 }
464
465 /**
466  * The statement kinds.
467  */
468 typedef enum statement_kind_t {
469         STATEMENT_ERROR = 1,
470         STATEMENT_EMPTY,
471         STATEMENT_COMPOUND,
472         STATEMENT_RETURN,
473         STATEMENT_DECLARATION,
474         STATEMENT_IF,
475         STATEMENT_SWITCH,
476         STATEMENT_EXPRESSION,
477         STATEMENT_CONTINUE,
478         STATEMENT_BREAK,
479         STATEMENT_COMPUTED_GOTO,
480         STATEMENT_GOTO,
481         STATEMENT_LABEL,
482         STATEMENT_CASE_LABEL,
483         STATEMENT_DO_WHILE,
484         STATEMENT_FOR,
485         STATEMENT_ASM,
486         STATEMENT_MS_TRY,          /**< MS __try/__finally or __try/__except */
487         STATEMENT_LEAVE            /**< MS __leave */
488 } statement_kind_t;
489
490 /**
491  * The base class of every statement.
492  */
493 struct statement_base_t {
494         statement_kind_t   kind;
495         statement_t       *next;         /**< Point to the next statement in a compound statement. */
496         source_position_t  source_position;
497         statement_t       *parent;       /**< The Parent statement that controls the execution. */
498         bool               reachable;    /**< True, if this statement is reachable. */
499 #ifndef NDEBUG
500         bool               transformed;
501 #endif
502 };
503
504 struct return_statement_t {
505         statement_base_t  base;
506         expression_t     *value;    /**< The return value if any. */
507 };
508
509 struct compound_statement_t {
510         statement_base_t  base;
511         statement_t      *statements;
512         scope_t           scope;
513         bool              stmt_expr; /**< True if this compound statement is a statement expression. */
514 };
515
516 struct declaration_statement_t {
517         statement_base_t  base;
518         entity_t         *declarations_begin;
519         entity_t         *declarations_end;
520 };
521
522 struct if_statement_t {
523         statement_base_t  base;
524         scope_t           scope;
525         expression_t     *condition;
526         statement_t      *true_statement;
527         statement_t      *false_statement;
528 };
529
530 struct switch_statement_t {
531         statement_base_t        base;
532         scope_t                 scope;
533         expression_t           *expression;
534         statement_t            *body;
535         case_label_statement_t *first_case, *last_case; /**< List of all cases, including default. */
536         case_label_statement_t *default_label;          /**< The default label if existent. */
537 };
538
539 struct goto_statement_t {
540         statement_base_t  base;
541         label_t          *label;         /**< The destination label. */
542         goto_statement_t *next;          /**< links all goto statements of a function */
543 };
544
545 struct computed_goto_statement_t {
546         statement_base_t  base;
547         expression_t     *expression; /**< The expression for the computed goto. */
548 };
549
550 struct case_label_statement_t {
551         statement_base_t        base;
552         expression_t           *expression;    /**< The case label expression, NULL for default label. */
553         expression_t           *end_range;     /**< For GNUC case a .. b: the end range expression, NULL else. */
554         case_label_statement_t *next;          /**< link to the next case label in switch */
555         statement_t            *statement;
556         ir_tarval              *first_case;
557         ir_tarval              *last_case;
558         bool                   is_bad;         /**< If set marked as bad to suppress warnings. */
559         bool                   is_empty_range; /**< If set marked this as an empty range. */
560         long                   pn;
561 };
562
563 struct label_statement_t {
564         statement_base_t   base;
565         label_t           *label;
566         statement_t       *statement;
567         label_statement_t *next;    /**< links all label statements of a function */
568 };
569
570 struct expression_statement_t {
571         statement_base_t  base;
572         expression_t     *expression;
573 };
574
575 struct do_while_statement_t {
576         statement_base_t  base;
577         scope_t           scope;
578         expression_t     *condition;
579         statement_t      *body;
580 };
581
582 struct for_statement_t {
583         statement_base_t  base;
584         scope_t           scope;
585         expression_t     *initialisation;
586         expression_t     *condition;
587         expression_t     *step;
588         statement_t      *body;
589         bool              condition_reachable:1;
590         bool              step_reachable:1;
591 };
592
593 struct asm_argument_t {
594         string_t        constraints;
595         expression_t   *expression;
596         symbol_t       *symbol;
597         asm_argument_t *next;
598 };
599
600 struct asm_clobber_t {
601         string_t       clobber;
602         asm_clobber_t *next;
603 };
604
605 struct asm_label_t {
606         label_t     *label;
607         asm_label_t *next;
608 };
609
610 struct asm_statement_t {
611         statement_base_t base;
612         string_t         asm_text;
613         asm_argument_t  *inputs;
614         asm_argument_t  *outputs;
615         asm_clobber_t   *clobbers;
616         asm_label_t     *labels;
617         bool             is_volatile;
618 };
619
620 struct ms_try_statement_t {
621         statement_base_t  base;
622         statement_t      *try_statement;
623         expression_t     *except_expression; /**< non-null for except, NULL for finally */
624         statement_t      *final_statement;
625 };
626
627 struct leave_statement_t {
628         statement_base_t  base;
629 };
630
631 union statement_t {
632         statement_kind_t          kind;
633         statement_base_t          base;
634         return_statement_t        returns;
635         compound_statement_t      compound;
636         declaration_statement_t   declaration;
637         if_statement_t            ifs;
638         switch_statement_t        switchs;
639         computed_goto_statement_t computed_goto;
640         goto_statement_t          gotos;
641         case_label_statement_t    case_label;
642         label_statement_t         label;
643         expression_statement_t    expression;
644         do_while_statement_t      do_while;
645         for_statement_t           fors;
646         asm_statement_t           asms;
647         ms_try_statement_t        ms_try;
648         leave_statement_t         leave;
649 };
650
651 struct translation_unit_t {
652         scope_t      scope;
653         statement_t *global_asm;
654 };
655
656 /**
657  * Allocate an AST node with given size and
658  * initialize all fields with zero.
659  */
660 static inline void *allocate_ast_zero(size_t size)
661 {
662         return memset(obstack_alloc(&ast_obstack, size), 0, size);
663 }
664
665 /** If set, implicit casts are printed. */
666 extern bool print_implicit_casts;
667 /** If set parenthesis are printed to indicate operator precedence. */
668 extern bool print_parenthesis;
669
670 #endif