summaryrefslogtreecommitdiff
path: root/src/drivers/intel
diff options
context:
space:
mode:
Diffstat (limited to 'src/drivers/intel')
-rw-r--r--src/drivers/intel/gma/hires_fb/gma.adb10
-rw-r--r--src/drivers/intel/gma/text_fb/gma.adb6
2 files changed, 10 insertions, 6 deletions
diff --git a/src/drivers/intel/gma/hires_fb/gma.adb b/src/drivers/intel/gma/hires_fb/gma.adb
index 87e0900981..0ee4a73212 100644
--- a/src/drivers/intel/gma/hires_fb/gma.adb
+++ b/src/drivers/intel/gma/hires_fb/gma.adb
@@ -1,9 +1,11 @@
with HW.GFX;
with HW.GFX.Framebuffer_Filler;
with HW.GFX.GMA;
+with HW.GFX.GMA.Display_Probing;
use HW.GFX;
use HW.GFX.GMA;
+use HW.GFX.GMA.Display_Probing;
with GMA.Mainboard;
@@ -55,7 +57,7 @@ is
use type pos32;
ports : Port_List;
- configs : Configs_Type;
+ configs : Pipe_Configs;
success : boolean;
@@ -70,10 +72,10 @@ is
if success then
ports := Mainboard.ports;
- HW.GFX.GMA.Scan_Ports (configs, ports);
+ HW.GFX.GMA.Display_Probing.Scan_Ports (configs, ports);
if configs (Primary).Port /= Disabled then
- for i in Config_Index loop
+ for i in Pipe_Index loop
exit when configs (i).Port = Disabled;
min_h := pos16'min (min_h, configs (i).Mode.H_Visible);
@@ -86,7 +88,7 @@ is
BPC => 8,
Stride => ((Width_Type (min_h) + 63) / 64) * 64,
Offset => 0);
- for i in Config_Index loop
+ for i in Pipe_Index loop
exit when configs (i).Port = Disabled;
configs (i).Framebuffer := fb;
diff --git a/src/drivers/intel/gma/text_fb/gma.adb b/src/drivers/intel/gma/text_fb/gma.adb
index bbb6d74e3d..5df203b580 100644
--- a/src/drivers/intel/gma/text_fb/gma.adb
+++ b/src/drivers/intel/gma/text_fb/gma.adb
@@ -1,8 +1,10 @@
with HW.GFX;
with HW.GFX.GMA;
+with HW.GFX.GMA.Display_Probing;
use HW.GFX;
use HW.GFX.GMA;
+use HW.GFX.GMA.Display_Probing;
with GMA.Mainboard;
@@ -30,7 +32,7 @@ is
lightup_ok : out Interfaces.C.int)
is
ports : Port_List;
- configs : Configs_Type;
+ configs : Pipe_Configs;
success : boolean;
@@ -48,7 +50,7 @@ is
if success then
ports := Mainboard.ports;
- HW.GFX.GMA.Scan_Ports
+ HW.GFX.GMA.Display_Probing.Scan_Ports
(Configs => configs,
Ports => ports,
Max_Pipe => Primary);