From 5b0713ebcc1f37580f7128c4893682ac9f20d69f Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 21 Nov 2001 19:42:04 +0000 Subject: i810fb --- perl-install/install2.pm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'perl-install/install2.pm') 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 }; -- cgit v1.2.1