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;