diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-04-27 10:49:37 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-04-27 10:49:37 +0000 |
| commit | 8b60815339b0cfea75a21b78a8e90b3878f6c359 (patch) | |
| tree | 6e6eb891c379af7ef0a0d22a61df9c3c339df288 /gcc/ada/gigi.h | |
| parent | 5238a73afff0bac2e3758a6adbf639a160540475 (diff) | |
| download | gcc-8b60815339b0cfea75a21b78a8e90b3878f6c359.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81218 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gigi.h')
| -rw-r--r-- | gcc/ada/gigi.h | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/gigi.h b/gcc/ada/gigi.h index 5f5b995fc61..99b858b223e 100644 --- a/gcc/ada/gigi.h +++ b/gcc/ada/gigi.h @@ -58,10 +58,6 @@ extern tree emit_stack_check (tree); /* Make a TRANSFORM_EXPR to later expand GNAT_NODE into code. */ extern tree make_transform_expr (Node_Id); -/* Update the setjmp buffer BUF with the current stack pointer. We assume - here that a __builtin_setjmp was done to BUF. */ -extern void update_setjmp_buf (tree); - /* GNU_TYPE is a type. Determine if it should be passed by reference by default. */ extern int default_pass_by_ref (tree); @@ -346,6 +342,7 @@ enum standard_datatypes ADT_get_excptr_decl, ADT_setjmp_decl, ADT_longjmp_decl, + ADT_update_setjmp_buf_decl, ADT_raise_nodefer_decl, ADT_begin_handler_decl, ADT_end_handler_decl, @@ -369,6 +366,7 @@ extern GTY(()) tree gnat_raise_decls[(int) LAST_REASON_CODE + 1]; #define get_excptr_decl gnat_std_decls[(int) ADT_get_excptr_decl] #define setjmp_decl gnat_std_decls[(int) ADT_setjmp_decl] #define longjmp_decl gnat_std_decls[(int) ADT_longjmp_decl] +#define update_setjmp_buf_decl gnat_std_decls[(int) ADT_update_setjmp_buf_decl] #define raise_nodefer_decl gnat_std_decls[(int) ADT_raise_nodefer_decl] #define begin_handler_decl gnat_std_decls[(int) ADT_begin_handler_decl] #define end_handler_decl gnat_std_decls[(int) ADT_end_handler_decl] |