diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-10 09:41:06 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-10 09:41:06 +0000 |
| commit | da8b631d93f0af0c0ef16af22223093403db229b (patch) | |
| tree | 87dfc124522efabbd02e767654b3b7d9f6ddcbfa /gcc/ada/opt.adb | |
| parent | 2a5b09dee9768116a54b52c157d0f99da67992ab (diff) | |
| download | gcc-da8b631d93f0af0c0ef16af22223093403db229b.tar.gz | |
2010-09-10 Robert Dewar <dewar@adacore.com>
* opt.adb (Short_Descriptors): New flag
(Short_Descriptors_Config): New flag
* opt.ads (Short_Descriptors): New flag
(Short_Descriptors_Config): New flag
* par-prag.adb: Add dummy entry for Short_Descriptors pragma
* sem_prag.adb (Set_Mechanism_Value): Deal with Short_Descriptors pragma
(Analyze_Pragma): Implement Short_Descriptors pragma
* snames.ads-tmpl: Add entry for Short_Descriptors pragma
2010-09-10 Emmanuel Briot <briot@adacore.com>
* prj-util.adb, prj-util.ads (Executable_Of): Take into account the
project's Executable_Suffix.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164147 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/opt.adb')
| -rw-r--r-- | gcc/ada/opt.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/opt.adb b/gcc/ada/opt.adb index 65c5726b901..445349ac8c1 100644 --- a/gcc/ada/opt.adb +++ b/gcc/ada/opt.adb @@ -61,6 +61,7 @@ package body Opt is Optimize_Alignment_Config := Optimize_Alignment; Persistent_BSS_Mode_Config := Persistent_BSS_Mode; Polling_Required_Config := Polling_Required; + Short_Descriptors_Config := Short_Descriptors; Use_VADS_Size_Config := Use_VADS_Size; -- Reset the indication that Optimize_Alignment was set locally, since @@ -94,6 +95,7 @@ package body Opt is Optimize_Alignment_Local := Save.Optimize_Alignment_Local; Persistent_BSS_Mode := Save.Persistent_BSS_Mode; Polling_Required := Save.Polling_Required; + Short_Descriptors := Save.Short_Descriptors; Use_VADS_Size := Save.Use_VADS_Size; end Restore_Opt_Config_Switches; @@ -121,6 +123,7 @@ package body Opt is Save.Optimize_Alignment_Local := Optimize_Alignment_Local; Save.Persistent_BSS_Mode := Persistent_BSS_Mode; Save.Polling_Required := Polling_Required; + Save.Short_Descriptors := Short_Descriptors; Save.Use_VADS_Size := Use_VADS_Size; end Save_Opt_Config_Switches; @@ -193,6 +196,7 @@ package body Opt is Fast_Math := Fast_Math_Config; Optimize_Alignment := Optimize_Alignment_Config; Polling_Required := Polling_Required_Config; + Short_Descriptors := Short_Descriptors_Config; end Set_Opt_Config_Switches; --------------- |