diff --git a/common/hw-gfx-gma-config_helpers.ads b/common/hw-gfx-gma-config_helpers.ads
index 1029177..a9cde2b 100644
--- a/common/hw-gfx-gma-config_helpers.ads
+++ b/common/hw-gfx-gma-config_helpers.ads
@@ -35,7 +35,10 @@
 
    ----------------------------------------------------------------------------
 
+   pragma Warnings (GNAT, Off, """Integer_32"" is already use-visible *",
+                    Reason => "Needed for older compiler versions");
    use type HW.Pos32;
+   pragma Warnings (GNAT, On, """Integer_32"" is already use-visible *");
    function Validate_Config
      (Framebuffer : Framebuffer_Type;
       Port_Cfg    : Port_Config;
diff --git a/common/hw-gfx-gma-transcoder.adb b/common/hw-gfx-gma-transcoder.adb
index 27edf31..91ef6b6 100644
--- a/common/hw-gfx-gma-transcoder.adb
+++ b/common/hw-gfx-gma-transcoder.adb
@@ -150,7 +150,10 @@
 
    function Encode (LSW, MSW : Pos16) return Word32
    is
+      pragma Warnings (GNAT, Off, """Integer_16"" is already use-visible *",
+                       Reason => "Needed for older compiler versions");
       use type HW.Pos16;
+      pragma Warnings (GNAT, On, """Integer_16"" is already use-visible *");
    begin
       return Shift_Left (Word32 (MSW - 1), 16) or Word32 (LSW - 1);
    end Encode;