diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-19 12:23:38 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-19 12:23:38 +0000 |
| commit | 1a6c80a4637cced6e317c4f94a58d25f634a0116 (patch) | |
| tree | 14cb24c21ec875e765b4243c9cf89edfa2fab5cc /gcc/ada/a-einuoc.ads | |
| parent | 06d55417eceb1645957a85d9d41110e2b41a5bfb (diff) | |
| download | gcc-1a6c80a4637cced6e317c4f94a58d25f634a0116.tar.gz | |
2009-06-19 Emmanuel Briot <briot@adacore.com>
* prj-ext.adb, makeutl.adb, makeutl.ads (Executable_Prefix_Path): Now
make sure we always return a name ending with a path separator.
2009-06-19 Javier Miranda <miranda@adacore.com>
* sem_ch12.adb (Instantiate_Package_Body, Instantiate_Subprogram_Body):
Save and restore the visibility of the parent when installed.
2009-06-19 Jose Ruiz <ruiz@adacore.com>
* s-tposen.ads (Protection_Entry): Replace fields L, Ceiling, and Owner
by Common which contains all these fields.
* s-tposen.adb (Initialize_Protection_Entry, Lock_Entry,
Lock_Read_Only_Entry, Timed_Protected_Single_Entry_Call, Unlock_Entry):
Remove code duplication in this package by means of calling the
equivalent code in s-taprob.
2009-06-19 Robert Dewar <dewar@adacore.com>
* a-einuoc.ads: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148701 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-einuoc.ads')
| -rw-r--r-- | gcc/ada/a-einuoc.ads | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/a-einuoc.ads b/gcc/ada/a-einuoc.ads index e075df95122..8d772b01f52 100644 --- a/gcc/ada/a-einuoc.ads +++ b/gcc/ada/a-einuoc.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2000-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2009, 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- -- @@ -35,7 +35,6 @@ -- be made in a conforming manner. function Ada.Exceptions.Is_Null_Occurrence - (X : Exception_Occurrence) - return Boolean; + (X : Exception_Occurrence) return Boolean; pragma Preelaborate (Ada.Exceptions.Is_Null_Occurrence); -- This function yields True if X is Null_Occurrence, and False otherwise |