Disable warning for obsolescent 'Class on untagged incomplete type

Fabien-Chouteau · Feb 1, 2024 · d05bb6d · d05bb6d
1 parent 95b5c3e
commit d05bb6d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/usb-device.ads b/src/usb-device.ads
@@ -37,7 +37,9 @@ package USB.Device is
 
    --  Forward declaration of Class
    type USB_Device_Class;
+   pragma Warnings (Off, "*applying 'Class to an untagged incomplete type*");
    type Any_USB_Device_Class is access all USB_Device_Class'Class;
+   pragma Warnings (On, "*applying 'Class to an untagged incomplete type*");
 
    -- Device Stack --