| 917 |
|
} |
| 918 |
|
} |
| 919 |
|
|
| 920 |
< |
sub Arch_Start { |
| 921 |
< |
my $self=shift; |
| 922 |
< |
my $name=shift; |
| 923 |
< |
my $hashref=shift; |
| 924 |
< |
|
| 925 |
< |
$self->verbose(">> Arch_Start: NM ".$name." <<"); |
| 926 |
< |
|
| 927 |
< |
$self->{switch}->checktag($name, $hashref,'name'); |
| 928 |
< |
( ($ENV{SCRAM_ARCH}=~/$$hashref{name}.*/) )? ($self->{Arch}=1) |
| 929 |
< |
: ($self->{Arch}=0); |
| 930 |
< |
push @{$self->{ARCHBLOCK}}, $self->{Arch}; |
| 931 |
< |
} |
| 920 |
> |
sub Arch_Start |
| 921 |
> |
{ |
| 922 |
> |
my $self=shift; |
| 923 |
> |
my $name=shift; |
| 924 |
> |
my $hashref=shift; |
| 925 |
> |
|
| 926 |
> |
$self->verbose(">> Arch_Start: NM ".$name." <<"); |
| 927 |
> |
|
| 928 |
> |
$self->{switch}->checktag($name, $hashref,'name'); |
| 929 |
> |
|
| 930 |
> |
# if ($ENV{SCRAM_ARCH} =~ /$$hashref{name}$/) |
| 931 |
> |
if ( $$hashref{name} eq $ENV{SCRAM_ARCH} ) |
| 932 |
> |
{ |
| 933 |
> |
# print "HASHREFNAME= ",$$hashref{name},"\n"; # The tag read from BuildFile |
| 934 |
> |
# print "Scram arch()? ",$ENV{SCRAM_ARCH},"\n"; # Also SCRAM_ARCH |
| 935 |
> |
$self->{Arch}=1; |
| 936 |
> |
} |
| 937 |
> |
else |
| 938 |
> |
{ |
| 939 |
> |
$self->{Arch}=0; |
| 940 |
> |
} |
| 941 |
> |
# ( ($ENV{SCRAM_ARCH}=~/$$hashref{name}.*/) )? ($self->{Arch}=1) |
| 942 |
> |
# : ($self->{Arch}=0); |
| 943 |
> |
|
| 944 |
> |
$self->verbose(($self->{Arch}?"OK":"skipping")." ".$$hashref{name}); |
| 945 |
> |
push @{$self->{ARCHBLOCK}}, $self->{Arch}; |
| 946 |
> |
} |
| 947 |
|
|
| 948 |
|
sub Arch_End { |
| 949 |
|
my $self=shift; |
| 1263 |
|
my $hashref=shift; |
| 1264 |
|
|
| 1265 |
|
$self->verbose(">> CompilerMap_Start: NM ".$name." <<"); |
| 1266 |
< |
|
| 1266 |
> |
print "compiler check....",$self->{Arch},"\n"; |
| 1267 |
> |
print "ARCH: ",$self->{ArchStack},"\n"; |
| 1268 |
|
# We can only map compilers to already-defined architectures, so |
| 1269 |
|
# we check for 'Arch': |
| 1270 |
|
if ( $self->{Arch} ) |
