diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-11-18 10:23:05 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-11-18 10:23:05 +0000 |
| commit | ba1b7ee1e5de97c84b7ee949ed70a38135c2db48 (patch) | |
| tree | b090ab9f9a5f139484150ad4357701fa093f8525 /gcc/ada/a-interr.ads | |
| parent | 891529cb34c47f8192b0ee9cf1f8d0ccbe8275de (diff) | |
| download | gcc-ba1b7ee1e5de97c84b7ee949ed70a38135c2db48.tar.gz | |
2015-11-18 Arnaud Charlet <charlet@adacore.com>
* switch-c.adb (Scan_Front_End_Switches): Add a check requiring
-gnatc with -gnateg.
2015-11-18 Ed Schonberg <schonberg@adacore.com>
* sem_ch7.adb (Uninstall_Declarations): Before swapping private
and full views, ensure that the potential use visbility of the
two views is consistent.
2015-11-18 Doug Rupp <rupp@adacore.com>
* s-parame-vxworks.adb: Increase default stack size for targets
using stack limit checking.
2015-11-18 Jose Ruiz <ruiz@adacore.com>
* a-interr.adb, a-interr.ads (Ada.Interrupts.Get_CPU): Add this
function that was added to Ada 2005 returning the processor where
interrupt handlers execute.
2015-11-18 Tristan Gingold <gingold@adacore.com>
* exp_ch9.adb (Is_Pure_Barrier): Handle expanded component
declaration of a protected definition.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@230529 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-interr.ads')
| -rw-r--r-- | gcc/ada/a-interr.ads | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/a-interr.ads b/gcc/ada/a-interr.ads index 0ce2ed66d95..309e88e07ac 100644 --- a/gcc/ada/a-interr.ads +++ b/gcc/ada/a-interr.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -34,6 +34,7 @@ ------------------------------------------------------------------------------ with System.Interrupts; +with System.Multiprocessors; with Ada.Task_Identification; package Ada.Interrupts is @@ -81,6 +82,9 @@ package Ada.Interrupts is SPARK_Mode => Off, Global => null; + function Get_CPU + (Interrupt : Interrupt_ID) return System.Multiprocessors.CPU_Range; + private pragma Inline (Is_Reserved); pragma Inline (Is_Attached); @@ -88,4 +92,5 @@ private pragma Inline (Attach_Handler); pragma Inline (Detach_Handler); pragma Inline (Exchange_Handler); + pragma Inline (Get_CPU); end Ada.Interrupts; |