diff --git a/common/hw-gfx-gma.ads b/common/hw-gfx-gma.ads
index 2b1177c..18ca5d4 100644
--- a/common/hw-gfx-gma.ads
+++ b/common/hw-gfx-gma.ads
@@ -35,7 +35,15 @@
    subtype GTT_Range is Natural range 0 .. 16#8_0000# - 1;
    GTT_Rotation_Offset : constant GTT_Range := GTT_Range'Last / 2 + 1;
 
-   type Generation is (I945, G45, Ironlake, Haswell, Broxton, Skylake, Tigerlake);
+   type Generation is
+     (I945,
+      G45,
+      Ironlake,
+      Haswell,
+      Broxton,
+      Skylake,
+      Tigerlake,
+      AlderlakeP);
 
    type CPU_Type is
      (I945G,
@@ -54,7 +62,7 @@
       Skylake,
       Kabylake,
       Tigerlake,
-      Alderlake);
+      AlderlakeP);
 
    type CPU_Variant is (Normal, ULT, ULX);