diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2005-07-04 15:27:21 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-07-04 15:27:21 +0200 |
| commit | d9e0a58787285a0753791dd83a5d831bbbc92117 (patch) | |
| tree | 617e7a72024f1df19ef1395e2e890a2461922a3f /gcc/ada/misc.c | |
| parent | c73ae90f23fab6c872b09e02b0d1e34727883056 (diff) | |
| download | gcc-d9e0a58787285a0753791dd83a5d831bbbc92117.zip gcc-d9e0a58787285a0753791dd83a5d831bbbc92117.tar.gz gcc-d9e0a58787285a0753791dd83a5d831bbbc92117.tar.bz2 | |
decl.c (prepend_attributes): New case.
2005-07-04 Eric Botcazou <ebotcazou@adacore.com>
* decl.c (prepend_attributes) <Pragma_Linker_Constructor>: New case.
<Pragma_Linker_Destructor>: Likewise.
* einfo.ads (Has_Gigi_Rep_Item): Document Pragma_Linker_Constructor and
Pragma_Linker_Destructor.
* gigi.h (attr_type): Add ATTR_LINK_CONSTRUCTOR and
ATTR_LINK_DESTRUCTOR.
(static_ctors, static_dtors): New variables.
* misc.c (gnat_expand_body): Output current function as constructor
and destructor if requested.
* par-prag.adb: Add processing for pragma Linker_Constructor and
Linker_Destructor.
* sem_prag.adb (Find_Unique_Parameterless_Procedure): New function
extracted from Check_Interrupt_Or_Attach_Handler.
(Check_Interrupt_Or_Attach_Handler): Invoke it.
Implement pragma Linker_Constructor and Linker_Destructor with the
help of Find_Unique_Parameterless_Procedure.
Replace Name_Alias with Name_Target for pragma Linker_Alias.
* snames.h, snames.ads, snames.adb:
Add Name_Linker_Constructor and Name_Linker_Destructor.
Add Pragma_Linker_Constructor and Pragma_Linker_Destructor.
* snames.adb: Remove Name_Alias.
* trans.c: Include cgraph.h.
(build_global_cdtor): New function.
(Compilation_Unit_to_gnu): Build global constructor and destructor if
needed.
(tree_transform) <N_Identifier>: Substitute renaming of view-conversions
of objects too.
(addressable_p) <COMPONENT_REF>: Unconditionally test
DECL_NONADDRESSABLE_P on STRICT_ALIGNMENT platforms.
* utils.c (process_attributes) <ATTR_LINK_ALIAS>: Do not assemble the
variable if it is external.
(static_ctors, static_dtors): New global variables.
(process_attributes) <ATTR_LINK_CONSTRUCTOR>: New case.
<ATTR_LINK_DESTRUCTOR>: Likewise.
(end_subprog_body): Chain function as constructor and destructor
if requested.
* exp_util.adb (Force_Evaluation): Unconditionally invoke
Remove_Side_Effects with Variable_Ref set to true.
(Remove_Side_Effects): Handle scalar types first. Use a renaming
for non-scalar types even if Variable_Ref is true and for class-wide
expressions.
From-SVN: r101576
Diffstat (limited to 'gcc/ada/misc.c')
| -rw-r--r-- | gcc/ada/misc.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index 0279c2f..819e275 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -462,9 +462,9 @@ gnat_init_gcc_eh (void) using_eh_for_cleanups (); eh_personality_libfunc = init_one_libfunc ("__gnat_eh_personality"); - default_init_unwind_resume_libfunc (); lang_eh_type_covers = gnat_eh_type_covers; lang_eh_runtime_type = gnat_eh_runtime_type; + default_init_unwind_resume_libfunc (); /* Turn on -fexceptions and -fnon-call-exceptions. The first one triggers the generation of the necessary exception runtime tables. The second one @@ -634,6 +634,14 @@ gnat_expand_body (tree gnu_decl) return; tree_rest_of_compilation (gnu_decl); + + if (DECL_STATIC_CONSTRUCTOR (gnu_decl) && targetm.have_ctors_dtors) + targetm.asm_out.constructor (XEXP (DECL_RTL (gnu_decl), 0), + DEFAULT_INIT_PRIORITY); + + if (DECL_STATIC_DESTRUCTOR (gnu_decl) && targetm.have_ctors_dtors) + targetm.asm_out.destructor (XEXP (DECL_RTL (gnu_decl), 0), + DEFAULT_INIT_PRIORITY); } /* Adjusts the RLI used to layout a record after all the fields have been |