diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-04-27 12:49:37 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-04-27 12:49:37 +0200 |
| commit | f2c9e65ac590ba889a92e83d27869f4c8472b316 (patch) | |
| tree | 6e6eb891c379af7ef0a0d22a61df9c3c339df288 /gcc/ada/decl.c | |
| parent | 4b763d779cd3cc674a476fa5a9c21e7481c309fd (diff) | |
| download | gcc-f2c9e65ac590ba889a92e83d27869f4c8472b316.zip gcc-f2c9e65ac590ba889a92e83d27869f4c8472b316.tar.gz gcc-f2c9e65ac590ba889a92e83d27869f4c8472b316.tar.bz2 | |
[multiple changes]
2004-04-27 Ed Schonberg <schonberg@gnat.com>
* a-wtmoio.ads: Formal type must be a modular type, not a signed
integer type.
2004-04-27 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
* decl.c (gnat_to_gnu_entity, case object): Call
__builtin_update_setjmp_buf.
* gigi.h (update_setjmp_buf): Deleted.
(ADT_update_setjmp_buf_decl, update_setjmp_buf_decl): New.
* misc.c: (update_setjmp_buf): Deleted.
* trans.c (gnat_to_gnu): Call do_pending_stack_adjust and emit_queue
around block of RTL.
* utils.c (init_gigi_decls): Initialize update_setjmp_buf.
From-SVN: r81218
Diffstat (limited to 'gcc/ada/decl.c')
| -rw-r--r-- | gcc/ada/decl.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 289617b3..73c35c5 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -1048,7 +1048,11 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) || (flag_stack_check && ! STACK_CHECK_BUILTIN && 0 < compare_tree_int (DECL_SIZE_UNIT (gnu_decl), STACK_CHECK_MAX_VAR_SIZE)))) - update_setjmp_buf (TREE_VALUE (gnu_block_stack)); + expand_expr_stmt + (build_call_1_expr (update_setjmp_buf_decl, + build_unary_op + (ADDR_EXPR, NULL_TREE, + TREE_VALUE (gnu_block_stack)))); /* If this is a public constant or we're not optimizing and we're not making a VAR_DECL for it, make one just for export or debugger |