diff options
| author | bothner <bothner@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-08-21 19:32:19 +0000 |
|---|---|---|
| committer | bothner <bothner@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-08-21 19:32:19 +0000 |
| commit | d0b30cc7eada13ec9c21121f26a226582f86e283 (patch) | |
| tree | 2912034df9bcf9f36efdba1c1be1eca3aadb3c4a /gcc/expr.c | |
| parent | d43c954b493b1f926ed55b6f2e9ae6c8db47b056 (diff) | |
| download | gcc-d0b30cc7eada13ec9c21121f26a226582f86e283.tar.gz | |
�
* tree.def (LABELED_BLOCK_EXPR, EXIT_BLOCK_EXPR): New tree nodes.
* tree.h (LABELED_BLOCK_LABEL, LABELED_BLOCK_BODY,
EXIT_BLOCK_LABELED_BLOCK, EXIT_BLOCK_RETURN, LOOP_EXPR_BODY): New
macros.
* expr.c (expand_expr): Handle LABELED_BLOCK_EXPR and
EXIT_BLOCK_EXPR.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@21897 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/expr.c')
| -rw-r--r-- | gcc/expr.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/expr.c b/gcc/expr.c index e14517bf58c..22fc5f73e79 100644 --- a/gcc/expr.c +++ b/gcc/expr.c @@ -5796,6 +5796,18 @@ expand_expr (exp, target, tmode, modifier) invert_truthvalue (TREE_OPERAND (exp, 0))); return const0_rtx; + case LABELED_BLOCK_EXPR: + if (LABELED_BLOCK_BODY (exp)) + expand_expr_stmt (LABELED_BLOCK_BODY (exp)); + emit_label (label_rtx (LABELED_BLOCK_LABEL (exp))); + return const0_rtx; + + case EXIT_BLOCK_EXPR: + if (EXIT_BLOCK_RETURN (exp)) + really_sorry ("returned value in block_exit_expr"); + expand_goto (LABELED_BLOCK_LABEL (EXIT_BLOCK_LABELED_BLOCK (exp))); + return const0_rtx; + case LOOP_EXPR: push_temp_slots (); expand_start_loop (1); |