summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2001-05-04 16:37:41 +0000
committerStew Benedict <stewb@mandriva.org>2001-05-04 16:37:41 +0000
commitc8707292b05edebfddd22328c44d63279040dae0 (patch)
treef87237dbe700ce59b8979b341a47808497873197 /perl-install
parent59b4f44effc1651c0b6cd67d477449931817aedb (diff)
downloaddrakx-c8707292b05edebfddd22328c44d63279040dae0.tar
drakx-c8707292b05edebfddd22328c44d63279040dae0.tar.gz
drakx-c8707292b05edebfddd22328c44d63279040dae0.tar.bz2
drakx-c8707292b05edebfddd22328c44d63279040dae0.tar.xz
drakx-c8707292b05edebfddd22328c44d63279040dae0.zip
force XF4 in expert too for PPC, don't run xmodmap, PPC SMP routine placeholder
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm11
-rw-r--r--perl-install/c/smp.c30
-rw-r--r--perl-install/keyboard.pm2
3 files changed, 37 insertions, 6 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index fdcec95fb..8995bbac4 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -256,14 +256,13 @@ What do you want to do?"), sub { translate($_[0]{text}) }, \@choices) or return;
$_->{memory} = 4096, delete $_->{depth} if $_->{driver} eq 'i810';
$_->{memory} = 16384, delete $_->{depth} if $_->{chipset} =~ /PERMEDIA/ && $_->{memory} <= 1024;
}
-
#- 3D acceleration configuration for XFree 3.3 using Utah-GLX.
$card->{Utah_glx} = ($card->{identifier} =~ /Matrox.* G[24][05]0/ || #- 8bpp does not work.
$card->{identifier} =~ /Riva.*128/ ||
$card->{identifier} =~ /Rage X[CL]/ ||
$card->{identifier} =~ /3D Rage (?:LT|Pro)/);
#- NOT WORKING $card->{type} =~ /Intel 810/);
- $card->{Utah_glx} = '' if arch() =~ /ppc/; #- No #D XFree 3.3 for PPC
+ $card->{Utah_glx} = '' if arch() =~ /ppc/; #- No 3D XFree 3.3 for PPC
#- 3D acceleration configuration for XFree 3.3 using Utah-GLX but EXPERIMENTAL that may freeze the machine (FOR INFO NOT USED).
$card->{Utah_glx_EXPERIMENTAL} = ($card->{type} =~ /RIVA TNT/ || #- all RIVA/GeForce comes from NVIDIA and may freeze (gltron).
#$card->{type} =~ /RIVA128/ ||
@@ -290,7 +289,6 @@ What do you want to do?"), sub { translate($_[0]{text}) }, \@choices) or return;
$card->{identifier} =~ /[nN]Vidia.*GeForce/ || #- GeForce cards
$card->{identifier} =~ /[nN]Vidia.*NV1[15]/ ||
$card->{identifier} =~ /[nN]Vidia.*Quadro/);
-
#- check to use XFree 4.0 or XFree 3.3.
$card->{use_xf4} = $card->{driver} && !$card->{flags}{unsupported};
$card->{force_xf4} = arch() =~ /ppc/; #- try to figure out ugly hack for PPC (recommend XF4 always so...)
@@ -319,7 +317,6 @@ What do you want to do?"), sub { translate($_[0]{text}) }, \@choices) or return;
code => sub { $card->{Utah_glx} = $card->{DRI_glx} = $card->{NVIDIA_glx} = '';
log::l("Using XFree $xf4_ver") } }),
if_(!$card->{prefer_xf3} && $::expert, $xf3_tc)) : $xf3_tc;
-
#- try to figure if 3D acceleration is supported
#- by XFree 3.3 but not XFree 4.0 then ask user to keep XFree 3.3 ?
if ($card->{Utah_glx}) {
@@ -364,7 +361,11 @@ NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf3_ver)) . "
unshift @choices, { text => _("XFree %s with 3D hardware acceleration", $xf4_ver),
code => sub { log::l("Using XFree $xf4_ver with 3D hardware acceleration") } };
}
-
+ if (arch() =~ /ppc/) {
+ #- not much choice for PPC - we only have XF4
+ @choices = { text => _("XFree %s", $xf4_ver), code => '' };
+ log::l("Using XFree $xf4_ver");
+ }
#- examine choice of user, beware the list MUST NOT BE REORDERED AS the first item should be the
#- proposed one by DrakX.
my $tc = $in->ask_from_listf(_("XFree configuration"), formatAlaTeX($msg), sub { translate($_[0]{text}) }, \@choices) or return;
diff --git a/perl-install/c/smp.c b/perl-install/c/smp.c
index 34303759e..b885de850 100644
--- a/perl-install/c/smp.c
+++ b/perl-install/c/smp.c
@@ -64,6 +64,34 @@ int sparcDetectSMP(void)
}
#endif /* __sparc__ */
+/* just a placeholder for now - don't have an SMP machine
+ need something in place to build - s.benedict */
+
+#ifdef __powerpc__
+int ppcDetectSMP(void)
+{
+ int issmp = 0;
+ FILE *f;
+
+ f = fopen("/proc/cpuinfo", "r");
+ if (f) {
+ char buff[1024];
+
+ while (fgets (buff, 1024, f) != NULL) {
+ if (!strncmp (buff, "ncpus active\t: ", 15)) {
+ if (strtoul (buff + 15, NULL, 0) > 1)
+ issmp = 1;
+ break;
+ }
+ }
+ fclose(f);
+ } else
+ return -1;
+
+ return issmp;
+}
+#endif /* __powerpc__ */
+
#ifdef __i386__
/*
* Copyright (c) 1996, by Steve Passe
@@ -458,6 +486,8 @@ int detectSMP(void)
return isSMP = sparcDetectSMP();
#elif __alpha__
return isSMP = alphaDetectSMP();
+#elif __powerpc__
+ return isSMP = ppcDetectSMP();
#elif __ia64__
return isSMP = 1;
#else
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index be3f4761d..10501aa19 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -297,7 +297,7 @@ sub xmodmap_file {
}
sub setup {
- return if arch() =~ /^sparc/;
+ return if arch() =~ /^sparc|ppc/;
my ($keyboard) = @_;
my $o = $keyboards{$keyboard} or return;