diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-02 08:05:07 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-02 08:05:07 +0000 |
| commit | 3edf3bec2d407a2e3f5da9f22c9724795811a7df (patch) | |
| tree | 5d381c24b941672ebf8b123165aebff6277464f5 /gcc/ada/s-taprop-vms.adb | |
| parent | 98b6691ba4c1f1e991b2b80fec89ef194b99ccf6 (diff) | |
| download | gcc-3edf3bec2d407a2e3f5da9f22c9724795811a7df.tar.gz | |
2011-09-02 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 178437 using svnmerge.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@178439 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-taprop-vms.adb')
| -rw-r--r-- | gcc/ada/s-taprop-vms.adb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/ada/s-taprop-vms.adb b/gcc/ada/s-taprop-vms.adb index 1759c5084c7..1cfafbbb55a 100644 --- a/gcc/ada/s-taprop-vms.adb +++ b/gcc/ada/s-taprop-vms.adb @@ -1254,4 +1254,16 @@ package body System.Task_Primitives.Operations is Enter_Task (Environment_Task); end Initialize; + ----------------------- + -- Set_Task_Affinity -- + ----------------------- + + procedure Set_Task_Affinity (T : ST.Task_Id) is + pragma Unreferenced (T); + + begin + -- Setting task affinity is not supported by the underlying system + + null; + end Set_Task_Affinity; end System.Task_Primitives.Operations; |