diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-25 09:34:02 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-25 09:34:02 +0000 |
| commit | 426bd7d68dd3b474a7d309c94e71ececa16d8bff (patch) | |
| tree | e33ff61b64fe2dc5c8b03a655de538b8f1d30368 /gcc/ada/vms_data.ads | |
| parent | 77378d518eb62788e2f759abb1a87a66dfafabaf (diff) | |
| download | gcc-426bd7d68dd3b474a7d309c94e71ececa16d8bff.tar.gz | |
2009-06-25 Vincent Celier <celier@adacore.com>
* vms_data.ads: Minor comment change
2009-06-25 Gary Dismukes <dismukes@adacore.com>
* exp_ch5.adb (Expand_N_Extended_Return_Statement): Don't build an
assignment statement to targeting a caller-provided object when the
result type is an interface type.
* exp_ch6.adb (Expand_Call): Remove redundant test of
Is_Limited_Interface (Is_Inherently_Limited is sufficient).
(Is_Build_In_Place_Function): Remove test for Is_Limited_Interface.
* sem_aggr.adb (Check_Expr_OK_In_Limited_Aggregate): Add type in call
to OK_For_Limited_Init.
* sem_aux.adb (Is_Inherently_Limited_Type): Revise limited type
condition so that True is returned for all limited interfaces, not
just synchronized ones. Ignore components of an interface type when
checking for limited components (such a component can be a parent
component).
* sem_ch3.ads (OK_For_Limited_Init_In_05): Add type parameter.
(OK_For_Limited_Init): Add type parameter.
* sem_ch3.adb (Check_Initialization): Add type in call to
OK_For_Limited_Init.
(OK_For_Limited_Init): Add new type param in call to
OK_For_Limited_Init_In_05.
(OK_For_Limited_Init_In_05): Permit arbitrary expressions of a
nonlimited type when the context type is a limited interface. Add type
on recursive calls.
* sem_ch4.adb (Analyze_Allocator): Add type in call to
OK_For_Limited_Init.
* sem_ch6.adb (Check_Limited_Return): Add type in call to
OK_For_Limited_Init.
* sem_ch12.adb (Analyze_Formal_Object_Declaration): Add type in call to
OK_For_Limited_Init.
(Instantiate_Object): Add type in call to OK_For_Limited_Init.
* sem_type.adb (Interface_Present_In_Ancestor): In the case of a
class-wide interface, get the base type before applying Etype, in order
to account for class-wide subtypes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148938 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/vms_data.ads')
| -rw-r--r-- | gcc/ada/vms_data.ads | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index 07047c71b5b..a8565c3d2e2 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -820,12 +820,19 @@ package VMS_Data is -- -- Work quietly, only output warnings and errors. - S_Check_Time : aliased constant S := "/TIME " & - "-t"; + S_Check_Time : aliased constant S := "/TIME " & + "-t"; -- /NOTIME (D) - -- /QUIET + -- /TIME + -- + -- Print out execution time + + S_Check_Log : aliased constant S := "/LOG " & + "-log"; + -- /NOLOG (D) + -- /LOG -- - -- Print out execution time + -- Duplicate all the output sent to Stderr into a log file. S_Check_Sections : aliased constant S := "/SECTIONS=" & "DEFAULT " & @@ -901,6 +908,7 @@ package VMS_Data is S_Check_Project 'Access, S_Check_Quiet 'Access, S_Check_Time 'Access, + S_Check_Log 'Access, S_Check_Sections 'Access, S_Check_Short 'Access, S_Check_Subdirs 'Access, |