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/misc.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/misc.c')
| -rw-r--r-- | gcc/ada/misc.c | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index 7be3b5d..f40d272 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -671,40 +671,6 @@ make_transform_expr (Node_Id gnat_node) return gnu_result; } -/* Update the setjmp buffer BUF with the current stack pointer. We assume - here that a __builtin_setjmp was done to BUF. */ - -void -update_setjmp_buf (tree buf) -{ - enum machine_mode sa_mode = Pmode; - rtx stack_save; - -#ifdef HAVE_save_stack_nonlocal - if (HAVE_save_stack_nonlocal) - sa_mode = insn_data[(int) CODE_FOR_save_stack_nonlocal].operand[0].mode; -#endif -#ifdef STACK_SAVEAREA_MODE - sa_mode = STACK_SAVEAREA_MODE (SAVE_NONLOCAL); -#endif - - stack_save - = gen_rtx_MEM (sa_mode, - memory_address - (sa_mode, - plus_constant (expand_expr - (build_unary_op (ADDR_EXPR, NULL_TREE, buf), - NULL_RTX, VOIDmode, 0), - 2 * GET_MODE_SIZE (Pmode)))); - -#ifdef HAVE_setjmp - if (HAVE_setjmp) - emit_insn (gen_setjmp ()); -#endif - - emit_stack_save (SAVE_NONLOCAL, &stack_save, NULL_RTX); -} - /* These routines are used in conjunction with GCC exception handling. */ /* Map compile-time to run-time tree for GCC exception handling scheme. */ |