4 files changed, 30 insertions, 0 deletions
diff --git a/src/drivers/intel/gma/gma-gfx_init.ads b/src/drivers/intel/gma/gma-gfx_init.ads
index 4998d3312e..fc45672ee0 100644
--- a/src/drivers/intel/gma/gma-gfx_init.ads
+++ b/src/drivers/intel/gma/gma-gfx_init.ads
@@ -11,6 +11,9 @@ is
    procedure gfxinit (lightup_ok : out Interfaces.C.int);
    pragma Export (C, gfxinit, "gma_gfxinit");
 
+   procedure gfxstop (stop_ok : out Interfaces.C.int);
+   pragma Export (C, gfxstop, "gma_gfxstop");
+
    ----------------------------------------------------------------------------
 
    function c_fb_add_framebuffer_info
diff --git a/src/drivers/intel/gma/hires_fb/gma-gfx_init.adb b/src/drivers/intel/gma/hires_fb/gma-gfx_init.adb
index b213030b2b..83516af171 100644
--- a/src/drivers/intel/gma/hires_fb/gma-gfx_init.adb
+++ b/src/drivers/intel/gma/hires_fb/gma-gfx_init.adb
@@ -97,4 +97,17 @@ is
       end if;
    end gfxinit;
 
+   procedure gfxstop (stop_ok : out Interfaces.C.int)
+   is
+      success : boolean;
+   begin
+      HW.GFX.GMA.Initialize (Clean_State => True,
+      			     Success => success);
+      if success then
+         stop_ok := 1;
+      else
+         stop_ok := 0;
+      end if;
+   end gfxstop;
+
 end GMA.GFX_Init;
diff --git a/src/drivers/intel/gma/libgfxinit.h b/src/drivers/intel/gma/libgfxinit.h
index 9a7e1c6f90..3270b91752 100644
--- a/src/drivers/intel/gma/libgfxinit.h
+++ b/src/drivers/intel/gma/libgfxinit.h
@@ -17,6 +17,7 @@ enum {
 };
 
 void gma_gfxinit(int *lightup_ok);
+void gma_gfxstop(int *stop_ok);
 int gma_read_edid(unsigned char edid[], int port);
 
 #endif
diff --git a/src/drivers/intel/gma/text_fb/gma-gfx_init.adb b/src/drivers/intel/gma/text_fb/gma-gfx_init.adb
index d27385247e..da1e609b79 100644
--- a/src/drivers/intel/gma/text_fb/gma-gfx_init.adb
+++ b/src/drivers/intel/gma/text_fb/gma-gfx_init.adb
@@ -56,4 +56,17 @@ is
       end if;
    end gfxinit;
 
+   procedure gfxstop (stop_ok : out Interfaces.C.int)
+   is
+      success : boolean;
+   begin
+      HW.GFX.GMA.Initialize (Clean_State => True,
+      			     Success => success);
+      if success then
+         stop_ok := 1;
+      else
+         stop_ok := 0;
+      end if;
+   end gfxstop;
+
 end GMA.GFX_Init;