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/utils.c | |
| parent | 5238a73afff0bac2e3758a6adbf639a160540475 (diff) | |
| download | ppe42-gcc-8b60815339b0cfea75a21b78a8e90b3878f6c359.tar.gz ppe42-gcc-8b60815339b0cfea75a21b78a8e90b3878f6c359.zip | |
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/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 8c25f489a74..01be1603930 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -688,6 +688,18 @@ init_gigi_decls (tree long_long_float_type, tree exception_type) DECL_BUILT_IN_CLASS (setjmp_decl) = BUILT_IN_NORMAL; DECL_FUNCTION_CODE (setjmp_decl) = BUILT_IN_SETJMP; + /* update_setjmp_buf updates a setjmp buffer from the current stack pointer + address. */ + update_setjmp_buf_decl + = create_subprog_decl + (get_identifier ("__builtin_update_setjmp_buf"), NULL_TREE, + build_function_type (void_type_node, + tree_cons (NULL_TREE, jmpbuf_ptr_type, endlink)), + NULL_TREE, 0, 1, 1, 0); + + DECL_BUILT_IN_CLASS (update_setjmp_buf_decl) = BUILT_IN_NORMAL; + DECL_FUNCTION_CODE (update_setjmp_buf_decl) = BUILT_IN_UPDATE_SETJMP_BUF; + main_identifier_node = get_identifier ("main"); } |
