summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm17
1 files changed, 17 insertions, 0 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index ccfe1e526..7c4a1faa9 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -303,6 +303,21 @@ sub exitInstall {
}
+sub start_i810fb {
+
+ my ($vga) = cat_('/proc/cmdline') =~ /vga=(\S+)/;
+ return if !$vga || listlength(cat_('/proc/fb'));
+
+ my %vga_to_xres = (0x311 => '640', 0x314 => '800', 0x317 => '1024');
+ my $xres = $vga_to_xres{$vga} || '800';
+
+ log::l("trying to load i810fb module with xres <$xres> (vga was <$vga>)");
+ eval { modules::load('i810fb', undef,
+ ("xres=$xres", 'hsync1=32', 'hsync2=48', 'vsync1=50', 'vsync2=70', #- this sucking i810fb does not accept floating point numbers in hsync!
+ 'vram=2', 'bpp=16', 'accel=1', 'mtrr=1', 'hwcur=1', 'xcon=4')) };
+}
+
+
#-######################################################################################
#- MAIN
#-######################################################################################
@@ -465,6 +480,8 @@ sub main {
$o->{lang} = lang::set($o->{lang}); #- mainly for defcfg
+ start_i810fb();
+
$o->{allowFB} = listlength(cat_("/proc/fb"));
my $VERSION = cat__(install_any::getFile("VERSION")) or do { print "VERSION file missing\n"; sleep 5 };