diff options
| author | Robert Dewar <dewar@gnat.com> | 2001-10-26 01:41:17 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-26 03:41:17 +0200 |
| commit | 24377ae42f5715c9e6857645a7476644244032e3 (patch) | |
| tree | 3f0087a351e27c0d9ea29709022a85395a3b7602 /gcc | |
| parent | fef3204ec6f690b5b3eea1fbb782556202804af8 (diff) | |
| download | gcc-24377ae42f5715c9e6857645a7476644244032e3.tar.gz | |
s-atacco.ads: Add pragma Inline_Always for functions.
* s-atacco.ads: Add pragma Inline_Always for functions.
Fix header format. Add copyright 2001
From-SVN: r46518
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/s-atacco.ads | 36 |
2 files changed, 36 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a776dee0916..763f7416452 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2001-10-25 Robert Dewar <dewar@gnat.com> + + * s-atacco.ads: Add pragma Inline_Always for functions. + Fix header format. Add copyright 2001 + 2001-10-25 Ed Schonberg <schonber@gnat.com> * par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array diff --git a/gcc/ada/s-atacco.ads b/gcc/ada/s-atacco.ads index e5db1ee268a..3f44bc38f28 100644 --- a/gcc/ada/s-atacco.ads +++ b/gcc/ada/s-atacco.ads @@ -6,12 +6,34 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.3 $ -- +-- $Revision$ -- -- --- This specification is adapted from the Ada Reference Manual for use with -- --- GNAT. In accordance with the copyright of that document, you can freely -- --- copy and modify this specification, provided that if you redistribute a -- --- modified version, any changes that you have made are clearly indicated. -- +-- Copyright (C) 2001 Ada Core Technologies, Inc. -- +-- -- +-- This specification is derived from the Ada Reference Manual for use with -- +-- GNAT. The copyright notice above, and the license provisions that follow -- +-- apply solely to the contents of the part following the private keyword. -- +-- -- +-- 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- -- +-- ware Foundation; either version 2, or (at your option) any later ver- -- +-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- +-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- +-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- +-- for more details. You should have received a copy of the GNU General -- +-- Public License distributed with GNAT; see file COPYING. If not, write -- +-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, -- +-- MA 02111-1307, USA. -- +-- -- +-- As a special exception, if other files instantiate generics from this -- +-- unit, or you link this unit with other files to produce an executable, -- +-- this unit does not by itself cause the resulting executable to be -- +-- covered by the GNU General Public License. This exception does not -- +-- however invalidate any other reasons why the executable file might be -- +-- covered by the GNU Public License. -- +-- -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- -- -- ------------------------------------------------------------------------------ @@ -30,4 +52,8 @@ pragma Preelaborate (Address_To_Access_Conversions); pragma Convention (Intrinsic, To_Pointer); pragma Convention (Intrinsic, To_Address); +private + pragma Inline_Always (To_Pointer); + pragma Inline_Always (To_Address); + end System.Address_To_Access_Conversions; |