diff options
Diffstat (limited to 'src/drivers/intel/gma/text_fb')
| -rw-r--r-- | src/drivers/intel/gma/text_fb/gma-gfx_init.adb | 13 |
1 files changed, 13 insertions, 0 deletions
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; |