diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-18 10:34:56 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-18 10:34:56 +0000 |
| commit | 38e26a05a3eb00ed2e0b33deee45af7ffd7a56c4 (patch) | |
| tree | 1b8e214d778fdfd8d8a13ab7a5c90cf30fac3388 /gcc/ada/s-taprop-mingw.adb | |
| parent | d9c927cc34dae95c3dca6300d1629ebc6c29b189 (diff) | |
| download | gcc-38e26a05a3eb00ed2e0b33deee45af7ffd7a56c4.tar.gz | |
2010-10-18 Robert Dewar <dewar@adacore.com>
* sinfo.ads, sinfo.adb: Change Has_Pragma_CPU to Flag14 (Flag10 is
standard field).
2010-10-18 Robert Dewar <dewar@adacore.com>
* s-stausa.adb, s-taprop-linux.adb, s-taprop-mingw.adb, s-tassta.ads:
Minor reformatting.
2010-10-18 Robert Dewar <dewar@adacore.com>
* exp_strm.adb (Build_Elementary_Input_Call): Check
No_Default_Stream_Attributes.
(Build_Elementary_Write_Call): Check No_Default_Stream_Attributes
* s-rident.ads: Add restriction No_Default_Stream_Attributes
Put restriction No_Allocators_After_Elaboration in alpha order
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165626 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-taprop-mingw.adb')
| -rw-r--r-- | gcc/ada/s-taprop-mingw.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/s-taprop-mingw.adb b/gcc/ada/s-taprop-mingw.adb index bafb0674c9d..768bc3f102a 100644 --- a/gcc/ada/s-taprop-mingw.adb +++ b/gcc/ada/s-taprop-mingw.adb @@ -955,6 +955,7 @@ package body System.Task_Primitives.Operations is -- Step 4: Handle pragma CPU and Task_Info if T.Common.Base_CPU /= System.Multiprocessors.Not_A_Specific_CPU then + -- The CPU numbering in pragma CPU starts at 1 while the subprogram -- to set the affinity starts at 0, therefore we must substract 1. @@ -1116,9 +1117,10 @@ package body System.Task_Primitives.Operations is -- The CPU numbering in pragma CPU starts at 1 while the subprogram -- to set the affinity starts at 0, therefore we must substract 1. - Result := SetThreadIdealProcessor - (Environment_Task.Common.LL.Thread, - ProcessorId (Environment_Task.Common.Base_CPU) - 1); + Result := + SetThreadIdealProcessor + (Environment_Task.Common.LL.Thread, + ProcessorId (Environment_Task.Common.Base_CPU) - 1); pragma Assert (Result = 1); end if; end Initialize; |