1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | with System; with System.Multiprocessors; with System.Storage_Elements; package P is task type TT (Base_Priority : System.Priority; Storage_Size : System.Storage_Elements.Storage_Offset; Cpu : System.Multiprocessors.Cpu_Range) with Priority => Base_Priority, Storage_Size => Storage_Size, Cpu => Cpu is entry Start (N : Integer); end TT; function F return Integer is (1); end P; |