diff --git a/common/hw-gfx-gma.ads b/common/hw-gfx-gma.ads
index 2cc28a6..dffb81a 100644
--- a/common/hw-gfx-gma.ads
+++ b/common/hw-gfx-gma.ads
@@ -134,15 +134,6 @@
       Device_Address : GTT_Address_Type;
       Valid          : Boolean);
 
-   -- For the default framebuffer setup (see below) with 90 degree rotations,
-   -- we expect the offset which is used for the final scanout to be above
-   -- `GTT_Rotation_Offset`. So we can use `Offset - GTT_Rotation_Offset` for
-   -- the physical memory location and aperture mapping.
-   function Phys_Offset (FB : Framebuffer_Type) return Word32 is
-     (if Rotation_90 (FB)
-      then FB.Offset - Word32 (GTT_Rotation_Offset) * GTT_Page_Size
-      else FB.Offset);
-
    procedure Setup_Default_FB
      (FB       : in     Framebuffer_Type;
       Clear    : in     Boolean := True;
@@ -156,6 +147,15 @@
 
 private
 
+   -- For the default framebuffer setup (see below) with 90 degree rotations,
+   -- we expect the offset which is used for the final scanout to be above
+   -- `GTT_Rotation_Offset`. So we can use `Offset - GTT_Rotation_Offset` for
+   -- the physical memory location and aperture mapping.
+   function Phys_Offset (FB : Framebuffer_Type) return Word32 is
+     (if Rotation_90 (FB)
+      then FB.Offset - Word32 (GTT_Rotation_Offset) * GTT_Page_Size
+      else FB.Offset);
+
    ----------------------------------------------------------------------------
    -- State tracking for the currently configured pipes