From bd548d67e7141c29d4a7b81ca893402bc2ef100a Mon Sep 17 00:00:00 2001 From: Steve Baird Date: Wed, 7 Sep 2022 14:15:46 -0700 Subject: [PATCH] [Ada] Improve CUDA host-side and device-side binder support On the host-side, the binder now generates CUDA_Execute pragmas to invoke initialization and finalization on the device-side. The front end's expansion of these pragmas includes references to entities declared in package CUDA.Internal. Generate a with-clause so that unit will be available. gcc/ada/ * bindgen.adb: When the binder is invoked for the host, generate a "with CUDA.Internal;" with clause. --- gcc/ada/bindgen.adb | 3 +++ 1 file changed, 3 insertions(+) diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 1b21230458ed..b2fa44d2dffd 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -2552,6 +2552,9 @@ package body Bindgen is if Enable_CUDA_Expansion then WBI ("with Interfaces.C;"); WBI ("with Interfaces.C.Strings;"); + + -- with of CUDA.Internal needed for CUDA_Execute pragma expansion + WBI ("with CUDA.Internal;"); end if; Resolve_Binder_Options (Elab_Order); -- 2.47.2