Home
last modified time | relevance | path

Searched refs:Kernel_Proc (Results 1 – 4 of 4) sorted by relevance

/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/
H A Dsem_prag.adb14802 Kernel_Proc : Entity_Id; variable
14814 Kernel_Proc := Entity (Arg_Node);
14815 Pack_Id := Scope (Kernel_Proc);
14817 if Ekind (Kernel_Proc) /= E_Procedure then
14818 Error_Msg_NE ("& must be a procedure", N, Kernel_Proc);
14824 ("& must reside in a library-level package", N, Kernel_Proc);
14827 Set_Is_CUDA_Kernel (Kernel_Proc);
14828 Add_CUDA_Kernel (Pack_Id, Kernel_Proc);
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/
H A Dsem_prag.adb15111 Kernel_Proc : Entity_Id; variable
15122 Kernel_Proc := Entity (Arg_Node);
15123 Pack_Id := Scope (Kernel_Proc);
15125 if Ekind (Kernel_Proc) /= E_Procedure then
15126 Error_Msg_NE ("& must be a procedure", N, Kernel_Proc);
15132 ("& must reside in a library-level package", N, Kernel_Proc);
15135 Set_Is_CUDA_Kernel (Kernel_Proc);
15136 Add_CUDA_Kernel (Pack_Id, Kernel_Proc);
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/
H A Dsem_prag.adb14802 Kernel_Proc : Entity_Id; variable
14814 Kernel_Proc := Entity (Arg_Node);
14815 Pack_Id := Scope (Kernel_Proc);
14817 if Ekind (Kernel_Proc) /= E_Procedure then
14818 Error_Msg_NE ("& must be a procedure", N, Kernel_Proc);
14824 ("& must reside in a library-level package", N, Kernel_Proc);
14827 Set_Is_CUDA_Kernel (Kernel_Proc);
14828 Add_CUDA_Kernel (Pack_Id, Kernel_Proc);
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/
H A Dsem_prag.adb14802 Kernel_Proc : Entity_Id; variable
14814 Kernel_Proc := Entity (Arg_Node);
14815 Pack_Id := Scope (Kernel_Proc);
14817 if Ekind (Kernel_Proc) /= E_Procedure then
14818 Error_Msg_NE ("& must be a procedure", N, Kernel_Proc);
14824 ("& must reside in a library-level package", N, Kernel_Proc);
14827 Set_Is_CUDA_Kernel (Kernel_Proc);
14828 Add_CUDA_Kernel (Pack_Id, Kernel_Proc);