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