Changes between Version 1 and Version 4 of Ticket #396
- Timestamp:
- 03/03/09 19:35:55 (13 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
Ticket #396 – description
v1 v4 1 1 I miss crucial 32/64bit info on the smolder reports. 2 2 I want to add it to the cpuarch, similar to amd64 or ia64. 3 3 4 So ppc is either pcc32 or ppc64, alpha is alpha32 or alpha64, ... 5 sun4 should be sparc32 or sparc64. Just to make it clear. 6 4 7 Ok to apply? 5 8 6 9 {{{ 7 diff -u lib/Parrot/Harness/Smoke.pm~ lib/Parrot/Harness/Smoke.pm 8 --- lib/Parrot/Harness/Smoke.pm~ 2009-02-18 00:01:18.000000000 +0100 9 +++ lib/Parrot/Harness/Smoke.pm 2009-03-03 15:09:50.171875000 +0100 10 @@ -100,8 +100,12 @@ 10 --- parrot-svn.orig/lib/Parrot/Harness/Smoke.pm 2009-03-03 19:54:35.671875000 +0100 11 +++ parrot-svn/lib/Parrot/Harness/Smoke.pm 2009-03-03 20:32:42.390625000 +0100 12 @@ -100,8 +100,14 @@ 11 13 } 12 14 13 15 sub collect_test_environment_data { 16 + # rename sun4 to sparc 17 + my $arch = $PConfig{cpuarch} eq 'sun4' ? 'sparc' : $PConfig{cpuarch}; 14 18 + # add the 32/64 bit suffix to the cpuarch 15 + my $arch = $PConfig{cpuarch} =~ /\d$/16 + ? $PConfig{cpuarch}17 + : $PConfig{cpuarch} . (8*$PConfig{wordsize});19 + if ($PConfig{cpuarch} !~ /\d$/) { 20 + $arch = $PConfig{cpuarch} . (8*$PConfig{wordsize}); 21 + } 18 22 return ( 19 23 - 'Architecture' => $PConfig{cpuarch},