summaryrefslogtreecommitdiff
path: root/gcc/ada/s-osinte-vxworks.ads
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2010-10-05 11:37:44 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2010-10-05 11:37:44 +0200
commit92817e897757f430013104a01dbbaf222f7d950a (patch)
tree497f5b4a920a207a3da99a885ebca648bd450e5b /gcc/ada/s-osinte-vxworks.ads
parenteada5fd1cf4179586b126a4a6cf6a0e1f6e69a01 (diff)
downloadgcc-92817e897757f430013104a01dbbaf222f7d950a.tar.gz
[multiple changes]
2010-10-05 Emmanuel Briot <briot@adacore.com> * prj-env.adb, prj-env.ads (Set_Path): New subprogram. (Deep_Copy): Removed, not used. 2010-10-05 Javier Miranda <miranda@adacore.com> * sem_ch3.adb (Add_Internal_Interface_Entities): Code reorganization: move code that searches in the list of primitives of a tagged type for the entity that will be overridden by user-defined routines. * sem_disp.adb (Find_Primitive_Covering_Interface): Move here code previously located in routine Add_Internal_Interface_Entities. * sem_disp.ads (Find_Primitive_Covering_Interface): Update documentation * sem_ch6.adb (New_Overloaded_Entity): Add missing check on availability of attribute Alias. 2010-10-05 Ed Falis <falis@adacore.com> * s-taprop-vxworks.adb, s-osinte-vxworks.adb, s-osinte-vxworks.ads, s-vxwext.ads, s-vxwext-kernel.ads, s-vxwext-rtp.adb, s-vxwext-rtp.ads: Move definition of intContext to System.OS_Interface. Add necessary variants in System.VxWorks.Extensions. 2010-10-05 Doug Rupp <rupp@adacore.com> * s-asthan-vms-alpha.adb: On VMS, a task using pragma AST_Entry exhibits a memory leak when the task terminates because the vector allocated for the AST interface is not freed. Fixed by making the vector a controlled type. From-SVN: r164972
Diffstat (limited to 'gcc/ada/s-osinte-vxworks.ads')
-rw-r--r--gcc/ada/s-osinte-vxworks.ads5
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/s-osinte-vxworks.ads b/gcc/ada/s-osinte-vxworks.ads
index dd5f1eb1d6c..857b7cd1c04 100644
--- a/gcc/ada/s-osinte-vxworks.ads
+++ b/gcc/ada/s-osinte-vxworks.ads
@@ -475,6 +475,11 @@ package System.OS_Interface is
-- handler which is invoked after the OS has saved enough context for a
-- high-level language routine to be safely invoked.
+ function Interrupt_Context return int;
+ pragma Inline (Interrupt_Context);
+ -- Return 1 if executing in an interrupt context; return 0 if executing in
+ -- a task context.
+
function Interrupt_Number_To_Vector (intNum : int) return Interrupt_Vector;
pragma Inline (Interrupt_Number_To_Vector);
-- Convert a logical interrupt number to the hardware interrupt vector