From da8b631d93f0af0c0ef16af22223093403db229b Mon Sep 17 00:00:00 2001 From: charlet Date: Fri, 10 Sep 2010 09:41:06 +0000 Subject: 2010-09-10 Robert Dewar * 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 * 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 --- gcc/ada/opt.adb | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gcc/ada/opt.adb') 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; --------------- -- cgit v1.2.1