diff --git a/common/haswell_shared/hw-gfx-gma-connectors.adb b/common/haswell_shared/hw-gfx-gma-connectors.adb
index 7e8f133..15b3c12 100644
--- a/common/haswell_shared/hw-gfx-gma-connectors.adb
+++ b/common/haswell_shared/hw-gfx-gma-connectors.adb
@@ -22,10 +22,10 @@
 package body HW.GFX.GMA.Connectors is
 
    procedure Pre_On
-     (Port_Cfg    : in     Port_Config;
-      PLL_Hint    : in     Word32;
-      Pipe_Hint   : in     Word32;
-      Success     :    out Boolean)
+     (Pipe     : in     Pipe_Index;
+      Port_Cfg : in     Port_Config;
+      PLL_Hint : in     Word32;
+      Success  :    out Boolean)
    is
    begin
       pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));