comparison gcc/ada/libgnarl/s-vxwext__kernel-smp.adb @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
4 -- -- 4 -- --
5 -- S Y S T E M . V X W O R K S . E X T -- 5 -- S Y S T E M . V X W O R K S . E X T --
6 -- -- 6 -- --
7 -- B o d y -- 7 -- B o d y --
8 -- -- 8 -- --
9 -- Copyright (C) 2008-2017, Free Software Foundation, Inc. -- 9 -- Copyright (C) 2008-2018, Free Software Foundation, Inc. --
10 -- -- 10 -- --
11 -- GNAT is free software; you can redistribute it and/or modify it under -- 11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- -- 12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- -- 13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
86 pragma Import (C, Set_Affinity, "__gnat_set_affinity_mask"); 86 pragma Import (C, Set_Affinity, "__gnat_set_affinity_mask");
87 begin 87 begin
88 return Set_Affinity (tid, CPU_Set); 88 return Set_Affinity (tid, CPU_Set);
89 end taskMaskAffinitySet; 89 end taskMaskAffinitySet;
90 90
91 -------------- 91 ---------------
92 -- taskCont -- 92 -- Task_Cont --
93 -------------- 93 ---------------
94 94
95 function Task_Cont (tid : t_id) return int is 95 function Task_Cont (tid : t_id) return int is
96 function taskCont (tid : t_id) return int; 96 function taskCont (tid : t_id) return int;
97 pragma Import (C, taskCont, "taskCont"); 97 pragma Import (C, taskCont, "taskCont");
98 begin 98 begin
99 return taskCont (tid); 99 return taskCont (tid);
100 end Task_Cont; 100 end Task_Cont;
101 101
102 -------------- 102 ---------------
103 -- taskStop -- 103 -- Task_Stop --
104 -------------- 104 ---------------
105 105
106 function Task_Stop (tid : t_id) return int is 106 function Task_Stop (tid : t_id) return int is
107 function taskStop (tid : t_id) return int; 107 function taskStop (tid : t_id) return int;
108 pragma Import (C, taskStop, "taskStop"); 108 pragma Import (C, taskStop, "taskStop");
109 begin 109 begin