diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-24 10:57:32 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-24 10:57:32 +0000 |
| commit | 2ada93f30687cfcbfdaef6df0734e3910d5ae9f2 (patch) | |
| tree | 6ad4b066aec3ef5f94e1249875ae6bdabc5e9799 /gcc/ada/s-tpinop.ads | |
| parent | b78d43240ad381f46da4f4b7c9a2045d78d96cdc (diff) | |
| download | gcc-2ada93f30687cfcbfdaef6df0734e3910d5ae9f2.tar.gz | |
2008-03-24 Robert Dewar <dewar@adacore.com>
* s-tpopsp-posix.adb, s-tpopsp-solaris.adb, s-tpopsp-posix-foreign.adb,
s-tpopsp-lynxos.adb, s-tpopde-vms.ads, s-tpopde-vms.adb,
s-tpopsp-vxworks.adb, s-casi16.adb, s-caun16.adb, s-inmaop.ads,
s-tadeca.adb, s-tadeca.ads, s-tadert.adb, s-tadert.ads, s-tpinop.adb,
s-tpinop.ads, s-tporft.adb, a-rbtgso.adb, a-crbtgo.ads, a-crbtgo.adb,
a-crbtgk.ads, a-crbtgk.adb, a-ciorse.adb, a-cihama.ads, a-cihama.adb,
a-cidlli.ads, a-cidlli.adb, a-chtgop.ads, a-chtgop.adb, a-cgcaso.ads,
a-cgcaso.adb, a-cgaaso.adb, a-ciormu.adb, a-cihase.adb, a-swuwha.ads,
a-rbtgso.ads, a-cgaaso.ads, a-cgaaso.ads, a-ciorma.adb, a-chtgke.ads,
a-chtgke.adb, a-llfzti.ads, a-ztenau.adb, a-ztenau.ads, a-stzhas.ads,
a-szbzha.ads, a-szbzha.adb, a-crdlli.ads, a-crdlli.ads, a-crdlli.adb,
i-forbla-darwin.adb, i-forbla.ads, s-regexp.adb, a-nllrar.ads,
a-nlrear.ads, a-nucoar.ads, a-nurear.ads, i-forlap.ads, s-gearop.adb,
s-gearop.ads, s-gecobl.adb, s-gecobl.ads, s-gecola.adb, s-gecola.ads,
s-gerebl.adb, s-gerela.ads, a-swuwha.adb, i-forbla-unimplemented.ads,
double spaced if it fits on one line and otherwise single spaced.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133476 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-tpinop.ads')
| -rw-r--r-- | gcc/ada/s-tpinop.ads | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/gcc/ada/s-tpinop.ads b/gcc/ada/s-tpinop.ads index 90a5c1d1916..1a166cc472f 100644 --- a/gcc/ada/s-tpinop.ads +++ b/gcc/ada/s-tpinop.ads @@ -2,12 +2,11 @@ -- -- -- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- -- -- --- S Y S T E M . T A S K _ P R I M I T I V E S . -- --- I N T E R R U P T _ O P E R A T I O N S -- +-- SYSTEM.TASK_PRIMITIVES.INTERRUPT_OPERATIONS -- -- -- --- S p e c -- +-- S p e c -- -- -- --- Copyright (C) 1998-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2007, Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -42,12 +41,12 @@ package System.Task_Primitives.Interrupt_Operations is package ST renames System.Tasking; procedure Set_Interrupt_ID (Interrupt : IM.Interrupt_ID; T : ST.Task_Id); - -- Associate an Interrupt_ID with a task. + -- Associate an Interrupt_ID with a task function Get_Interrupt_ID (T : ST.Task_Id) return IM.Interrupt_ID; - -- Return the Interrupt_ID associated with a task. + -- Return the Interrupt_ID associated with a task function Get_Task_Id (Interrupt : IM.Interrupt_ID) return ST.Task_Id; - -- Return the Task_Id associated with an Interrupt. + -- Return the Task_Id associated with an Interrupt end System.Task_Primitives.Interrupt_Operations; |