diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-09 13:04:22 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-09 13:04:22 +0000 |
| commit | 03a47ff8bdc5c550294a3037a9b4296de145c8c2 (patch) | |
| tree | 3fef9ff3dd94805e61859a72fa312ef06a6d2167 /gcc/ada/sem_prag.adb | |
| parent | 68eabe8cd741658822954a5dd2bb7679425e64f8 (diff) | |
| download | gcc-03a47ff8bdc5c550294a3037a9b4296de145c8c2.tar.gz | |
2010-09-09 Doug Rupp <rupp@adacore.com>
* sem_prag.adb (pragma Ident): Pass --identification= vice
IDENTIFICATION=
* gnatlink.adb (Linker_Options): Look for --identification= vice
IDENTIFICATION=
2010-09-09 Gary Dismukes <dismukes@adacore.com>
* exp_attr.adb (Expand_N_Attribute_Reference, case Attribute_Old): When
inserting and analyzing the object declaration for the temporary object
created to hold a 'Old value, push the scope for the subprogram where
the object is inserted, so that its Scope (and that of related objects)
will be set properly.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164088 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 44720f02cff..a3b400e6100 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -7845,12 +7845,12 @@ package body Sem_Prag is else -- In VMS, the effect of IDENT is achieved by passing - -- IDENTIFICATION=name as a --for-linker switch. + -- --identification=name as a --for-linker switch. if OpenVMS_On_Target then Start_String; Store_String_Chars - ("--for-linker=IDENTIFICATION="); + ("--for-linker=--identification="); String_To_Name_Buffer (Strval (Str)); Store_String_Chars (Name_Buffer (1 .. Name_Len)); @@ -7860,7 +7860,7 @@ package body Sem_Prag is -- associated with a with'd package. Replace_Linker_Option_String - (End_String, "--for-linker=IDENTIFICATION="); + (End_String, "--for-linker=--identification="); end if; Set_Ident_String (Current_Sem_Unit, Str); |