diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-09-10 15:21:28 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-09-10 15:21:28 +0000 |
| commit | 8b6fb1f0cf8175ad979dd7cf1b884700bd3b7a0d (patch) | |
| tree | 2aa1248d70e80464bb18ab1104c8321f79d18735 /gcc/ada/inline.ads | |
| parent | 39aa587b61c8163166c1ca91e8dd1aba2076276f (diff) | |
| download | ppe42-gcc-8b6fb1f0cf8175ad979dd7cf1b884700bd3b7a0d.tar.gz ppe42-gcc-8b6fb1f0cf8175ad979dd7cf1b884700bd3b7a0d.zip | |
2013-09-10 Robert Dewar <dewar@adacore.com>
* sinput.adb (Check_For_BOM): Avoid reading past end of file.
2013-09-10 Robert Dewar <dewar@adacore.com>
* errout.adb (Error_Msg_Ada_2012_Feature): New procedure.
* errout.ads (Error_Msg_Ada_2012_Feature): New procedure.
* inline.ads: Save/Restore Ada_Version_Pragma.
* opt.adb: Save/Restore Ada_Version_Pragma.
* opt.ads (Ada_Version_Pragma): New variable.
* par-ch11.adb, par-ch12.adb, par-ch13.adb, par-ch4.adb, par-ch5.adb,
par-ch6.adb, par-ch8.adb, par-prag.adb: Use Error_Msg_Ada_2012_Feature.
* prj.adb: Initialize Ada_Version_Pragma.
* sem_attr.adb: Use Error_Msg_Ada_2012_Feature.
* sem_ch12.adb, sem_ch8.adb: Save/restore Ada_Version_Pragma.
* sem_prag.adb (Analyze_Pragma, cases Ada_xx): Set Ada_Version_Pragma.
* switch-c.adb: Initialize Ada_Version_Pragma.
* sem_ch12.adb: Minor reformatting.
2013-09-10 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Process_Subtype): Discard constraint on access
to class-wide type. Such constraints are not supported and are
considered a language pathology.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@202466 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/inline.ads')
| -rw-r--r-- | gcc/ada/inline.ads | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/inline.ads b/gcc/ada/inline.ads index f3750a83aa2..d34a7f17302 100644 --- a/gcc/ada/inline.ads +++ b/gcc/ada/inline.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -89,6 +89,9 @@ package Inline is -- The body must be compiled with the same language version as the -- spec. The version may be set by a configuration pragma in a separate -- file or in the current file, and may differ from body to body. + + Version_Pragma : Node_Id; + -- This is linked with the Version value end record; package Pending_Instantiations is new Table.Table ( |
