diff --git a/common/hw-gfx-gma.ads b/common/hw-gfx-gma.ads
index b9c627b..8b1c85a 100644
--- a/common/hw-gfx-gma.ads
+++ b/common/hw-gfx-gma.ads
@@ -58,6 +58,8 @@
       HDMI2, -- or DVI
       HDMI3, -- or DVI
       Analog);
+   subtype Active_Port_Type is Port_Type
+      range Port_Type'Succ (Disabled) .. Port_Type'Last;
 
    type Cursor_Mode is (No_Cursor, ARGB_Cursor);
    type Cursor_Size is (Cursor_64x64, Cursor_128x128, Cursor_256x256);
@@ -235,9 +237,6 @@
    ----------------------------------------------------------------------------
    -- Internal representation of a single pipe's configuration
 
-   subtype Active_Port_Type is Port_Type
-      range Port_Type'Succ (Disabled) .. Port_Type'Last;
-
    type GPU_Port is (DIGI_A, DIGI_B, DIGI_C, DIGI_D, DIGI_E, LVDS, VGA);
 
    subtype Digital_Port is GPU_Port range DIGI_A .. DIGI_E;