diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-05 09:37:44 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-05 09:37:44 +0000 |
| commit | ee52a7de2129a87bc567c171b4eaed9242f5da49 (patch) | |
| tree | 497f5b4a920a207a3da99a885ebca648bd450e5b /gcc/ada/s-vxwext-rtp.adb | |
| parent | b7ca2e472cb96dc6a8b055d21b0d16c885b1b251 (diff) | |
| download | gcc-ee52a7de2129a87bc567c171b4eaed9242f5da49.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164972 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-vxwext-rtp.adb')
| -rw-r--r-- | gcc/ada/s-vxwext-rtp.adb | 39 |
1 files changed, 29 insertions, 10 deletions
diff --git a/gcc/ada/s-vxwext-rtp.adb b/gcc/ada/s-vxwext-rtp.adb index b11dde27d32..39b7acf4c13 100644 --- a/gcc/ada/s-vxwext-rtp.adb +++ b/gcc/ada/s-vxwext-rtp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2008-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2008-2010, 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- -- @@ -53,15 +53,9 @@ package body System.VxWorks.Ext is return ERROR; end Int_Unlock; - -------------------- - -- Set_Time_Slice -- - -------------------- - - function Set_Time_Slice (ticks : int) return int is - pragma Unreferenced (ticks); - begin - return ERROR; - end Set_Time_Slice; + ----------------------- + -- Interrupt_Connect -- + ----------------------- function Interrupt_Connect (Vector : Interrupt_Vector; @@ -72,6 +66,21 @@ package body System.VxWorks.Ext is return ERROR; end Interrupt_Connect; + ----------------------- + -- Interrupt_Context -- + ----------------------- + + function Interrupt_Context return int is + begin + -- For RTPs, never in an interrupt context + + return 0; + end Interrupt_Context; + + -------------------------------- + -- Interrupt_Number_To_Vector -- + -------------------------------- + function Interrupt_Number_To_Vector (intNum : int) return Interrupt_Vector is pragma Unreferenced (intNum); @@ -79,6 +88,16 @@ package body System.VxWorks.Ext is return 0; end Interrupt_Number_To_Vector; + -------------------- + -- Set_Time_Slice -- + -------------------- + + function Set_Time_Slice (ticks : int) return int is + pragma Unreferenced (ticks); + begin + return ERROR; + end Set_Time_Slice; + ------------------------ -- taskCpuAffinitySet -- ------------------------ |