diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2022-05-09 13:15:02 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-06-02 09:06:47 +0000 |
| commit | d6d9f534f9fa9f8e444906ebfe90053a24d212a5 (patch) | |
| tree | 9414c4a098e5d8c5bf4b7054a6d421b572d00cf7 /gcc/ada/gcc-interface/utils.cc | |
| parent | 134758eed2d3cde5810a037be0f1a6744a7cfcd8 (diff) | |
| download | gcc-d6d9f534f9fa9f8e444906ebfe90053a24d212a5.zip gcc-d6d9f534f9fa9f8e444906ebfe90053a24d212a5.tar.gz gcc-d6d9f534f9fa9f8e444906ebfe90053a24d212a5.tar.bz2 | |
[Ada] Remove left-overs of front-end SJLJ processing
gcc/ada/
* gcc-interface/gigi.h (enum standard_datatypes): Remove values
for the SJLJ exception mechanism.
(jmpbuf_type): Delete.
(jmpbuf_ptr_type): Likewise.
(get_jmpbuf_decl): Likewise.
(set_jmpbuf_decl): Likewise.
(get_excptr_decl): Likewise.
(not_handled_by_others_decl): Likewise.
(setjmp_decl): Likewise.
(update_setjmp_buf_decl): Likewise.
(raise_nodefer_decl): Likewise.
(set_block_jmpbuf_decl): Likewise.
(get_block_jmpbuf_decl): Likewise.
* gcc-interface/trans.cc (gigi): Delete dead code.
* gcc-interface/utils.cc (gnat_binding_level): Remove JMPBUF_DECL.
(gnat_pushlevel): Do not clear it.
(set_block_jmpbuf_decl): Delete.
(get_block_jmpbuf_decl): Likewise.
Diffstat (limited to 'gcc/ada/gcc-interface/utils.cc')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.cc | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/gcc/ada/gcc-interface/utils.cc b/gcc/ada/gcc-interface/utils.cc index 3aa810b..b5c2bfb 100644 --- a/gcc/ada/gcc-interface/utils.cc +++ b/gcc/ada/gcc-interface/utils.cc @@ -264,9 +264,6 @@ struct GTY((chain_next ("%h.chain"))) gnat_binding_level { struct gnat_binding_level *chain; /* The BLOCK node for this level. */ tree block; - /* If nonzero, the setjmp buffer that needs to be updated for any - variable-sized definition within this context. */ - tree jmpbuf_decl; }; /* The binding level currently in effect. */ @@ -599,7 +596,6 @@ gnat_pushlevel (void) /* Add this level to the front of the chain (stack) of active levels. */ newlevel->chain = current_binding_level; - newlevel->jmpbuf_decl = NULL_TREE; current_binding_level = newlevel; } @@ -614,22 +610,6 @@ set_current_block_context (tree fndecl) set_block_for_group (current_binding_level->block); } -/* Set the jmpbuf_decl for the current binding level to DECL. */ - -void -set_block_jmpbuf_decl (tree decl) -{ - current_binding_level->jmpbuf_decl = decl; -} - -/* Get the jmpbuf_decl, if any, for the current binding level. */ - -tree -get_block_jmpbuf_decl (void) -{ - return current_binding_level->jmpbuf_decl; -} - /* Exit a binding level. Set any BLOCK into the current code group. */ void |