diff --git a/common/haswell_shared/hw-gfx-gma-connectors.adb b/common/haswell_shared/hw-gfx-gma-connectors.adb
index fedf660..6419c20 100644
--- a/common/haswell_shared/hw-gfx-gma-connectors.adb
+++ b/common/haswell_shared/hw-gfx-gma-connectors.adb
@@ -82,7 +82,7 @@
 
    ----------------------------------------------------------------------------
 
-   procedure Pre_Off (Port_Cfg : Port_Config)
+   procedure Pre_Off (Pipe : Pipe_Index; Port_Cfg : Port_Config)
    is
    begin
       pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
@@ -91,7 +91,7 @@
       Panel.Off (Port_Cfg.Panel);
    end Pre_Off;
 
-   procedure Post_Off (Port_Cfg : Port_Config)
+   procedure Post_Off (Pipe : Pipe_Index; Port_Cfg : Port_Config)
    is
    begin
       pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));